delphi如果实现光标效果

5207

5207

组别:皇帝
性别:
生日:1983-12-1
积分:1849
帖子:720

2008-11-06 20:22 | 只看楼主 树型| 收藏| 小中大 1^#

delphi如果实现光标效果

在TEdit等控件，是可以直接获取焦点后插入光标的，而像Form、Panel却不能。其实不难，只要用几个Api就可以实现光标的插入。。。

[复制到剪贴板]

CODE:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
DestroyCaret;
CreateCaret(Handle,0, 0, 20);
SetCaretPos(X, Y);
ShowCaret(Handle);
end;

这样就可以在窗体上任意位置点击后插入光标咯。。

TOP

<<上一主题|下一主题>>

1/1页1 跳转到页