Menu Janelas - Como impedir abrir uma janela j� aberta?

Question

A quest�o � a seguinte: tenho um menu �Janelas� que mostra todas as janelas j� abertas, mas eu gostaria que n�o fosse poss�vel abrir uma janela que j� se encontra aberta, pois pode ser que d� pau n...

Fatrix · Answer

Primeiro voce deve escrever a seguinte fun��o e declara-l� na se��o
private do c�digo:

private
{ Private declarations }
function Formexiste(nomejanela:Tform):boolean;
public
{ Public declarations }
end;

implementation

{$R *.DFM}

Function TForm_Principal.Formexiste(Nomejanela:TForm):boolean;
var
I : integer;
begin
Formexiste := false;
for i := 0 to componentcount - 1 do
if Components[i] is TForm then
if TForm(Components[i])= nomejanela then
Formexiste := true;
end;

� simples, no menu janela coloque o seguinte c�digo:

If Formexiste(Nome do Form) = false then
Begin
Nome do Form := TNome do Form.Create(Self);
end
else
If Formexiste(Nome do Form) = true then
Begin
showmessage(�A janela j� est� aberta�);
Nome do Form.BringToFront;
Nome do Form.SetFocus;
end;

Espero ter ajudado

Tejo_pan · Answer

EXECENTE!!! Funcionou perfeitamente. Muito obrigado mesmo.Sergio Costa Faria...

Sgubert · Answer

Ol� amigo!!!!Ser� que seia poss�vel vc me exemplificar como vc imlementou esse seu menu janelas???? Tenho uma aplica��o MDI e gostaria de fazer este menu!!! Com rela��o a seu problema tente o seguinte, � mais simples e f�cil.....No evento on create da janela:if Janela01 = nilthen �mostra ela�else �traz ela para frente ou da uma mensagem�OBS: No evento on destroy das janelas vc deve fazer o seguinte:Janela01 = nil.=> Acho que assim � bem masi f�cil e leg�vel....[]�sSamuel Gubert...

Tejo_pan · Answer

segue o menu abaixo:| Arquivo | Cadastro | Janelas | Ajuda |No menu Janelas voc� dever� defini-la como �Window Menu� no Object Inspector. Depois, no seu formul�rio principal voc� dever� escrever o c�digo acima (o primeiro c�digo), em seguida, para cada janela que voc� for abrir (exemplo: cadastro >> clientes) voc� implementar� o segundo c�digo.Espero ter ajudado.AtenciosamenteSergio Costa Faria...

F�rum Menu Janelas - Como impedir abrir uma janela j� aberta? #227409