子窗体只限弹出一次的程序怎么写？

scl0917 发布于 2006-05-16 08:07， 1365 次点击

新手求教子窗体只限弹出一次的程序怎么写？

10 回复

xu20002006-05-16 09:01

做一个boolean的变量，初值为真，弹出之前先判断，真可以，假就不弹出。弹出一次后改变它为假。

scl09172006-05-18 08:52

还是不会

好象米说的那么简单编了下可还是弄不出来能说的详细点吗

xu20002006-05-18 14:07

主窗体
var
Form1: TForm1;
b:boolean;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var choice,content:string;
begin
if not b then
form2.Show;
end;

要判断的窗体
implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);
begin
b:=true;
end;

scl09172006-05-22 08:36

成功~~

斑竹成功了~~~~~~ 嘎嘎谢谢啊~~~~！

scl09172006-05-23 08:41

又有新问题拉~~~~~~~

发现个问题子窗体打开后在关闭就不能在打开了！！！！！！！！~~~~~~~~~~~

xu20002006-05-23 13:57

你不是说只限它弹出一次的吗？

scl09172006-05-25 08:36

我的意思是我按一次按扭主窗体只能弹出一次但关闭后还是能弹出的

xu20002006-05-26 10:04

不明白你的意思！

#10

YunER10012006-05-26 14:16

If not assigned(frmX) then
frmX:=TfrmX.Create(nil);
frmX.Show;

说明：FrmX为你要弹出的窗体对象

#11

coldwave2006-05-28 13:31

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
end;

子窗体 只限 弹出一次 的程序怎么写？