Simular Form MDI

22/07/2008

1

Boa Noite, estou com o seguinte problema, utilizo o seguinte código para fazer um formulário filho de outro sem utilizar MDI assim:

procedure TForm1.CreateParams(var Params: TCreateParams); 
begin 
inherited CreateParams(Params);
with Params do 
begin 
Style := Style or WS_CHILD;
WndParent := Application.MainForm.Handle; 
end; 
Parent := Application.MainForm; // <-- Está linha
end; 


Até ai tudo bem, o problema é que, quando eu crio o formulário com esses parâmetros e desse eu chamo outro que seja Modal ou até mesmo um ShowMessage ou ainda um MessageBox, quando o mesmo é fechado o formulário principal perde o foco, fazendo com que o usuário tenha que ´achar´ o Form Principal.

A linha que está comentada faz com que a barra de título fique desativada e confunde um pouco o usuário

Alguem já passou por esse problema?


Desde já agradeço


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira