[Delphi] Popup Menu

0

Stworzyłem dynamicznie itemy w PopupMenu. Przypisałem wszystkim to samo zdarzenie OnClick, więc muszę wiedzieć, który item został wciśnięty. ;-(
Jak pobrać numer/caption tego itema??

Mam nadzieję że rozumiecie :p

Może da się to zrobić prościej? :p

BARDZO proszę o pomoc!

Pozdrawiam PIK

0

...o to chodzi ?

procedure TForm1.XXXClick(Sender: TObject);
begin
ShowMessage(TMenuItem(Sender).Caption);
end;

0

hmmmm ja robiłem dynamicznie popupmenu ale niedawałem wszystkim tego samego onclick:-) może if sender as item ale niewiem nigdy tego niepróbowałem:)

0

Ustawiaj sobie przy tworzeniu kolejnych pozycji w menu TAG (numer od 0). I potem w zdarzeniu OnCLick:

Case TComponent(Sender).Tag Of
0:{Menu 1};
1:{Menu 2};
{itd.}
End;

0

Serdecznie Wam dziękuje!! !! !!

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