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

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

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

Mesaj gönderen haydarxxx »

Kod: Tümünü seç

procedure TForm2.CheckListBox1Click(Sender: TObject);
begin
edit4.text:=CheckListBox1.Items[CheckListBox1.ItemIndex];
Edit7.Text := Copy(CheckListBox1.Items[CheckListBox1.ItemIndex], 1, 3);
end;
CheckListBox ın onclikc olayındaki kod bu şekilde.bu kodu butona nasıl atarız butona bastığımızda bu kod çalışsın.Genel olarak eventleri button ile nasıl çalıştırırız
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

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

Mesaj gönderen ertank »

Merhaba,

CheckListBox1Click() özünde bir prosedür. Bir Event'a bağlandığı için event gerçekleştiğinde otomatik olarak çalışır. Ancak parametrelerini vererek herhangi bir zamanda istediğiniz kadar çalıştırmanız mümkün. Aşağıdaki şekilde deneyebilirsiniz:

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
begin
  CheckListBox1Click(Self);
end;
ihalilcoban
Üye
Mesajlar: 121
Kayıt: 10 Ara 2015 10:39

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

Mesaj gönderen ihalilcoban »

Hiç kod yazmadan Button1 in Events inde onclick listesinden CheckListBox1Click seçilerek yapılabilir.
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

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

Mesaj gönderen haydarxxx »

ihalilcoban onu denedim ama olmamıştı.

Kod: Tümünü seç

List İndex out of bounds(-1)
hatası aldım ertank her iki şekildede
onur2x
Üye
Mesajlar: 19
Kayıt: 29 Şub 2016 12:20

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

Mesaj gönderen onur2x »

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;
Cevapla