type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WndProc(var Message: TMessage); override; // 重载
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WndProc(var Message: TMessage);
var
WndPosFlag: Integer;
begin
if Message.Msg = WM_SHOWWINDOW then
begin
if Message.WParam = 0 then
begin
Exit;
end;
end;
inherited;
end;