RzbuttonEdit如何只能点击后面的小按钮而不可直接输入呢

Question

SendMessage(RzbuttonEdit.Handle, EM_SETREADONLY, 0, 0);

Answer 1

不是有ReadOnly属性么？
值为True就不能输入了。
procedure TForm1.RzButtonEdit1ButtonClick(Sender: TObject);
begin
 RzButtonEdit1.Text := 'aaa';
end;//中时行赋值。

Answer 2

我设置为readonly后运行后面的小按钮就没了

Answer 3

放在FormCreate或者FormShow里面都行，试下。

Answer 4

报错呢，rzbuttonEdit.handle没有 handle

Answer 5

编译不过呢，那个handle 木有

Answer 6

怎么可能！FormShow时所有控件都有句柄了，你FormCreate的旧代码得删除啊

Answer 7

是SendMessage(RzButtonEdit1.Handle,EM_SETREADONLY,0,0)!!!
TRzButtonEdit只是一个类当然没有句柄拉！要用的是控件名.Handle!!!!!

Answer 8

设置RzButtonEdit的KeyPress事件填入代码Key:=#0;就行了。