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

langren1314 2004-05-08 01:51:35
父窗体的代码:
uses unit2;
procedure TForm1.open2Click(Sender: TObject);
begin
form2:=tform2.Create(self);//设置在form2没有关闭或是最小化是在一次单OPEN时可以凋用本子窗体,而不是新添加一个窗体要如何设置.
form2.Show;
end;
...全文
13 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xdf221 2004-05-08
看不懂楼主的意思
  • 打赏
  • 举报
回复
jinjazz 2004-05-08
学习
  • 打赏
  • 举报
回复
楚人无衣 2004-05-08
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;
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

4968

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2004-05-08 01:51
社区公告
暂无公告