Hint на Edit

[mutabor]

Как сделать всплывающую подсказку при наведении на Edit если строка в него не помещается?

Где-то читал про это, не могу вспомнить, там буквально пару строк кода, причем это приводилось между делом, рассказывалось про что-то другое вообще.

[Neeter]

Насчет двух строчек не знаю, но вот что я придумал:
OnMouseMove у едита:

procedure TForm1.EditsMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
 _textWidth: integer;
begin
 Canvas.Font.Size := TEdit(Sender).Font.Size;
 _textWidth := Canvas.TextWidth(TEdit(Sender).Text);
 if TEdit(Sender).Width < _textWidth then
  TEdit(Sender).Hint := TEdit(Sender).Text
 else
  TEdit(Sender).Hint := '';
end;

[Stilet]

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Edit1.ShowHint:=true;
Edit1.Hint:=Edit1.Text;
Application.ActivateHint(Mouse.CursorPos);
end;

но вот что я придумал:

Это помоему перебор...

[Neeter]

Stilet, нужно "если строка в него не помещается". )

[Alex Cones]

По моему проще посчитать, сколько символов он может вместить, а затем написать

If Length(Edit1.Text)>23 Then Edit1.ShowHint:=TRUE;

[Neeter]

А если длина edit'а динамически изменяется?
Да и как вы посчитаете длину текста? Ширина символов разная...

[Alex Cones]

А если длина edit'а динамически изменяется?

Тогда нам не нужна функция по показыванию едита в хинте.

Да и как вы посчитаете длину текста? Ширина символов разная...

Можно взять букву A - у нее средняя ширина. А я и не сказал, что это будет точно. Просто будет меньше писанины.

[Neeter]

Тогда нам не нужна функция по показыванию едита в хинте.

Нет, я имел ввиду, например, динамически при изменении размеров формы...
Но не будете же вы изменять ширину формы специально, чтобы увидеть весь текст в Edit'ах.

Можно взять букву A - у нее средняя ширина. А я и не сказал, что это будет точно. Просто будет меньше писанины.

Что будет меньше писанины - верно.
Но это, наверно, у меня от отца, всегда и везде - точность...

[Toxa]

есть же функция определяющая длину в пикселах,
я например делал через canvas.textlength

[Neeter]

есть же функция определяющая длину в пикселах,
я например делал через canvas.textlength

Наверно не TextLength, а TextWidth.
И вы повнимательней посмотрите мой код, там именно данный вариант и написан...