window handle

[Pegasus_Seiya]

hi

how to create a window handle on Lazarus (Windows)?



Thanks

[JanH]

Handle is a property of all descendants of TWinControl.
If you want to Create your own Handle (WinAPI - CreateWindow(...)) then your code is platformspecific.

[Pegasus_Seiya]

Handle is a property of all descendants of TWinControl.
If you want to Create your own Handle (WinAPI - CreateWindow(...)) then your code is platformspecific.

thanks

[Pegasus_Seiya]

how to make it on lazarus??

hWindow     := Classes.AllocateHWND(WindowEvent);

[JanH]

how to make it on lazarus??

hWindow     := Classes.AllocateHWND(WindowEvent);

Try it like this:

Code: [Select]


TMyForm=class(TForm)
private
  procedure WndProc(var TheMessage : TMessage); override;
end;

procedure TMyForm.WndProc(var TheMessage : TMessage);
begin
  if( TheMessage.Msg=WM_ACTIVATE )then begin
    //do anything
  end;
  inherited WndProc( TheMessage );
end;


Then you have a form object with an new window procedure without accessing windows api directly. and it works ;-)

[Pegasus_Seiya]

hi

thanks

I'll try it

=)