Popup Form
AlexXn © (2004-12-29 14:57:00)
Как сделать 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:00) [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.
Наверх 
ЧАТ |
Орешник |
|
