一个关于现实窗体的简单问题(15分)

  • 主题发起人 常山赵子龙
  • 开始时间

常山赵子龙

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在显示另一个窗体a时,使焦点一直固定窗体a上,直到窗体a被关闭;
 
用个timer控件呀,呵呵!
 
我的意思是做一个modal窗体
 
用ShowModal方法就行,如
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ShowModal ;
end;
当然要在implementation后加上uses Unit2;
是这样的意思吗?
 
那么鼠标移到旁边点一点呢?算不算失去焦点。
 
WM_ACTIVATE
 
用ShowModal打开后怎样关闭呢?
我在窗体a中用命令a.hide或a.free后都不能使焦点回到前一个窗体上。
用鼠标点击也回不去
 
不懂你的意思,CLOSE 不就回去了
要不用函数调用的方式打开窗口,就像调用 MESSAGEBOX 那样。
 
多人接受答案了。
 
顶部