Forum: Object-Pascal / Delphi-Language
Delphi
by shAd,
27. Jul 2004
:roteyes: :spin2: Da hab ich ja fast "zuviel" mitgedacht ;). Danke dir. Nun funktioniert das!
Forum: Object-Pascal / Delphi-Language
Delphi
by shAd,
27. Jul 2004
Und wie baue ich das in meinen Button ein? Die Frage mag blöd klingen, aber ich kriegs nicht hin.
So hab ichs versucht: Funktioniert beim normalen Windows schließen einwandfrei. Nur mit meinem Button gehts nicht richtig (d.h. Fenster kommt, aber egal auf was fürn Knopf ich drücke, das Programm bleibt geöffnet.
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var...
Forum: Object-Pascal / Delphi-Language
Delphi
by shAd,
27. Jul 2004
hab dies nun versucht - danke.
Doch wenn ich nun im Menü auf Beenden klicke werden die richtigen Fenster angezeigt ("Wirkliche Beenden"; Bei veränderter Datei: "Vor dem Beenden Speichern?").
Doch wenn ich nun über den Button "Close" aufrufe, beendet er das Programm nicht.
Wenn ich das "Kreuzchen drücke" (-D.h. OnClose direkt aufrufe) und dann auf Abbrechen drücke, beendet er das Programm...
Forum: Object-Pascal / Delphi-Language
Delphi
by shAd,
27. Jul 2004
Hallo,
Mein Programm kann man durch das Menü beenden, oder nunmal mit dem Windows "Kreuzchen". Nun habe ich bei dem Kreuz das Problem, das ich dort Probleme mit der Abfrage ("Wirklich Beenden?; "Vor dem Beenden Speichern?") bekomme. Wenn ich dort diesen Code benutze (der vom Beenden-Knopf im Menü):
procedure TForm1.Beenden1Click(Sender: TObject);
var S: Integer;
begin
if...