Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

1st
Дек

Событие изменения формы вызывать только один раз

Posted by Chas under Delphi

как мы изменяем размер формы?
берем мышку, хватаем форму за край, тащим, отпускаем.
при этом событие OnFormResize вызывалось на каждый пиксел движения мышки…
можно как-нибудь сделать чтобы это событие вызывалось только 1 раз, когда отпускаешь мышку? может есть на этот случай другое событие?

Stilet

unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;
type

  TForm1 = class(TForm)

    procedure rez(var m:TMessage); message WM_EXITSIZEMOVE;

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.rez(var m: TMessage);

begin

 ShowMessage('Закончили перемещать или изменять размер');

end;
end.