Cómo implementar la ventana de chat en QQ (delphi)

¿Por qué se muestra en la barra de tareas? Delphi7:

Primero, prepara dos ventanas, Form1 y Form2, abre la opción Opciones en el menú Proyecto y mueve Form2 de izquierda a derecha.

Luego busque la implementación en el código de Form1 y escriba debajo de esta línea

usa Unidad2;

Finalmente, escriba el siguiente código:

procedimiento TForm1.Button1Click(Remitente: TObject);

comenzar

Aplicación.CreateForm(TForm2, Form2);

Form2.Show;

fin;

Haga clic en el botón una vez y aparecerá un Form2. Excepto Form1, todos los Form2 generados dinámicamente no aparecerán en la barra de tareas.

============================================ =

¡Oh! Lo que quieres decir es que quieres tener el mismo efecto que la ventana de chat de QQ. Una ventana de chat tiene una barra correspondiente en la barra de tareas, ¿verdad? No sé si mi comprensión es incorrecta. Si este es el caso, es muy simple, Form1 permanece sin cambios como se indicó anteriormente.

Simplemente declare un procedimiento en Form2 de la siguiente manera:

procedure CreateParams(var Params:TCreateParams); override;

Luego agregue el siguiente párrafo al código:

procedimiento TForm2.CreateParams(var Params:TCreateParams);

comenzar

heredado;

Params.WndParent:=GetDesktopWindow;

p>

end;

De esta forma, cada vez que se presione el botón de Form1, se generará un Form2, y cada Form2 aparecerá en la barra de tareas.