Процедура при перемещении формы

[Alex Cones]

Как создать процедуру, которая будет выполнятся при перетаскивании формы?
P.S. Тип формы - none, бара с мин, разв, закр нет, юзаю ReleaseCapture;
FRMMain.Perform(WM_SysCommand,$F012 ,0);

[Stilet]

которая будет выполнятся при перетаскивании формы?

Обработчик события?

[Alex Cones]

Да, по типу onCreate, onMouseDown.

[Stilet]

Такой подойдет?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure w(var m:TMessage); message WM_MOVING;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SysCommand,$F012 ,0);
end;

procedure TForm1.w;
begin
caption:=inttostr(left)+' '+inttostr(top);
end;

end.

[Alex Cones]

Огромное спасибо! Конечно подойдет. Кстати, а такое можно сотворить с любой мессагой?

[Stilet]

Кстати, а такое можно сотворить с любой мессагой?

Если ты имеешь ввиду описать ее обработчик то да. Ессно так любую мессагу можно вылавливать.

[Alex Cones]

А как быть с WS_MAXIMIZED? Ведь она входит в WM_SYSCOMMAND! Каким должно быть написание?

[Kotofff]

Можно так (как вариант) использовать WMSyscommand.
Объявляем :

  private
    procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;

Используем :

procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begin
   case (msg.CmdType and $FFF0) of
     SC_MINIMIZE: 
                  // действия при минимизации формы
     SC_RESTORE : 
                  // действия при восстановлении размера формы
     SC_MAXIMIZE: 
                  // действия при "распахивании" формы
   end;
   inherited;
end;

А можно (конечно не по твоему вопросу) еще использовать WMEXITSIZEMOVE - событие которое происходит когда форма уже изменила размер или положение на экране. Объявляем :

  public
    procedure WMEXITSIZEMOVE(var Message: TMessage); message WM_EXITSIZEMOVE;

Используем :

procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
....
....
end;