TForm.Create Nombre dupplicados - Chat

[ecfisa]

Hola adonias.

El problema es que me crea el form IdChatxx, pero no me deja cliquear al form1 o form padre.

Eso es lógico por que en la creación estás haciendo esto:

Código Delphi [-]
F.ShowModal;

Y si la mostrás en forma modal no te va a dejar abandonar el creado.

La forma típica de mostrar una ventana no modal es:

Código Delphi [-]
procedure TForm1.MostrarNoModal(AClass: TFormClass);
var
  Form: TForm;
begin
  Form:= TForm(Application.FindComponent(Copy(AClass.ClassName,2,255)));
  if Assigned(Form) then
    Form.Show
  else
    AClass.Create(Application).Show;
end;

Llamada:

Código Delphi [-]
MostrarNoModal(TForm2);

Si no es esto lo que estás buscando, como dice el amigo Caral arriba, especificá un poco más.


Saludos.

[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.