Entwickler-Ecke

Visual Component Library (VCL) - ...herausfinden, wann eine Form min. oder maximiert wird?


Tino - Mo 30.12.02 11:25
Titel: ...herausfinden, wann eine Form min. oder maximiert wird?
herausfinden, wann eine Form min. oder maximiert wird?

Im Interface-Abschnitt der Form (Form1) folgendes einfügen:

Delphi-Quelltext 
1:
2:
 
private 
  Procedure WMSysCommand (Var Msg: tWMSysCommand); Message WM_SYSCOMMAND;

Die Implementation sieht wie folgt aus:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
 
Procedure tForm1.WMSysCommand (Var Msg: tWMSysCommand);
Begin
  If Msg.CmdType = SC_MINIMIZE Then
    ShowMessage ('Minimize')
  Else If Msg.CmdType = SC_MAXIMIZE Then
    ShowMessage ('Maximize');
  DefaultHandler (Msg);
End;

Moderiert von user profile iconjasocul: Beitrag geprüft am 22.05.2006


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!