Delphi-Quellcode:
procedure Twebdesign.set_closeClick(Sender: TObject);
var byAntwort: byte;
begin
// -> schliessen abfrage
byAntwort := Application.MessageBox(
'Wollen Sie das Programm beenden?','Programm beenden',MB_YESNO or MB_ICONQUESTION);
if byAntwort = IDYES then
Close;
end;
das is im mainmenu -> datei -> beenden
warum funktioniert hier der befehl "close" nicht.
Error: Anweisung erforderlich, aber Ausdruck vom Typ 'TMenuItem' gefunden.
Close ist ja eine Anweisung ?![/delphi]