Einzelnen Beitrag anzeigen

torsti.j

Registriert seit: 25. Jan 2008
Ort: Wurzen
16 Beiträge
 
Delphi 2006 Professional
 
#10

Re: MDIChilds Systembuttons deaktivieren

  Alt 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???
  Mit Zitat antworten Zitat