Hint

@HalSaw · Регистрация: 18.12.2009

Студворк — интернет-сервис помощи студентам

Для каждой кнопки определить подсказку (Hint), описывающую функцию кнопки, причем подсказка появляется не стандартным образом, а вместе с именем и заголовком кнопки в специальной области формы при попадании указателя мыши на кнопку и гаснет при уходе указателя с кнопки.

Как выбрать определенное место для появления подсказки и сделать так, чтобы в ней содержалось несколько строк, типа :
Кнопка1
Закрывает вторую.

?

@Lord_Voodoo · 23.09.2010, 12:48

HalSaw, посмотрите в хелпе о событиях, связанных с движением мышки - OnMouseMove, к примеру

@John_Pa9JIbHuK · 23.09.2010, 13:19

HalSaw,

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  button1.Hint := 'Это супер' + #10 + #13 +
    'кнопа :)';
  button1.ShowHint := true;
  application.HintPause := 1; //тут задаем время появления подсказки
end;

@svin00 · 07.07.2013, 13:22

как сделать так чтоб Hint работал и на не активной кнопке?

@droider · 07.07.2013, 13:32

svin00, лучше использовать для таких целей не Hint, а TStatusBar.

@svin00 · 07.07.2013, 13:35

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

не Hint, а TStatusBar

мне бы пример как это делается или мануал

@Electroflower · 07.07.2013, 14:27

Вот такой способ может понравится, при таком способе он все хинты будет в нужный лейбл выводить, главное под лейбл выделить на форме место, и там для пользователя все подсказки будут появляться

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{ Public declarations }
  procedure AppHint(Sender: TObject);
 
procedure TForm1.AppHint(Sender: TObject);
begin
Label1.Caption := Application.Hint;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint := AppHint;
 
begin
Form1.Button4.Hint := 'Блаблаблабла ' + #13 + 'блаблабла';
Form1.Button4.ShowHint := True;

Добавлено через 35 секунд
да , и около кнопок, насколько помню должны...

@svin00 · 08.07.2013, 09:42

и всё же как заставить работать Hint если Button1.Enabled:=False;

@volvo · 08.07.2013, 10:29

svin00, существует очень простое решение:

Delphi
1
2
3
4
5
  Label1.Caption := '';
  Label1.AutoSize := false;
  Label1.BoundsRect := Button1.BoundsRect;
  Label1.Hint := Button1.Hint;
  Label1.ShowHint := Button1.ShowHint;

, то есть, под кнопку (или под любой другой контрол) подкладываем Label с тем же хинтом, что и у контрола. Теперь дизейблим сам контрол, и убеждаемся, что хинт по-прежнему показывается (сейчас это берет на себя Label)

@droider · 08.07.2013, 10:38

svin00, можно вместо обычной кнопки использовать SpeedButton (вкладка Additional).

Delphi
1
SpeedButton1.ShowHint :=True;

будет работать при отключенной кнопке.

@svin00 · 08.07.2013, 11:02

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

svin00, можно вместо обычной кнопки использовать SpeedButton (вкладка Additional).

Delphi
1
SpeedButton1.ShowHint :=True;

будет работать при отключенной кнопке.

cannot find implementation of method SpeedButton1Click

08.07.2013, 11:08

Создать метод нужно, либо двойным кликом по кнопке, либо в Инспекторе.

@svin00 · 08.07.2013, 11:10

самое смешное что для второго SpeedButton такой проблемы нет

Добавлено через 53 секунды

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

Создать метод нужно, либо двойным кликом по кнопке, либо в Инспекторе.

именно при двойном клике это сообщение получаю

08.07.2013, 11:11

Значит имеется созданное вручную, найди и удали. Либо произошла вставка одного метода в другой.

@svin00 · 08.07.2013, 11:19

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

cannot find implementation of method SpeedButton1Click

нашёл в чём проблема
почему то кнопка каряво создала метод
вместо

Delphi
1
2
3
4
5
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 
end;
end.

получилось

Delphi
1
2
3
4
5
enprocedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 
end;
d.

d. заметил сразу и исправил, а вот куда en делось...

@droider · 08.07.2013, 11:22

Не по теме:

svin00, затерлось при вставке, вероятно...

08.07.2013, 11:23

Про эту вставку я и говорил.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@HalSaw 2 / 2 / 1 Регистрация: 18.12.2009 Сообщений: 117

	Hint 23.09.2010, 12:19. Показов 16775. Ответов 16 Метки нет (Все метки) Для каждой кнопки определить подсказку (Hint), описывающую функцию кнопки, причем подсказка появляется не стандартным образом, а вместе с именем и заголовком кнопки в специальной области формы при попадании указателя мыши на кнопку и гаснет при уходе указателя с кнопки. Как выбрать определенное место для появления подсказки и сделать так, чтобы в ней содержалось несколько строк, типа : Кнопка1 Закрывает вторую. ? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	23.09.2010, 12:48
	HalSaw, посмотрите в хелпе о событиях, связанных с движением мышки - OnMouseMove, к примеру 0

@svin00 0 / 0 / 0 Регистрация: 26.06.2013 Сообщений: 34
	07.07.2013, 13:22
	как сделать так чтоб Hint работал и на не активной кнопке? 0

@droider 4882 / 2819 / 862 Регистрация: 04.10.2012 Сообщений: 10,248
	07.07.2013, 13:32
	svin00, лучше использовать для таких целей не Hint, а TStatusBar. 0

@svin00 0 / 0 / 0 Регистрация: 26.06.2013 Сообщений: 34
	08.07.2013, 09:42
	и всё же как заставить работать Hint если Button1.Enabled:=False; 0

angstrom
	08.07.2013, 11:08
	Создать метод нужно, либо двойным кликом по кнопке, либо в Инспекторе.

angstrom
	08.07.2013, 11:11
	Значит имеется созданное вручную, найди и удали. Либо произошла вставка одного метода в другой.

@droider
	08.07.2013, 11:22
	Не по теме: svin00, затерлось при вставке, вероятно... 0

angstrom
	08.07.2013, 11:23
	Про эту вставку я и говорил.

Hint

Решение