请各位帮我搞定一个简单的试验~~(100分)

  • 主题发起人 主题发起人 jimiking
  • 开始时间 开始时间
J

jimiking

Unregistered / Unconfirmed
GUEST, unregistred user!
首先创建三个窗体 Form1 Form2 Form3 在Form1 中创建一个按钮
响应按钮的操作,将Form1隐藏, 如何同时使Form2和Form3同时出现
 
你什么意思啊?
显示只要show;隐藏只要hide就可以了呀!
 
不太明白你的意思:是指人肉眼看不出,还是指同时运行呀如果是第二种情况我想我是帮不了你
了。第一种情况的话你可以用二个线程来实际,最为实际。
 
同时出现的意思是什么
是让用户看见,就只要用show方法
但是如果使两个form都是活动那是不可能的
 
form的parent符值
 
D7下:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
Form3.Show;
end;

//在IDLE事件中处理一下,否则这两个窗体关闭后回不到Form1
procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
vardo
ne: Boolean);
begin
if (not Form2.Active) and (not Form3.Active) then
if not Form1.Active then
Form1.Show;
end;

 
谢谢~·
 
后退
顶部