<<东方快车>>的菜单怎么做?(50分)

  • 主题发起人 主题发起人 pass
  • 开始时间 开始时间
P

pass

Unregistered / Unconfirmed
GUEST, unregistred user!
<<东方快车>>式的浮动菜单怎么做?
 
这可不是浮动菜单,是直接控制windows输出函数

http://iflower.363.net有不少资料

如果满意给我点分
 
应该是一个PopMenu (示例)
procedure TLJHForm.Label1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
var
pt: TPoint;
begin
GetCursorPos(pt);
PopMnu.Popup(ljhform.left,ljhform.top+ControlBar1.Height);
end;

因我曾作过一个仿“金山快译”的工具条软件。
 
一时糊涂:GetCursorPos()在此无用。
 
什么呀,那是“Appbar”,和任务栏差不多,不过外形略有变化。
参见已有帖子( 用“东方快车”“Appbar”能检索出一大堆)
 
谁给我例程,就给谁分 !
 
窗口top
然后窗体成拖动态就没事了,
 
谁给我例程,就给谁分 ?
好!我就做一个给你,请收信吧。
 
是windows98的一个标准控制,Appbar
 
多人接受答案了。
 
后退
顶部