Текущий архив: 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.073 c
