Ver Mensaje Individual
  #6  
Antiguo 18-08-2007
Avatar de xEsk
[xEsk] xEsk is offline
Miembro Premium
 
Registrado: feb 2006
Posts: 454
Reputación: 19
xEsk Va por buen camino
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.

Última edición por xEsk fecha: 18-08-2007 a las 20:28:15.
Responder Con Cita