MDI: Como detectar a janela ativa?

Question

Oi pessoal,Estou fazendo um pequeno aplicativo (um mini editor de textos) usando MDI. Preciso, a partir da janela-pai, controlar as janelas-filhas, ou seja, os controles para SALVAR, SALVAR COMO, FECH...

Afarias · Answer

|1) Como detectar a janela que est� ativa;

Screen.ActiveForm

|2) Como enviar um comando da janela-pai para a janela-filha, ou seja,
|quando eu der um SALVAR na janela-pai, como fazer com que ele
|execute o SALVAR na janela correta?

(Screen.ActiveForm as TMeuForm).SalvarDados;

vc pode tb usar o evento OnActiveFormChange do objeto Screen para saber quando o usu�rio mudou de um form para outro.

T+

Yankleber · Answer

Ol�,J� consegui acessar a janela ativa usando ActiveMDIChild.Contudo, quando tento executar o salvamento do conte�do de um Memo atrav�s de uma janela de di�logo, ocorre o seguinte...Se eu fizer:[code:1:33e7c2c611]ActiveMDIChild.memTexto.Lines.SaveToFile(dlgSalvar.filename);[/code:1:33e7c2c611]o programa n�o compila pois diz que memTexto n�o foi definidoAgora, se eu fizer:[code:1:33e7c2c611]frmFilho.memTexto.Lines.SaveToFile(dlgSalvar.filename);[/code:1:33e7c2c611]quando executa a linha acima, causa um erro de exce��o...O que deve estar acontecendo???Grato!...

Afarias · Answer

ActiveMDIChild retorna um TForm.vc tem q �dizer� q est� acessando um TfrmFilho (sub-classe de TForm) para fazer o q precisa::(ActiveMDIChild as TfrmFilho).memTexto.Lines.SaveToFile(dlgSalvar.filename); T+...

Yankleber · Answer

Funcionou!Valeu mesmo, cara!Eu ainda estou apanhando um pouco com o Delphi, em rela��o a essas min�ncias... mas eu chego l�!Um abra�o!...

Gbastos · Answer

Apesar de chegar um pouco tarde, j� q j� tiraram suas d�vidas, mas tb estou desenvolvendo um editor de texto, se tiver d�vidas ou boas id�ias fale comigo..
Para quando clicar o bot�o no pai salvar no filho, eu fiz diferente, criei uma procedure Salvar no filho e o OnClick do botao do pai chamava essa procedure: (ActiveMDIChild as TEditorForm).Salvar
Outra coisa que vc talvez ache �til � o MDIChildren[I] que acessa os forms filhos, a� se vc quiser acessar todos os forms vc pode fazer algo como:

for I := MDIChildCount - 1 to 0 do
begin
   with (MDIChildren[I] as TEditorForm) do

Abra�os

Yankleber · Answer

Oi,O MDIChildren � muito �til mesmo.Eu j� tinha encontrado por a�, e usei para fazer um bot�o que fecha todas as janelas.Esse editorzinho que estou fazendo ficou muito bom (acabei de termin�-lo agora) e � um trabalho para a faculdade. Se voc� tiver interesse, posso te mandar uma c�pia dos fontes para dar uma olhada...Um abra�o!...

F�rum MDI: Como detectar a janela ativa? #194205