子窗体 只限 弹出一次 的程序怎么写?
新手 求教 子窗体 只限 弹出一次 的程序怎么写?
主窗体
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;