подсказка в Delphi

[TaYgA]

Всем доброго времени суток, пытаюсь сделать, чтоб при наведении на кнопку появлялась подсказка. Свойство Hint не подсходит т. к. подсказка должна появляться в Memo.... Подскажите пожалуйсто, как это сделатЬ!??!

[Вавел из ГМТУ]

У кнопки вроде свойство должно быть типа MoveMouse или както так..

[ОДИНОЧЕСТВО В СЕТИ]

public
  procedure DoShowHint(Sender: TObject);

...
procedure TForm1.DoShowHint(Sender: TObject);
begin
  memo1.lines.add (Application.Hint);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := DoShowHint;
  Button1.Hint := 'Button 1|It is button 1';
  Button2.Hint := 'Button 2|It is button 2';
  Button3.Hint := 'Button 3|It is button 3';
  Form1.ShowHint := true;
end;

[Lemo]

я бы использовал бы статусБар=)
может стоит поставить очистку мемо при убирании курсора?..

[ОДИНОЧЕСТВО В СЕТИ]

может стоит поставить очистку мемо при убирании курсора?..

да пусть чего хочет то и ставит это ж пример!!!

[TaYgA]

ОДИНОЧЕСТВО В СЕТИ, большое спасибо!!!! А что делать, если подсказка не влезает в Memo, т. е. если текст длинее строчки, он её не переводит на следущую строку, а чисто обрезает текст...

[Вавел из ГМТУ]

Сообщение от TaYgA

ОДИНОЧЕСТВО В СЕТИ, большое спасибо!!!! А что делать, если подсказка не влезает в Memo, т. е. если текст длинее строчки, он её не переводит на следущую строку, а чисто обрезает текст...

Отследить этот момент и сделать перенос..... Логично.

[TaYgA]

Спасибо за помощь

[TaYgA]

А если подсказку нужно разместить в statusbar, как будет выгледить код!?!?

procedure TForm1.DoShowHint(Sender: TObject);
begin
  memo1.lines.add (Application.Hint);// чем нужно заменить эту строку?!?!
end;

[raxp]

memo1.lines.add (Application.Hint);// чем нужно заменить эту строку?!?!

statusbar.panels[0].text:=