CLX é assim Mesmo!!!
25/01/2006
0
Olá!!!
Estou fazendo um teste e criei uma aplicação com 2 forms em CLX rodando em ambiente win e um form chama o outro desta atravéz de uma procedure que fica no corpo de uma unit e não é vinculada a menhuma classe:
procedure MENSAGEM(const pMensagem: String);
var
lForm2: TForm2;
begin
lForm2 := TForm2.Create(Screen.ActiveForm);
try
lForm2.Label1.Caption := pMensagem;
lForm2.ShowModal;
finally
FreeAndNil(lForm2);
end;
end;
E no Form1 tenho um botão que qdo clico executa o seguinte:
procedure TForm1.Button1Click(Sender: TObject);
begin
MENSAGEM(´OLA MUNDO´);
end;
end.
O Resultado é que quando fico alternando entre aplicações ALT+TAB o Form2 desaparece e só reaparece quando clico sobre o Form1. Uma aplicação CLX funciona desta maneira ou tem uma solução para isso???
Valeu.
Estou fazendo um teste e criei uma aplicação com 2 forms em CLX rodando em ambiente win e um form chama o outro desta atravéz de uma procedure que fica no corpo de uma unit e não é vinculada a menhuma classe:
procedure MENSAGEM(const pMensagem: String);
var
lForm2: TForm2;
begin
lForm2 := TForm2.Create(Screen.ActiveForm);
try
lForm2.Label1.Caption := pMensagem;
lForm2.ShowModal;
finally
FreeAndNil(lForm2);
end;
end;
E no Form1 tenho um botão que qdo clico executa o seguinte:
procedure TForm1.Button1Click(Sender: TObject);
begin
MENSAGEM(´OLA MUNDO´);
end;
end.
O Resultado é que quando fico alternando entre aplicações ALT+TAB o Form2 desaparece e só reaparece quando clico sobre o Form1. Uma aplicação CLX funciona desta maneira ou tem uma solução para isso???
Valeu.
Edvilson.chaves
Curtir tópico
+ 0
Responder
Posts
26/01/2006
Dopi
Perda de foco da ShowModal é um bug conhecido da CLX... Segue o site com os Patchs de correção
http://unvclx.sf.net
http://unvclx.sf.net
Responder
Clique aqui para fazer login e interagir na Comunidade :)