16,749
社区成员
发帖
与我相关
我的任务
分享如何取消其他程序窗口的Showmodal模式？？
我要用程序a发信息让程序B的form1窗口取消Showmodal模式，并隐藏，不知道有什么办法， 程序b和form1窗口的句柄已经获得了。用按个命令参数能让form1窗口的showmodal模式取消，并隐藏呢？有会的大虾不？
...全文
请发表友善的回复…
发表回复
lihuasoft 2007-05-06
- 打赏
- 举报
试了一下楼上的代码，怎么不行啊？按道理应该是可以的，因为这个消息是取消正在运行的模态。
楼上给讲解一下？
楼上给讲解一下？
海天 2007-05-06
- 打赏
- 举报
SendMessage(FormHandle, WM_CANCELMODE, 0, 0);
sdzeng 2007-05-06
- 打赏
- 举报
VCL里Form.ShowModal时，其它窗体被禁用的过程是这样子：
TCustomForm.ShowModal——DisableTaskWindows——EnumThreadWindows——DoDisableWindow
上面例子是照着这个过程写了一个“反过程”
TCustomForm.ShowModal——DisableTaskWindows——EnumThreadWindows——DoDisableWindow
上面例子是照着这个过程写了一个“反过程”
sdzeng 2007-05-06
- 打赏
- 举报
//form1
procedure TForm1.Button1Click(Sender: TObject);
var
f2 : TForm2;
begin
f2 := TForm2.Create(Self);
f2.ShowModal;
f2.Free;
end;
//form2
function DoEnableWindow(Window: HWnd; Data: Longint): Bool; stdcall;
begin
if IsWindowVisible(Window) and
(not IsWindowEnabled(Window)) then
begin
EnableWindow(Window, True);
end;
Result := True;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var
h : THandle;
WindowList : Pointer;
begin
EnumThreadWindows(GetCurrentThreadID,@DoEnableWindow,0);
Timer1.Enabled := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
f2 : TForm2;
begin
f2 := TForm2.Create(Self);
f2.ShowModal;
f2.Free;
end;
//form2
function DoEnableWindow(Window: HWnd; Data: Longint): Bool; stdcall;
begin
if IsWindowVisible(Window) and
(not IsWindowEnabled(Window)) then
begin
EnableWindow(Window, True);
end;
Result := True;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var
h : THandle;
WindowList : Pointer;
begin
EnumThreadWindows(GetCurrentThreadID,@DoEnableWindow,0);
Timer1.Enabled := False;
end;
lihuasoft 2007-05-05
- 打赏
- 举报
向VB版的暴风雨学习的:
模态窗口显示时，其owner window是被Disable的，所以模态窗口才呈现“模态”，所以只要将模态窗口的owner window设置为enable即可实现改变其模式显示状态
var
H : HWND;
begin
H := FindWindow(nil, PChar('模态窗体的OwnerWindow的标题'));//H 即Owner的句柄
EnableWindow(H, True);
end;
模态窗口显示时，其owner window是被Disable的，所以模态窗口才呈现“模态”，所以只要将模态窗口的owner window设置为enable即可实现改变其模式显示状态
var
H : HWND;
begin
H := FindWindow(nil, PChar('模态窗体的OwnerWindow的标题'));//H 即Owner的句柄
EnableWindow(H, True);
end;
xbxsoft 2007-04-20
- 打赏
- 举报
晕。。。。。
chenzhuo 2007-04-20
- 打赏
- 举报
SORRY,那帮不了你!
xbxsoft 2007-04-20
- 打赏
- 举报
都不行呀，要取消 Showmodal 模式，但不能关闭
chenzhuo 2007-04-20
- 打赏
- 举报
SendMessage(FormHandle, WM_CLOSE, 0, 0);
SendMessage(FormHandle,CM_VISIBLECHANGED,ord(ture),0);
SendMessage(FormHandle,CM_VISIBLECHANGED,ord(ture),0);
chenzhuo 2007-04-20
- 打赏
- 举报
把他关闭之后再用非模态窗体打开就行啦!
repeat
Application.HandleMessage;
if Application.FTerminate then ModalResult := mrCancel else
if ModalResult <> 0 then CloseModal;
until ModalResult <> 0;
ShowModal的其中一部分代码,你说他要怎么取消!
repeat
Application.HandleMessage;
if Application.FTerminate then ModalResult := mrCancel else
if ModalResult <> 0 then CloseModal;
until ModalResult <> 0;
ShowModal的其中一部分代码,你说他要怎么取消!
xbxsoft 2007-04-20
- 打赏
- 举报
晕，不能关闭呀，我知道如何关闭的，只能把窗口的Showmodal取消，然后隐藏该窗口
nadel 2007-04-20
- 打赏
- 举报
取消模式窗体并隐藏，这和关闭该窗体一个意思吧？直接发WM_CLOSE消息就可以了。
SendMessage(FormHandle, WM_CLOSE, 0, 0);
SendMessage(FormHandle, WM_CLOSE, 0, 0);
