用Delphi 模拟自定义菜单

[formernetcn]

据说程序中的下拉菜单的父窗体是桌面， 按照这个原理可以实现自定义下拉单，下拉菜单中的内容还可以自很多控件。

按下面方法来做，在窗体中放个Panel和一个Button，然后设置Button的事件

Panel的Visible属性设成false;

procedure TForm1.Button1Click(Sender: TObject);
var
pt:TPoint;
begin
GetCursorPos(pt);
Panel1.Visible:=true;
Windows.SetParent(Panel1.Handle,0) ;
Panel1.Left:=pt.X;
Panel1.Top:=pt.Y;
end;

然后再在Panel上放个SpeedButton控件（一定要是这个类型控件），然后设置这个控件的事件

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Windows.SetParent(Panel1.Handle,self.Handle);
Panel1.Visible:=false;
end;

动行程序，看下效果，现在的问题是点击按键后，桌面任务栏上会出现个panel的按键，怎么不让这个按键显示呢，一直没有找到方法，有兴趣的可以一起讨论下。

[DelphiTeacher]

你的思路有问题，首先我们做弹出菜单一般都是用窗体来实现的，
你的做法有点走弯路，
其实，是否在任务栏中显示是窗体的一种扩展风格，EX_APPWINDOW,
一般在CreateParams过程中重载再设置。。。

[Quote=引用楼主 formernetcn 的回复:]
据说程序中的下拉菜单的父窗体是桌面， 按照这个原理可以实现自定义下拉单，下拉菜单中的内容还可以自很多控件。

按下面方法来做，在窗体中放个Panel和一个Button，然后设置Button的事件

Panel的Visible属性设成false;

procedure TForm1.Button1Click(Sender: TObject);
var
pt:TPoint;
……
[/Quote]

[formernetcn]

[Quote=引用 2 楼 delphiteacher 的回复:]

你的思路有问题，首先我们做弹出菜单一般都是用窗体来实现的，
你的做法有点走弯路，
其实，是否在任务栏中显示是窗体的一种扩展风格，EX_APPWINDOW,
一般在CreateParams过程中重载再设置。。。

[Quote=引用楼主 formernetcn 的回复:]
据说程序中的下拉菜单的父窗体是桌面， 按照这个原理可以实现自定义下拉单，下拉菜单中的内容还可以自……
[/Quote]

这个的话主窗体会失去焦点。

[DelphiTeacher]

ShowWindow(Handle,SW_NOACTIVE+..);

[Quote=引用 3 楼 formernetcn 的回复:]

引用 2 楼 delphiteacher 的回复:

你的思路有问题，首先我们做弹出菜单一般都是用窗体来实现的，
你的做法有点走弯路，
其实，是否在任务栏中显示是窗体的一种扩展风格，EX_APPWINDOW,
一般在CreateParams过程中重载再设置。。。

[Quote=引用楼主 formernetcn 的回复:]
据说程序中的下拉菜单的父窗体是桌面， ……
[/Quote]

[formernetcn]

[Quote=引用 4 楼 delphiteacher 的回复:]

ShowWindow(Handle,SW_NOACTIVE+..);

引用 3 楼 formernetcn 的回复:

引用 2 楼 delphiteacher 的回复:

你的思路有问题，首先我们做弹出菜单一般都是用窗体来实现的，
你的做法有点走弯路，
其实，是否在任务栏中显示是窗体的一种扩展风格，EX_APPWINDOW,
一般在CreateParams过程中重载再设置。……
[/Quote]


那选中弹出界面上的控件时，主界的焦点同样会失去啊，

像火狐里的这个主界面就不会失去焦点

[formernetcn]

像火狐里的这个主界面就不会失去焦点

[不得闲]

自己参考WS_POPUP