TMenuItem.Tag

[uligerhardt]

Zitat von bcvs:

Zitat:

if itm.Tag = NativeInt(1) then;

Probiers mal ohne das ;

Delphi-Quellcode:

if itm.Tag = NativeInt(1) then; // Das ; beendet den (leeren) Befehl. Wenn Tag = 1 ist, wird nichts ausgeführt, ansonsten auch nichts
begin 
  // Das hier wird in jedem Fall ausgeführt
  ShowMessage
  ...
end;

Ich hab angenommen, der Strichpunkt wäre nur beim Auskommentieren reingekommen. Falls der vorher auch schon drin war, dürfte das einiges erklären.

[DerMondistunsereSonne]

@bcvs Das war es, Danke!