mainmenu items ändern

[DeddyH]

Von Delphi.NET hab ich keinen Plan, aber so ungefähr könnte es doch gehen:

Delphi-Quellcode:

procedure TDeinForm.DeinMenuItemClick(sender:TObject);
begin
  if Sender = DeinMenuItem then
    begin
      FSchraffiert := not FSchraffiert;
      if FSchraffiert then
        begin
          (* Code *)
        end
      else
        begin
          (* Code *)
        end;
    end;
end;

Wobei man FSchraffiert auch als private Property deklarieren könnte, welche im Setter dann die Änderungen vornimmt.