Registriert seit: 25. Jan 2008
Ort: Wurzen
16 Beiträge
Delphi 2006 Professional
|
Re: MDIChilds Systembuttons deaktivieren
26. Jan 2008, 00:55
Hier wäre zB. das Beenden abbrechen!
procedure THF.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
m1:string;
m2:string;
begin
inherited;
m1:=HRVStr.ReadString(Name,'Ende1',''); //Text aus einer Datei einlesen
m2:=HRVStr.ReadString(Name,'Ende2',''); //Text aus einer Datei einlesen
CanClose := Application.Messagebox
(PChar(m1),PChar(m2),MB_YESNO) = IDYES;
('Wollen Sie wirklich beenden?','Ende!',MB_YESNO) = IDYES;
end;
So müsste das doch auch für das Minimieren und Maximieren gehen?
oder gibt es da keine Ereignisse, die man abfragen kann???
|