谁知道EDIT的ENABLED=FALSE如何让它显示HINT

Question

谁知道EDIT的ENABLED=FALSE如何让它显示HINT

Answer 1

该enabled为readonly吧。这样就可以了。

Answer 2

只能是ENABLED=FALSE
难道只能动VCL?

Answer 3

你在edit的后面放个label，然后设置它的hint和edit的hint一样不就行了？？？

Answer 4

自己画一个,根据鼠标坐标来确定应该显示什么 Hint

Answer 5

处理它的父亲的 OnMouseMove 事件。
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (x>Edit1.Left) and (x<edit1.Left+edit1.Width) and
    (y>Edit1.Top) and (Y<Edit1.Left+edit1.Height) then
  begin
      ShowHint:=True;
      Hint:='sssg';
  end
  else
    Hint:='';
end;

Answer 6

不要把edit的enable设置我false
而把它readonly设为true就行了
效果一样的