TForm.Create Nombre dupplicados - Chat

[adonias]

Ok.

logre resolver el problema 1, junto al de no poder cliquear el form padre asi:

Código Delphi [-]
var
  F:TForm;
  I : integer;
  N : boolean;
begin
//defino como falso
N:= false;

for I := 0 to Screen.FormCount-1 do
  begin
    if Screen.Forms[i].name = 'IdChatxx'
    then N := true ; 
// si exite la ventana con ese nombre es true 
//y no abro un nuevo form con la misma conversacion
end;

//si es falso, abro la ventana con la conversacion IdChatxx
    if N = false then begin

      F := TForm.Create(Application);
      F.Name := 'IdChatxx';
      F.Show;
//creo un evento para poder tocar al form padre y si el usuario cierra 
//la ventana y hay una nuevo mensage, no me de error de nombre
      F.OnClose := EventoFree;


    end


end;



procedure TForm1.EventoFree(Sender: TObject; var Action: TCloseAction);
begin
   Sender.Free;
end;

No se si sera la mejor manera, pero me resulto.

Ahora solo me falta mostrar el form IdChatxx, en la barra de windows

[adonias]

Encontre esto en el foro.

Supuestamente deberia aplicarce para todos los form que se generen, pero solo funciona para el form1

Código Delphi [-]
procedure TForm1.CreateParams
   (var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle
                    or WS_EX_APPWINDOW;
end;

Alguna idea de lo que puede ser?

[ecfisa]

Hola adonias.

No, supuestamente se puede aplicar en la creación de un componente, en este caso un TForm,
aunque bién podría ser cualquier TWinControl.

Es decir que si sobreescribís el método CreateParams para el Form1, tenés que hacer lo propio
para todos los Forms en los cuales desees alterar la creación por defecto de los mismos.

Saludos.