17 uygun sonuç bulundu

gönderen onur2x
08 May 2018 05:52
Forum: Programlama
Başlık: Button ile Başka bir nesnenin Event kodunu çalıştırmak
Cevaplar: 4
Görüntüleme: 162

Re: Button ile Başka bir nesnenin Event kodunu çalıştırmak

herhangi bir item seçilmediği için oluyor. kodun başına bir koşul yazarsan çözüm sağlanmış olur
if CheckListBox1.ItemIndex>-1 then
begin
edit4.text:=CheckListBox1.Items[CheckListBox1.ItemIndex];
Edit7.Text := Copy(CheckListBox1.Items[CheckListBox1.ItemIndex], 1, 3);
end;
gönderen onur2x
18 Oca 2018 10:14
Forum: Programlama
Başlık: stringgrid cell color
Cevaplar: 2
Görüntüleme: 106

Re: stringgrid cell color

Sanırım tek prosedurde 2 tane StringGrid i renklendirmek istiyorsun StringGrid1 yazan yerlere Sender yazıp StringGrid2 ye de drawcell ine bu prosedürü atmalısın
gönderen onur2x
16 Oca 2018 02:27
Forum: Programlama
Başlık: Mantık yardımı
Cevaplar: 4
Görüntüleme: 170

Re: Mantık yardımı

Tşkler
gönderen onur2x
13 Oca 2018 04:56
Forum: Programlama
Başlık: Mantık yardımı
Cevaplar: 4
Görüntüleme: 170

Re: Mantık yardımı

1) Numaralar bir görev ifade ediyor her numaranın bir görevi var 1,2,3 diye ben salladım bu 2-4-6 gibi de gidebilir. Görev numarası olduğu için bugun 1 nolu gorevi yapan yarın 2 nolu gorevi yapar o yuzden tekrarlaması gerekiyor? 2) "sabah", "n sabah" , akşam "n akşam" bunların her bir görev numarala...
gönderen onur2x
13 Oca 2018 11:40
Forum: Programlama
Başlık: Mantık yardımı
Cevaplar: 4
Görüntüleme: 170

Mantık yardımı

Şöyle bir sorunum var. Bir çizelge programı yapmaya çalışıyorum. Bir iş yeri var 100 küsür çalışan var bunlar 3 varsiya çalışıyor. haftaiçi sabah 1 2 3 4 5 6 7 8 9 10 11 n sabah 21 22 23 24 25 26 27 28 29 akşam 51 52 53 54 55 56 57 58 59 60 61 n akşam 70 71 72 73 74 75 76 77 78 79 Cumartesi sabah 10...
gönderen onur2x
04 Eki 2017 01:33
Forum: Programlama
Başlık: Panel ve çözünürlük
Cevaplar: 11
Görüntüleme: 290

Re: Panel ve çözünürlük

bence image koymalısın 2 tane biri normal biride değişecek renk 2 tane resim oluşturup imagelere atamalaısın image1 adını normalresim, image 2 adını degisenresim olarak değiştir. ve çizdiğin resimleri imagelere ata. procedure Tanaform.BASLIKYAZ(UZERINDE, basili: boolean; resim: TImage; baslik: strin...
gönderen onur2x
04 Eki 2017 12:39
Forum: Programlama
Başlık: 4 işlem ama bildiğiniz gibi değil
Cevaplar: 6
Görüntüleme: 385

Re: 4 işlem ama bildiğiniz gibi değil

Eğer yanlış anlamadiysam. Tüm labelleri alt alta koyun autosize false yapın belli bir uzunluk verin Label aligment left yada right kullanarak hangisi sağ hangisi sol tarafa yazılacağını hizalayin.
gönderen onur2x
26 Mar 2017 02:43
Forum: Programlama
Başlık: ListView selected
Cevaplar: 1
Görüntüleme: 152

Re: ListView selected

Kod başına
ListView1.BeginUpdate
Sonuna da
ListView1.EndUpdate
Denermisin
gönderen onur2x
26 Mar 2017 01:51
Forum: Programlama
Başlık: Portable media player
Cevaplar: 5
Görüntüleme: 260

Re: Portable media player

Viplay diye bir proje vardı winamp benzeri program. Dc-Dsp filter bileşenleri ni kullanıyordu tam olarak hatırlamıyorum ama nette bir araştır ordan tüm bu dediklerini yapabiliyorsun. Yanlız Direct 9 üzerinden di sanırım. http://www.dsp-worx.de bileşenler burada
gönderen onur2x
26 Mar 2017 01:38
Forum: Programlama
Başlık: hesap makinesi 4 islem yardım lütfen
Cevaplar: 7
Görüntüleme: 359

Re: hesap makinesi 4 islem yardım lütfen

sonuc: integer; yerine sonuc: extended; girersin inttostr yerine floattostr..... strtoint yerine strtofloat..... Tüm butonlara tag atarsın 0-9 arası hangi rakam yazacaksa ve hepsinin onclick olayına buton1 i atarsın gereksiz kod yazmakla ugrasmazsın procedure TForm1.Button1Click(Sender: TObject); be...
gönderen onur2x
20 Mar 2017 04:21
Forum: Programlama
Başlık: Video oynarken üzerinden kayan yazı akıtmak
Cevaplar: 1
Görüntüleme: 167

Re: Video oynarken üzerinden kayan yazı akıtmak

Label koyduysan üzerinde sağ tıklayıp bringtofront yaparsan her zaman üstte olur. Form ve label in doublebuffer ini de true yaparsan titreme yapmaz
gönderen onur2x
05 Şub 2017 11:47
Forum: Programlama
Başlık: mouse kontrol
Cevaplar: 1
Görüntüleme: 105

Re: mouse kontrol

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean); var i: SmallInt; x:Integer ; begin if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam); if i > 0 then begin if ActiveControl is TEdit then begin try x:=StrToIntDef(TEdit(Activ...
gönderen onur2x
05 Şub 2017 11:28
Forum: Programlama
Başlık: Radiogroup string sorgulatmak
Cevaplar: 1
Görüntüleme: 60

Re: Radiogroup string sorgulatmak

Kod: Tümünü seç

if RadioGroup1.Items.IndexOf('kart bilgisi')>-1 then
RadioGroup1.ItemIndex:=RadioGroup1.Items.IndexOf('kart bilgisi')
gönderen onur2x
23 Oca 2017 11:10
Forum: Programlama
Başlık: İçinde kaç adet var
Cevaplar: 5
Görüntüleme: 307

Re: İçinde kaç adet var

Sql group incelerseniz belirli bir kategorideki kayıtları listelersin ona göre suzersin vs eğer veritabanından çekerken sayısını da öğrenirsin
gönderen onur2x
18 Oca 2017 12:42
Forum: Programlama
Başlık: Klasördeki Resim dosyalarinin sayisi?
Cevaplar: 2
Görüntüleme: 172

Re: Klasördeki Resim dosyalarinin sayisi?

procedure TForm1.ListeleDosyalari(Klasor: string; Dosyalar: TStrings; uzanti:string); var SR: TSearchRec; begin if FindFirst(Klasor+ uzanti, faAnyFile, SR) = 0 then begin repeat if (SR.Attr <> faDirectory) then begin Dosyalar.Add(ChangeFileExt(SR.Name, '')); end; until FindNext(SR) <> 0; FindClose(...