Определение момента окончания изменения размера окна в Delphi

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; 
Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (9 оценок, среднее: 4,89 из 5)
Загрузка...
Добавить комментарий