Simular Form MDI
22/07/2008
0
Boa Noite, estou com o seguinte problema, utilizo o seguinte código para fazer um formulário filho de outro sem utilizar MDI assim:
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
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
Marcelo.mileris
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)