В
следующем примере показан перехват сообщения WM_EXITSIZEMOVE Хотя сообщение
документированно только для Windows NT оно работает точно так же и под
Windows 95. Обратите внимание что Вы можите перехватить сообщение
WM_ENTERSIZEMOVEдля определения момента начала пользователем операции
изменения размера или перемещения окна.
Пример:
type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure WMEXITSIZEMOVE(var Message: TMessage);
message WM_EXITSIZEMOVE;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
Form1.Caption := 'Finished Moving and sizing';
end;
Источник:
Дельфи. Вокруг да
около.
|
Copyright ©
"Мастера DELPHI" E-mail:
delphi@mastak.com
http://www.delphimaster.ru |
Источник получения информации: http://www.delphimaster.ru
|