|
Yo tengo el siguiente codigo. Consiste en un formulario principal, que tiene un boton. Cada vez que pulsamos ese boton crea una ventana hija. Esas ventanas hijas me gustaria que al minimizarlas aparecieran justo en la barra de tareas y no encima de ella. ¿alguien me puede ayudar? Gracias.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, unit2, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure CreateParams(var Params: TCreateParams); override;
end;
var
Form1: TForm1;
sMensaje:string;
implementation
{$R *.dfm}
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create(Self) do
try
Show;
finally
end;
end;
end.
|