quinta-feira, 11 de setembro de 2008

Fazendo uma janela filha de outra sem usar MDI

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);

with Params do
begin
Style := Style or WS_CHILD;
WndParent := Application.MainForm.Handle;
end;
end;

Nenhum comentário: