Системные кнопки формы. Перехват

My Help » Pascal Delphi » Системные кнопки формы. Перехват

Системные кнопки формы. Перехват

Автор: reader hlp от 15-12-2018, 12:47, посмотрело: 56

Type TMain = class(TForm)
....
public
{ Public declarations }
procedure WMSize(var Message: TWMSize); message WM_SIZE;
.....

procedure Tform1.WMSize(var Message: TWMSize);
begin
inherited;
if WindowState = wsMaximized then
begin
....
end;
if WindowState = wsMinimized then
begin
....
end;
if WindowState = wsNormal then
begin
....
end;

end;

0
1
2
3
4
5

Категория: Pascal Delphi

Моя записная книжка. Всегда при мне

Системные кнопки формы. Перехват