Minimalizování okna – Delphi – Fórum – Programujte.com

Dobrý den. Mam aplikaci a potreboval bych odchytit kliknutí na tlačítko minimalizovat. To znamena, ze kdyz uzivatel klikne na tlacitko minimalizovat tak aby se mu treba objevila zprava: Minimalizoval jsi okno.....Jak na to? Predem dekuji za odpoved.

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;



type

  TForm1 = class(TForm)

    procedure WMSysCommand(var Msg: TWMSysCommand);

     message WM_SYSCOMMAND;

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.WMSysCommand;

begin

  if (Msg.CmdType = SC_MINIMIZE) then showmessage('Minimalizoval jsi okno') else inherited;

end;



end.