que comando devo usar?

Question

Boa tarde,Tenho 2 Form�s, um chamado FORM_A e outro FORM_B, a pergunta � a seguinte:--- Preciso chamar o FORM_B atrav�s do FORM_A, quando o FORM_B for fechado, o foco dever� voltar para o FORM_A na li...

Marcao · Answer

Alguem pode me ajudar?Obrigado!Marcos...

Fabio.hc · Answer

Tente assim:[code:1:30b3398cd2]   FORM_B.ShowModal;[/code:1:30b3398cd2]...

Marcao · Answer

Boa tarde Fabio.HC,agrade�o sua aten��o, mas n�o funcionou, d� um erro como esse:�Cannot make a visible window modal�se voce souber que erro � esse, me avise, ok?,Mesmo assim obrigado pela aten��o, Marcos....

Fabio.hc · Answer

O FORM_B tem ter a propriedade windownstate=wsnormal....

Marcao · Answer

est� como windownstate=wsnormal, mesmo assim o erro continua.Marcos...

Marcao · Answer

Fabio, n�o deu o erro, mas quando fecho o form_b (cepfrm) o foco nao retorna p/ a pr�xima linha do codigo.

aqui vai um peda�o do c�digo:

procedure TEmpresaFrm.BitBtn1Click(Sender: TObject);
begin
if cepfrm = Nil Then
begin
cepfrm:=Tcepfrm.Create(Self);
end
else
begin
cepfrm.WindowState := wsNormal;
cepfrm.BringToFront;
cepfrm.Focused;
cepfrm.ShowModal;
showmessage(�tem que continuar nessa linha apos cepfrm for fechado�);
end;
end;

Jaguarnet7 · Answer

try       FORM_B.ShowModal; finally        // aki voce muda o foco pro proximo end; deve funcionar...

Fabio.hc · Answer

Seu codigo.[code:1:cff6f32216]procedure TEmpresaFrm.BitBtn1Click(Sender: TObject); begin if cepfrm = Nil Then    begin    cepfrm:=Tcepfrm.Create(Self);    end else    begin    cepfrm.WindowState := wsNormal;    cepfrm.BringToFront;    cepfrm.Focused;    cepfrm.ShowModal;    showmessage(�tem que continuar nessa linha apos cepfrm for fechado�);    end; end;[/code:1:cff6f32216]Fiz estas corre��es e funcionou:[code:1:cff6f32216]procedure TEmpresaFrm.BitBtn1Click(Sender: TObject); begin if cepfrm = Nil Then //   begin    cepfrm:=Tcepfrm.Create(Self); //   end //else //   begin    cepfrm.WindowState := wsNormal;    cepfrm.BringToFront;    cepfrm.Focused;    cepfrm.ShowModal;    showmessage(�tem que continuar nessa linha apos cepfrm for fechado�); //   end; end;[/code:1:cff6f32216]ps. Passei o comando errado, o certo � �FormStyle=fsNormal�...

Bacalhau · Answer

A mensagem �Cannot make a visible window modal� � resolvida colocanco no FORM_B a propriedade Visible := false;abra�obacalhau...

Marcao · Answer

Bom dia a todos que est�o tentando ajudar-me,

Eu estou trabalhando com formul�rios do tipo fsMDIChild, a propriedade visible s� pode ser true, at� agora as tentativas passadas por voc�s nao deu certo, mesmo assim agrade�o a aten��o de todos, obrigado.

Marcos.

Bacalhau · Answer

� criatura de Deus, agora � que dizes que � MDIChild??? :lol:

Faz assim:

FormTal := TFORM_B.create(self);
FormTal.FormStyle := fsNormal; // desactiva MDIChild
FormTal.WindowStyle := WsNormal;
FormTal.Visible := False;
FormTal.showmodal;

Enquanto o FORM_B estiver activo o FORM_A n�o pia!! Depois de fechar, � passar o focus para onde queres, quest�o que j� foi explicada anteriormente.

Abra�o
bacalhau

Marcao · Answer

Caro amigo bacalhau,Funcionou do jeito que eu queria, valeu pela for�a,e agrade�o a todos os que tentaram, OBRIGADO!Marcos....

Bacalhau · Answer

abra�o do peix�o,,, 8)...

F�rum que comando devo usar? #190969