Delphi 能否实现这种样式的弹出式菜单

2012-01-07 01:08:33 449 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

不会ps，你也可以成为ps高手，最强傻瓜式人像一键磨皮美白瘦脸美妆PS插件比如：美肤是用来去斑点的，如果效果不太理想，就加大百分比，反之就减小。瘦脸如果脸胖的就打开，正常的就关闭。所谓的一键调节，要不只能调节一种效果，要不就是个预设，然后让你自己再调。同时，该软件还加入了贴心的批量处理功能，能同时处理上千张照片，让您喝着茶也能将工作做完。、自动检测照片中的人脸，包括鼻子，嘴巴，耳朵，眼睛和眉毛。、依托强大的脸部识别功能，可以高效的对人物全身皮肤进行智能识别，处理，使肤质平滑、过渡均匀。，这是网上下载的模糊照片，经过简单处理，你可以发现，眼睛变的更亮，皮肤更白，眼袋消失。阅读详情

本人采用了两种方式来实现这种弹出菜单

1：用窗体来实现，窗体失去焦点时关闭窗体。但这种采单弹出时，主窗体会失去焦点。

2：在界面上放个panel,在panel放上用到的组件，界体中放个Button用来激活菜单，加入事件



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的父窗体改成桌面。窗体失去焦点时再隐藏这个panel.

这种方式又有问题了，就是弹出的panel中的控件都不可以用了，按键也只能用TSpeedButton类型，还有点击主界面，panel也不是隐藏，因为主界面始终是有焦点的，除非点击主界面以外的区域。

想请假哪有高手有别的好的方式来实现，或都一起来探讨。

...全文