Einzelnen Beitrag anzeigen

Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.350 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: PopupMenü abfragen, Werte setzen, usw.

  Alt 17. Jan 2006, 16:25
Hallo sonicfire,

in dem Ereignis OnClick des MenuItems ist der Parameter Sender der angeklickte MenuItem.
Damit kannst du etwa wie folgt abfragen:

Delphi-Quellcode:
type
  TForm1 = class(TForm)
...
  miCheck: TMenuItem;
...
procedure TForm1.miCheckClick(Sender: TObject);
begin
  if (Sender = miCheck) then
    miCheck.Checked := not miCheck.Checked;
end;
In dem Beispiel schalte ich nur immer im Code um. AutoCheck sollte Fale sein.

Cu, Frank
Frank Reim
  Mit Zitat antworten Zitat