Как в комбобоксе cделать появление хинта при наведениии на длинный текст?

[TwiX]

Как в комбобоксе сделать появление хинта при наведениии на длинный текст?

[FaTaL]

В процедуре OnMouseLeave
Пиши
ComboBox1.Hint := ComboBox.Text;

И не забудь включить ShowHint := true;

[Stilet]

Предлагаю:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Application.ActivateHint(Mouse.CursorPos);
end;

[TwiX]

Мне нужно, что бы не при наведении на основную ячейку комбобокса хинт вылазил, а при наведMove...