Hint на Edit

[Stilet]

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

А я не против этого, я к тому что ты не вызываешь хинт насильно

[Neeter]

А я не против этого, я к тому что ты не вызываешь хинт насильно

А, ну я тоже не против этого, хотя хинт сам все же появляется, поэтому я не придал этому значения.

[Stilet]

хотя хинт сам все же появляется

Это если указано ShowHint и прочие с ним. Я не люблю такого. уж если хинт вызывать то за шкирку и немедля.

[Neeter]

Ну да, вы правы, просто я не подумал об этом.
И еще

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

Можно сделать покомпактней

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

[Stilet]

Neeter

Чуть поправлю для полного удовлетворения:

procedure TForm1.EditsMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 Canvas.Font.Size := TEdit(Sender).Font.Size;
 if TEdit(Sender).Width <  Canvas.TextWidth(TEdit(Sender).Text)
 then begin
  TEdit(Sender).Hint := TEdit(Sender).Text 
  TEdit(Sender).ShowHint:=true;
  Application.ActivateHint(Mouse.CursorPos);
 end;
end;

[Neeter]

Ага, надо бы еще else добавить, а то в хинте будет предыдущее значение в некоторых случаях

procedure TForm1.EditsMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 Canvas.Font.Size := TEdit(Sender).Font.Size;
 if TEdit(Sender).Width <  Canvas.TextWidth(TEdit(Sender).Text)
 then begin
  TEdit(Sender).Hint := TEdit(Sender).Text 
  TEdit(Sender).ShowHint := true;
  Application.ActivateHint(Mouse.CursorPos);
 end else TEdit(Sender).ShowHint := false;
end;

[mutabor]

Ого, сколько разных вариантов ) Спасибо!
Кстати можно без канвы сделать, в винАпи есть функция, я уж не помню имя, но я использовал её в листбоксе чтобы точечки добавлять.

Вобщем, вот так я сделал

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  p: TPoint;
  s: string;
  size: tagSIZE;
begin
  size.cx:=0;
  s:=Edit1.Text;
  GetTextExtentPoint32(Canvas.Handle, PChar(s), Length(S), size);
  if size.cx > Edit1.ClientWidth then
  begin
    p.X:=Edit1.Left;
    p.Y:=Edit1.Top;
    p:=ClientToScreen(p);
    Edit1.Hint:=Edit1.Text;
    Application.ActivateHint(p);
  end
  else Edit1.Hint:='';
end;

[artemavd]

А текст подсказки Вы будете сами задавать? Или он будет меняться? Если сами, то можно попробовать такой код:

Edit1.Hint:='Строка подсказки 1' + #13 + 'Строка 2';