[Alegun]

Пример из drkb

Код:

interface

procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;

implementation

procedure TMainForm.CMShowingChanged(var Message: TMessage);
var
theRect: TRect;
begin
inherited;
theRect := GetClientRect;
AlignControls(nil, theRect);
end;

или при создании

Код:

var
 ProjectWindow: TWndProject;
begin
If not ProjectActive then 
begin
   LockWindowUpdate(ClientHandle);
   ProjectWindow:=TWndProject.Create(self);
   ProjectWindow.Left:=10;
   ProjectWindow.Top:=10;
   ProjectWindow.Width:=373;
   ProjecTwindow.Height:=222;
   ProjectWindow.Show;
   LockWindowUpdate(0);
end;
end;