Ver Mensaje Individual
  #2  
Antiguo 14-06-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Prueba poner este código en las ventanas secundarias que desees que se muestren en la barra de tareas:

Código:
type
  TForm2 = class
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

implementation

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := WS_EX_APPWINDOW;
end;
// Saludos

Última edición por roman fecha: 14-06-2003 a las 16:35:50.
Responder Con Cita