Спрятать окно при сворачивании

← →
Shanker (2005-02-25 17:00) [0]

Нужно, чтобы по нажатию клавиши в шапке окна Свернуть окно на самом деле не сворачивалось, а пряталось.
Пробовал использовать ShowWindow - в событии OnMinimize - оказалось, сначала сворачивает, а потом посылает окну сообщение :(

← →
olookin © (2005-02-25 17:14) [1]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure OnMin(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.OnMin(Sender: TObject);
begin
ShowWindow(Form1.Handle,SW_RESTORE); Form1.Hide;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMinimize:=OnMin;
end;

end.

Спрятать окно при сворачивании Найти похожие ветки