在一些表单中,我有dbEdits,它们有时不够宽以显示其字段可能包含的所有文本。针对这种情况,我有以下代码:
procedure Tgm12edLots.dbeLotNameMouseEnter(Sender: TObject);
begin
with dbeLotName do begin
ShowHint := True;
Hint := Text;
end;
end;
我希望避免当所有文本都可见时提示的显示,但我不知道如何测试该条件。
感谢任何提示/建议!