Delphi Anwendung minimiert ?

Thema durchsuchen

Ansicht

Themen-Optionen

Anwendung minimiert ?

Ein Thema von Nils_13 · begonnen am 3. Mär 2007 · letzter Beitrag vom 3. Mär 2007

Vorheriger Beitrag

Nächster Beitrag

Blackheart

Registriert seit: 4. Mai 2005
846 Beiträge

Delphi 7 Enterprise

Re: Anwendung minimiert ?

3. Mär 2007, 14:20

zusammenfalten · markieren

Delphi-Quellcode:

			public

   procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSysCommand;

begin

  if (Msg.CmdType = SC_MINIMIZE) then ShowMessage('Klein');

  if (Msg.CmdType = SC_MAXIMIZE) then ShowMessage('Groß');

  DefaultHandler(Msg);

end;