Как перехватить событие формы (Движение)

[ImmortalAlexSan]

Ребят, весь интернет перерыл, не нашел что нужно... Вобщем вопрос простой впринципе. Нужно создать форму динамически. Делаю так:

type
  TJobForm=class(TForm)
  private
  procedure pFindPosition(Var msg:TMessage); Message mPosition;
  end;

var
  gChildForm:TJobForm;

procedure TJobForm.pFindPosition(var msg: TMessage);
begin
  If msg.Msg=WM_MOVE then
    Caption:=inttostr(Top);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  gChildForm:=TJobForm.Create(Form1);
  gChildForm.Caption:='';
  gChildForm.Show;
end;

Не получается и так со многими способами... Ну и соответственно перехватить событие перемещения окна.

[ArtGrek]

ты первую хочеш создат или дополнителную?

[ImmortalAlexSan]

ArtGrek, из контекста понятно: gChildForm:=TJobForm.Create(Form1); Да и какая разница...

[dosha]

var
  formL:TForm;
begin
 formL:=TForm.Create(nil);
 formL.Show;
end;

[ImmortalAlexSan]

dosha, а как мне перехватить событие из стандартного класса TForm, не описывая новый?

[spamer]

Так что ли:

...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  Form2.Show;
end;
...

...
  TForm2 = class(TForm)
  private
    { Private declarations }
    procedure WMMove(var Msg: TWMMove); message WM_MOVE;
...

procedure TForm2.WMMove(var Msg: TWMMove);
begin
  if Msg.Msg = WM_MOVE then
    Caption := IntToStr(Top);
end;
...

[dosha]

решение выложу, ато читаешь почти все посты кусочками из гугла(которые даже нечитают)

[Stilet]

Если не ошибаюсь, решение уже выложил Spamer

[ImmortalAlexSan]

type
  TJobForm=class(TForm)
  private
  procedure pFindPosition(Var msg:TWMMove); Message WM_MOVE;
  end;

var
  gChildForm:TJobForm;

procedure TJobForm.pFindPosition(var msg: TWMMove);
begin
  Caption:=inttostr(Top);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  gChildForm:=TJobForm.Create(Self);
  gChildForm.Show;
end;

...

initialization
RegisterClass(TJobForm);
end.

Не получается... Ошибка при создании формы вываливается. 'Resource TJobForm not found'

[Slippy]

Если унаследовать TJobForm от TForm1, а не от TForm, то всё работает.

type
  TJobForm = class(TForm1)
  private
    procedure WMMove(var Msg: TWMMove); message WM_MOVE;
  public
  end;

Только при этом, естественно, унаследуются и все контролы TForm1)