Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.30;
Скачать: CL | DM;

Вниз

Как показать Hint c текстом из панели StausBar a?   Найти похожие ветки 

 
SerKom   (2005-01-19 05:46) [0]

Есть StausBar, содержащий несколько панелей, в некоторых из них текст полностью не виден (не помещается по ширине) - как показывать всплывающую подсказку (чтобы текст полностью прочитать можно было), когда пользователь наводит курсор мыши на такие панели?


 
Александр Иванов ©   (2005-01-19 08:34) [1]

Самому написать код в onHint


 
RDen   (2005-01-19 08:45) [2]

мона типа:

procedure TForm1.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState;
 X, Y: Integer);
begin
 if x <= StatusBar1.Panels[0].Width Then
 begin
  StatusBar1.ShowHint := True;
  StatusBar1.Hint := StatusBar1.Panels[0].Text;
 end
  else StatusBar1.ShowHint :=False

...для остальных панелей
end;


 
SerKom   (2005-01-19 11:22) [3]

Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2005.01.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
14-1105311820
SergP
2005-01-10 02:03
2005.01.30
Предсказания Нострадамуса...


9-1098851964
Malefic
2004-10-27 08:39
2005.01.30
AsphyreInput и PowerInput: Как с ним работать?


14-1105429646
Sergey13
2005-01-11 10:47
2005.01.30
Новое платежное поручение. Есть у кого?


1-1105080743
GrayFace
2005-01-07 09:52
2005.01.30
Что такое packed array и packed record?


3-1103889364
Tomkat
2004-12-24 14:56
2005.01.30
BackUP/Restore MS SQL