Ver Mensaje Individual
  #1  
Antiguo 21-08-2010
Avatar de adonias
adonias adonias is offline
Miembro
 
Registrado: ago 2007
Posts: 45
Reputación: 0
adonias Va por buen camino
Unhappy TForm.Create Nombre dupplicados - Chat

hola amigos.

Estoy creando una mini aplicacion tipo live help o mini chat

Ya tengo la coneccion con el servidor, y ahora lo que necesito es crear un form para mostrar nuevos mensages.

Buscando en el foro encontre algunas soluciones, pero no logro:

1- Al crear al nuevo Form, que me detecte nombre duplicados.

2- Que se vea en la barra de tareas de windows el nombre del nuevo form creado.

Para detectar ventanas duplicadas estoy intentando esto:

Código Delphi [-]

var
  F:TForm;
  I : integer;
  N : boolean;
begin

N:= false;

for I := 0 to Screen.FormCount-1 do
  begin
    if Screen.Forms[i].name = 'IdChatxx'
    then N := true ;

    if N = false then begin

      F := TForm.Create(self);
      try
        F.Name := 'IdChatxx';
        F.ShowModal;
      finally
        F.Free;
      end

    end
  end

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

Aunque intento buscar el nobre, igual me crea al form y me lanza error de duplicate names

Gracias por su ayuda amigos
Responder Con Cita