遇到一个问题~,一个程序中,有两个窗体。一个是MainForm,一个不是,在MainForm中用SHOW打开另一个窗体,如何才能使新窗体,出现在任务栏并且和主窗

G

Ghostcn

Unregistered / Unconfirmed
GUEST, unregistred user!
遇到一个问题~,一个程序中,有两个窗体。一个是MainForm,一个不是,在MainForm中用SHOW打开另一个窗体,如何才能使新窗体,出现在任务栏并且和主窗体可以用Alt+Tab切换?(150分)<br />遇到一个问题~,一个程序中,有两个窗体。
一个是MainForm,一个不是,在MainForm中用SHOW打开另一个窗体,
如何才能使新窗体,出现在任务栏并且和主窗体可以用Alt+Tab切换?

我在写一个邮件客户端软件,自带一个地址簿,就是那个新窗体。
所以地址簿必须能独立显示在任务栏上。
主窗体控制整个程序的关闭和启动。

在VB里这个很容易就实现,只要在新窗体的属性里设一下就可以,为什么在Delphi里这么难?
 
重载Create Params;

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent:=0;
end;
 
Form.Show
Form.Update
这样能用 Alt 切换,如用Alt+Tab切换,自己可以在FORM里定义啦
 
楼上的两位的方法都不管用啊~
呆四少,您能详细说一下你的意思吗?
我是个Delphi的新手~
 
对不起,我刚试了一下,能在任务栏显示出来,不过不能用ALT+TAB切换.

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm2 = class(TForm)
private

{ Private declarations }
public

protected //这是加上的部分
procedure CreateParams(var Params: TCreateParams);override;//这是加上的部分
end;

var
Form2: TForm2;

implementation

{$R *.DFM}



{ TForm2 }

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent:=0;
end;

end.

 
呆四少,真是太谢谢你了,这个问题捆扰我好久了~
我试了很多方法都不管用~

对了你的代码可以用ALT+TAB切换啊
你有QQ吗?交个朋友吧。
 
哦??????呵呵,看来是写程序太久了,昏头了 .呵呵.
QQ号码是3119572
 
顶部