popup menu

[adelphiforumz]

Merhaba
formumda 1 edit box, 2 button, 1 de popup menu var
amaç hangi buttondan popup yapılırsa o button caption'a edit box içindeki değer yazılacak 2 gündür uğraşıyorum olmadı yardımcı olabileceklere şimdiden teşkkürler.

[adelphiforumz]

PopupMenu1.PopupComponent.Name iş görüyor fakat
üzerinde basılan butonun caption özelliğini değiştirmek isteyince yine istediğim olmuyor.
fikri olan varmı

[F.Atagun]

Popumenünün ilgili olayına yazarsanız da olur

Kod: Tümünü seç

procedure TForm1.Popupmenu1Click(Sender: TObject);
begin
Button1.Caption:='Butona Ne yazdırmak İsteniyorsa Onu yaz';
end;

Kolay gelsin

[adelphiforumz]

caylaq
yardım için sağol fakat benim sormak istediğim hangi button üzerinden popup çağrıldıysa o button için caption değişmeli
teşekkürler

[sabanakman]

Kod: Tümünü seç

procedure TForm1.Bul1Click(Sender: TObject);
begin
  TButton(PopupMenu1.PopupComponent).Caption:='Değişti';
end;

[adelphiforumz]

teşekkürker