Popup Form

← →
AlexXn (2004-12-29 14:57) [0]

Как сделать Popup форму, т.е. ечть форма со всеми мне нужными контролами, классами и прочее. Хотелось бы, чтобы она вела себя также как и popup контролы( пряталась при деактивизации).
procedure CMCancelMode(var Message: TCMCancelMode); message CM_CANCELMODE;
procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
procedure CreateParams(var Params: TCreateParams); override;
не помогли... Хелп.

← →
Programmix © (2004-12-29 16:35) [1]

1)Главная форма

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
end;

end.

2)Вторая форма (popup)

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm2 = class(TForm)
private
{ Private declarations }
procedure OnActivate(var msg: TWMActivate); message WM_ACTIVATE;
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.OnActivate(var msg: TWMActivate);
begin
inherited;
if msg.Active=WA_INACTIVE then Close;
end;

end.

Popup Form Найти похожие ветки