...
const
WM_AFTER_CREATE = WM_USER + 100;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure WmAfterCreate(var Msg: TMessage); message WM_AFTER_CREATE;
public
end;
...
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
PostMessage(Self.Handle, WM_AFTER_CREATE, 0, 0);
end;
procedure TForm1.WmAfterCreate(var Msg: TMessage);
begin
end;
...