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

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.

тема на форуме

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

made in programmersforum 7

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

Похожие статьи