鹦 鹦鹉 Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-18 #1 如何制作输入法显示那样的状态栏,就象金山毒霸在查找时窗体右上角出现的那个 状态栏一样。 不是兄弟吝啬!实在是兄弟太菜,回答别人的问题都没有得到报酬,没有分啦! 各位大虾指点指教!
鹦 鹦鹉 Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-18 #3 要象输入法那样可以移动位置,怎么办,说详细一点儿。 我很菜的。
L Lfish Unregistered / Unconfirmed GUEST, unregistred user! 2001-09-19 #4 将 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事件.
将 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事件.