Mais de um Form, e depois como chamar tal?

Question

Iae pessoal, blz?pra se abrir mais de uma vez um mesmo tipo de form por exemplo se faz o seguinte:    with tform2.create(self) dobegin   Show; end;bem. a� se pode abrir v�rios se for ativando esse c�d...

Beppe · Answer

Se eu entendi bem, use a vari�vel global definida na unit do form. Ex:[code:1:b1c8f3eebe]if Form2 = nil then Form2 := TForm2.Create(Application);Form2.Show;[/code:1:b1c8f3eebe]Ataliba...

Lipsil · Answer

N�o, acho qn�o � isso kra..seria tipo como distinguir tal form2 atraves de por exemplo seu titulo q � diferente de todos os outros?...

Beppe · Answer

Tente criar uma stringlist para armazenar os captions destes forms e armazena o pr�prio como o object relacionado. Pra ativ�-lo depois, procure-o na stringlist.

Ao criar um form:

Janelas.AddObject(NovoForm.Caption, NovoForm);

Pra ativar, dado um caption:

TForm(Janelas.Objects[Janelas.IndexOf(Nick)]).Show;

Ataliba

Lipsil · Answer

Valew kra, acho q � por a� mesmo!!!Mas tipo esse form seria aberto ao se dar dois cliques numa lista de nicks, por�m, se o form pra tal nick j� estiver aberto, como fa�o pra q n�o seja aberto outro com tal nome?E tb nesse c�d q passou, em qual situa��o usa-lo para abrir um novo form, e tb em qual situa��o usa-lo para adicionar algo tipo no richedit1 q tiver nele?Valew...

Claudio Quevedo · Answer

Uma solu��o que englobaria os dois problemas seria colocar o nick como caption:
with tform2.create([u:71576a7de4]Application[/u:71576a7de4]) do
begin
[u:71576a7de4]Caption := Nick[/u:71576a7de4]
Show;
end;

Crie um fun��o que retorna o form de um determinado nick:
function NickToForm(ANick: string): TForm;
var
Indice: integer;
begin
result := nil;

for Indice := 0 to Application.ComponentCount - 1 do
if Application.Components[Indice] is TForm then
if TForm(Application.Components[Indice]).Caption = ANick then
begin
result := TForm(Application.Components[Indice]);
Break
end;
end;

Se o form do nick n�o existir a fun��o retornar� nil, se existir retornar� o form...

Lipsil · Answer

Ok, valew kra, � quase isso ainda!! :-P hehehe, ta dificil chegar nos finalmentes...

mas tipo assim, como mudar os dados de por exemplo um memo1 de um form chamado tpvt q existe entre outros varios tpvt, por�m, este com o caption de TESTANDO, como fazer isso?

E tb, esse function anteriormente postado, como chamar ele para verificar se j� existe ou n�o tal form com tal caption? E tb n�o permitir q seja aberto dois form tpvt q tenham o mesmo caption, e sim, ao clicar num nick q j� tem um form aberto, q apenas seja sobreposto aquele form que na verdade j� esta aberto, como?

Valew

F�rum Mais de um Form, e depois como chamar tal? #190530