Formulários independentes no Delphi, estilo MSN
Criar formulários no estilo do MSN, onde cada janela de bate-papo fica independente da aplicação, é muito fácil no Delphi. Para isto, basta sobrepor o método CreateParams no formulário desejado.
No exemplo abaixo eu criei um formulário (frmMSN) que é utilizado por outras duas janelas com essas características.
O resultado: todos os formulários herdados deste modelo ficaram em janelas independentes da aplicação, você pode observá-los na barra de tarefas do windows, no desktop, como na imagem acima:
type
TfrmMSN = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
protected
procedure CreateParams(var Params: TCreateParams);
override;
end;
implementation
{$R *.dfm}
procedure TfrmMSN.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;
merito http://www.alexandrejose.cominteressante tambem:
procedure TfrmCadForn.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
ExStyle := ExStyle OR WS_EX_APPWINDOW ;
WndParent := Application.Handle;
end;
end;
A mudança foi feita de WndParent := GetDesktopWindow para WndParent := Application.Handle
This entry was posted
on 09:42
and is filed under
DELPHI
.
You can leave a response
and follow any responses to this entry through the
Assinar:
Postar comentários (Atom)
.