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

Description of your first forum.

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

帖子鹦鹉 » 星期二, 2001年9月18日 11:10


如何制作输入法显示那样的状态栏,就象金山毒霸在查找时窗体右上角出现的那个
状态栏一样。
不是兄弟吝啬!实在是兄弟太菜,回答别人的问题都没有得到报酬,没有分啦!
各位大虾指点指教!
 
 
 

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

帖子chinaplate » 星期二, 2001年9月18日 11:12


就是一个无标题,ontop窗口。
 
 
 

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

帖子鹦鹉 » 星期二, 2001年9月18日 11:54


要象输入法那样可以移动位置,怎么办,说详细一点儿。
我很菜的。
 
 
 

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

帖子Lfish » 星期三, 2001年9月19日 13:43


将 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事件.
 
 
 

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

帖子鹦鹉 » 星期四, 2001年9月20日 10:55


多人接受答案了。