如何使子窗体在最小化时,在单击使用刚刚打开它的控件要如何设置的.

[langren1314]

父窗体的代码:
uses unit2;
procedure TForm1.open2Click(Sender: TObject);
begin
form2:=tform2.Create(self);//设置在form2没有关闭或是最小化是在一次单OPEN时可以凋用本子窗体,而不是新添加一个窗体要如何设置.
form2.Show;
end;

[楚人无衣]

implementation

uses Unit2;

var
Form2: TForm2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned(Form2) then
begin
Form2 := TForm2.Create(self);
Form2.Show;
end
else if Form2.WindowState = wsMinimized then
Form2.WindowState := wsNormal
else
Form2.Show;
end;

• 打赏
• 举报

回复 赞

[jinjazz]

学习

• 打赏
• 举报

回复 赞

[xdf221]

看不懂楼主的意思

• 打赏
• 举报

回复 赞