Писать подсказки внизу окна
Этот пример показывает, как сделать, чтобы на StatusBar выводилась длинная подсказка при поднесении мыши к объекту. (На форме находится компонент StatusBar1 - из вкладки Win32 и три кнопки button - из вкладки Standart) ...procedure DoShowHint(Sender: TObject); //добавте эту строчку
private
...
procedure TForm1.DoShowHint(Sender: TObject);
begin
StatusBar1.SimpleText := 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; Символ "|" позволяет разделять две подсказки:та,что появляется на желтом фоне,и та, что лежит в Application.Hint. Для работы с частями подсказки существуют функции GetShortHint, GetLongHint.
