butunun onclick olayına müdahale (runtime)

[cemrebilgisayar]

arkadaşlar program runtime da iken butonun onclick olayına kod atmasını istiyorum.

[CiTiZEN]

biraz daha bilgi verirseniz daha iyi yardımcı olurum ama şu şekilde işinizi görmesi lazım:

@bileseniniz.onclick:=@clickprocedurunuz;

[cemrebilgisayar]

arama diye bir formum var. benim yapmak isteğim diğer formlardan arama formunu çalıştırdığımda arama formunun uygula butonuna bir kod göndermem lazım. bunun sebebide her formdan değişik kod göndermem gerekiyor.

[CiTiZEN]

vaktinde banada lazım olmuştu saolsun @mehmetcan yazmış vermişti.kodlar editten gönderilen string veriyi procedure olarak kullanıyor.

Kod: Tümünü seç

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  published
    procedure success(Sender:Tobject);
  end;


procedure TForm1.Button1Click(Sender: TObject);
type
  Tyordam  = procedure of object;
var
  a1 : TMethod;
  yordam : TYordam;
begin
  a1.Data:=Pointer(Form1); // veya nill
  a1.code:=MethodAddress(Edit1.Text);  // bu örnekte sadece success calisir
  if assigned(a1.code) then
  begin
    yordam:=TYordam(a1);
    yordam;
  end;
end;

procedure Tform1.success(Sender: Tobject);
begin
   ......
end;

Kolay Gelsin

[cemrebilgisayar]

kusura bakma ama ben bu koddan hiçbirşey anlamadım.

[CiTiZEN]

anladığım kadarıyla butona farklı yerlerden click yordamları gönderip farklı formlarda istediğin farklı görevleri yaptırmak yukardaki kod bu şekilde çalışıyor, edit 1 yerine istediğin proceduru gönderebilirsin eğer yanlış anlamadıysam..

[orhancc]

Düğmenin onclickine istediğin prosedürü bağlaman yeterli olacaktır.

Kod: Tümünü seç

Button5.OnClick := BindAtRuntime;

procedure TForm3.BindAtRuntime(Sender: TObject);
begin
  ShowMessage('Ben Çalışma zamanında bağlandım');
end;

[tux]

merhaba,

öncelikle arkadaşlarımızın gönderdiği kod işini görecektir fakat burada asıl senin işini yapacak olan Sender parametresi..
hangi formdan çağırdığını Sender parametresinden alabilirsin, diğer yandan click yordamını prosedür değişkenler aracılığı ile değiştirebilirsin
örnek vermek gerekirse ekteki uygulama işini görecektir