Guden Leutz!
Schaut euch mal folgenden Quelltext an:
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
| procedure TfrmHaupt.OnButtonClick(Sender: TObject); var Popup: String; begin
// Name des anzusprechenden Popup-Menüs generieren Popup := 'Popup'+IntToStr((Sender as TSpeedButton).Tag); // Popup-Menü bei x,y = 30,30 aufklappen (Popup as TPopupMenu).Popup(30,30);
end; |
Leider funzt das so nicht. Also um es nochmal zu beschreiben: Ich habe einige Popup-Menüs und einige SpeedButtons auf der Form. Je nachdem welcher der Buttons angeklickt wird, soll ein Popup-Menü aufgeklappt werden. Der Name des aufzuklappenden Popup-Menüs richtet sich nach dem Tag des SpeedButtons und wird folglich auch daraus generiert ("Popup" + Tag des Speedbuttons = aufzuklappendes Menü). Wie realisiere ich nun, dass der String der in Popup steckt, als TPopupMenu-Name gesehn wird und somit mit der Anweisung Popup(x,y) aufgeklappt werden kann?
Gruß,
RichMan