|
Registriert seit: 6. Apr 2005
10.109 Beiträge
|
Re: Popupfenster zur Laufzeit erweitern
15. Dez 2005, 13:46
Oder so:
Delphi-Quellcode:
procedure TDemoForm.FormCreate(Sender: TObject);
var
mi: TMenuItem;
begin
mi := NewItem('So geht''s', TextToShortCut('F9'), false, true, F9Click, 0, '');
PopupMenu.Items.Add(mi);
end;
Grüße vom marabu
|
|
|
Zitat
|