Dinamik Bileşen Yaratma

[seandillon]

İyi akşamlar arkadaşlar;
Benim sorum belki forumda cevaplandırılmış olabilir çok fazla arayamadım forumu, bir kaç aramadan sonra sormamın doğru olacağını düşündüm....
Delphi de Dinamik olarak yarattığım bir bileşen nesneye olayıda sonradan yüklemek istiyorum.
Mesela dinamik olarak program içinde yarattığım bir TImage nesnesine OnMove olayınıda oluşturmak istiyorum bunu nasıl yapabilirim?

[Battosai]

procedure xyz(Sender:TObject);

.....................
....................

Kod: Tümünü seç

var
yazboz:Tedit;
Begin
yazboz:=Tedit.create;
yazboz.onclick:=xyz;
End;

[seandillon]

Teşekkürler. Bu yöntemi uyguluyordum zaten acaba farklı bir yöntemi varmı diye merak etmiştim...

[CiTiZEN]

Biraz daha gelişmişi bir buton oluşturur:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  CButton : TButton;
begin
  CButton := TButton.Create(form1);
  with CButton do begin
    Visible := true;
    Top := 100;
    Left := 100;
    Width := 100;
    Caption :='CButton Created';
    Name := 'CButton1';
    Parent := Form1;
  end;
end;

Eğer butonu oluşturup procedure ekleme felan yapacaksan veya yapmaya çalıştığın şey hakkında daha fazla bilgi verirsen yarımcı olabilirim.

[seandillon]

Evet aynen dediğin gibi oluşturduğum bu bileşene şimdi dinamik olarak bir procedure oluşturmak istiyorum buna özel...

[sabanakman]

Ona özel kodlamayı yap, arada onu da özellik olarak atayabilirsin.

Kod: Tümünü seç

procedure TForm1.ButtonClickOlayi(Sender: TObject);
begin
  ShowMessage('deneme');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  CButton : TButton;
begin
  CButton := TButton.Create(form1);
  with CButton do begin
    Visible := true;
    Top := 100;
    Left := 100;
    Width := 100;
    Caption :='CButton Created';
    Name := 'CButton1';
    Parent := Form1;

    onClick:= ButtonClickOlayi;
  end;
end;

gibi.