Onclick Procedure

[Bernhard Geyer]

Delphi-Quellcode:

procedure TForm1.starte(Sender : TObject);
begin
  if Sender is TMenuItem then
  begin
    ShowMessage((Sender as TMenuItem).Caption);
  end;
end;