FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Agrupar ventanas en la barra de tarea
Buenas como estan, e creado todas mis ventanas para que funcionen independientemente con el siguiente codigo
Código:
procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW; Params.WndParent := GetDesktopWindow; end; Agradeceria mucho su ayuda. GRACIAS |
#2
|
|||
|
|||
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. |
#3
|
|||
|
|||
Encontre la solución :)
unit main;
interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type Tfrmain = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var frmain: Tfrmain; implementation uses Unit1; {$R *.DFM} procedure Tfrmain.Button1Click(Sender: TObject); begin with TForm1.Create(Self) do try Show; finally end; end; end. -------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); private procedure CreateParams(var Params: TCreateParams); override; public end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); with Params do begin ExStyle := ExStyle or WS_EX_APPWINDOW; WndParent := GetDesktopwindow; end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Free; end; end. |
|
|
|