Ver Mensaje Individual
  #7  
Antiguo 18-08-2007
Avatar de lag_0
lag_0 lag_0 is offline
Miembro
 
Registrado: jul 2006
Posts: 131
Reputación: 18
lag_0 Va por buen camino
Cita:
Empezado por xEsk Ver Mensaje
Si te refieres a que un segundo formulario aparezca también en la barra de programas, pues es sencillo:

Aquí te pongo un ejemplo de como implementar el código (ese código debes ponerlo en los formularios que quieras hacer aparecer en la barra de programas):


Código Delphi [-]
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
protected
procedure CreateParams(var Params: TCreateParams); override;
end;




E implementa el siguente código para el CreateParams:


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




Ahora cuando se muestre este "TForm2" aparecerá como una "ventana independiente" en la barra de programas.

Saludos.

P.D.: Por "barra de programas" entiendo el espacio que hay entre el "Inicio" y "la hora", vamos donde se van poniendo los programas abiertos.

Perfecto..
Responder Con Cita