Скачать: CL | DM;

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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.964 c