PopupMenu dynamicznie....

0

Cze

Kto wie jak to zrobić?

Mam Edit i przypisane do niego PopupMenu. Do PopupMenu dodawane są dynamicznie pozycje.

UWAGA!! Pytanie: Jak zrobić aby po kliknięciu na dynamicznie stworzoną pozycję w PopupMenu do Edita został wklejony text z Captiona tej pozycji??

Jak wiesz to bardzo proszę napisz !!!!!!

To sprawa życia lub śmierci !! (mojego programu)

pa Pa

0

W sekcji private zadeklaruj taką procedurę:

procedure Klikniecie(Sender: TObject);

W części implementation wpisz:

procedure TForm1.Klikniecie(Sender: TObject);
begin
Edit1.Text := (Sender as TMenuItem).Caption;
end;

Przy tworzeniu nowej pozycji w menu przypisuj jej zdarzeniu OnClick procedurę Klikniecie

MenuItem.OnClick := Klikniecie;

I będzie grać.

0

[cenzura]

0

[cenzura]

Mozesz uzasadnic swoja wypowiedz? Kazdemu mozna tak nabluzgac, ale trzeba miec na to odpowiednie argumenty! A moze to tylko czysta zazdrosc?

0

[cenzura]

niektórzy po prostu rodzą sie chamami...

0

[cenzura]

Takich ludzi jak autor powyżej cytowanego posta należy wybić oraz dać moderatorom konstytucujne prawo do komysyjnego mordu na tkich jak (on/ona/ono) to coś

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0