Button Create

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
vipaydin
Üye
Mesajlar: 82
Kayıt: 23 Ara 2004 04:52

Button Create

Mesaj gönderen vipaydin »

Merhaba.

Aşağıdaki kod ile bir tane butonu create ediyorum. Yalnız bu create ettiğim butona ait diğer özellikleri nasıl kullanacağım?
Aslında yapmak istediğim, JVFooter üzerinde açılan her formun adı ile bir tane buton yaratmak.
Böylece açık olan formları aşağıdaki buton sayesinde göreceğim ve ilgili butona basınca o formu göstereceğim.
Şimdiye kadar hiç lazım olmamış ki bilmiyorum. Aynı anda 3-5 tane form açılmışsa, footer üzerinde de 3-5 tane butonu göreceğim. Çoklu ekran çalışması yani.

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
var newbutton:TButton;
begin
newbutton:=TButton.Create(form2);
newbutton.Top:=100;
newbutton.Left:=100;

newbutton.Caption:='yeni buton';
newbutton.Parent:=form2;
end;
Bu kodu örnek olarak çalıştığım için yazdım. Çözersem diğer tarafını halledebilirim.
Şimdi oluşan newbutton'un diğer özelliklerini nasıl kullanacağım. Mesela OnClick özelliğini.

Tşk.ederim, iyi çalışmalar.
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Re: Button Create

Mesaj gönderen White Rose »

// Butontiklandi diye bir procedure oluşturun
// procedure ButonTiklandi(Sender: TObject);
....
newbutton.click:=ButonTiklandi;// olarak kod yazıp kullanabilirsiniz.
Cevapla