如何制作象windows输入法显示状态栏那样的东东!(20分)

  • 主题发起人 主题发起人 鹦鹉
  • 开始时间 开始时间

鹦鹉

Unregistered / Unconfirmed
GUEST, unregistred user!
如何制作输入法显示那样的状态栏,就象金山毒霸在查找时窗体右上角出现的那个
状态栏一样。
不是兄弟吝啬!实在是兄弟太菜,回答别人的问题都没有得到报酬,没有分啦!
各位大虾指点指教!
 
就是一个无标题,ontop窗口。
 
要象输入法那样可以移动位置,怎么办,说详细一点儿。
我很菜的。
 
将 Form1.BorderStyle设成bsNone;
Form1.FormStyle 设成fsStayOnTop;
然后写form1的MouseDown事件如下:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
(Sender as TWinControl).Perform(WM_SYSCOMMAND,$7012,0);
end;
如果Form上有别控件,这些控件的MouseDown事件重用Form的MouseDown事件.
 
多人接受答案了。
 
后退
顶部