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

langren1314 2004-05-08 01:51:35
父窗体的代码:
uses unit2;
procedure TForm1.open2Click(Sender: TObject);
begin
form2:=tform2.Create(self);//设置在form2没有关闭或是最小化是在一次单OPEN时可以凋用本子窗体,而不是新添加一个窗体要如何设置.
form2.Show;
end;
...全文
61 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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;

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧