VCL Смена надписи кнопки

@Metal_666_ · Регистрация: 19.10.2009

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

Как сделать чтобы при наведении на кнопку курсора появлялась надпись, а при его отсутствии снова исчезала? Нашел OnMouseMove, но он срабатывает только когда наводим, а когда убираем курсор ничего не исчезает(после наведения).

@Vlad_IT · 06.06.2010, 01:29

Вы это имеете ввиду!

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Button1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
if (X > 5 && X < 66 && Y > 5 && Y < 18)Button1->Caption = "dd";
else
{
 Button1->Caption = "Button1";
}
}

@NiTan · 06.06.2010, 09:09

doocee, а ты попробуй быстро провести курсор над кнопкой.

@Metal_666_ · 06.06.2010, 09:53 **[ТС]**

doocee, что то вроде этого, только эта функция то работает только тогда,когда указатель находится над кнопкой, а следовательно ветка else никогда не выполняется

@Danil_e71 · 06.06.2010, 10:01

C++
1
2
3
4
5
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 Button1->Caption = "Button1";
}

Когда над формой, НО не над Button, caption будет Button1.

@Vlad_IT · 06.06.2010, 11:28

Ni'Tan,
Metal_666_,
Ладно я понял! Просто помочь захотел!

Вот исправил ошибку

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
Button1->Caption = "Button1";
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Button1->Caption = "Ok";
}
//---------------------------------------------------------------------------

@Danil_e71 · 06.06.2010, 11:32

Рабочий код

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::Button1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Button1->Caption = "Над кнопкой";
}
//-------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 Button1->Caption = "Кнопка";
}

@Inadequate · 06.06.2010, 12:10

Danil_e71, такое решение не является универсальным, это так... условности. К примеру если под кнопкой будет Panel/PageControl etc., то что переписывать снова ? То есть всё это для единичных случаев.

Metal_666_, вообще все зависит от того какая у тебя сейчас IDE. В последних версиях для осуществления нужного есть OnMouseLeave/OnMouseEnter, которые тебе и нужны. Если у тебя их нет, то тут нужно будет создать потомка от стандартной кнопки.

@MikeSoft · 06.06.2010, 13:29

чего-то я вообще не понял ... Почему вы все К OnMouseMove привязались?
События OnMouseEnter и OnMouseLeave для кого придумали?
Пробуем так:

C++
1
2
3
4
5
6
7
8
9
10
11
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1MouseEnter(TObject *Sender)
{
  Button1->Caption = "Button1";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1MouseLeave(TObject *Sender)
{
  Button1->Caption = "";
}
//---------------------------------------------------------------------------

@Inadequate · 06.06.2010, 14:01

MiCr0s0fT, они отсутствуют в ранних версиях Builder'a. Конечно обновить IDE - вариант, да только не для всех доступный. Если они отсутствуют, то лучше поступить как я писАл выше, добавив их самостоятельно.

@Jony Wocker · 06.06.2010, 14:34

У меня отсутствуют эти события.
А какие у вас версии Buildera?

@Inadequate · 06.06.2010, 14:42

Jony Wocker, начиная с 2007 они точно есть

@Jony Wocker · 06.06.2010, 14:55

Спасибо. Нашел.

@Metal_666_ · 06.06.2010, 23:06 **[ТС]**

Спасибо всем.

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Metal_666_ 15 / 15 / 5 Регистрация: 19.10.2009 Сообщений: 187

	VCL Смена надписи кнопки 06.06.2010, 00:45. Показов 2311. Ответов 13 Метки нет (Все метки) Как сделать чтобы при наведении на кнопку курсора появлялась надпись, а при его отсутствии снова исчезала? Нашел OnMouseMove, но он срабатывает только когда наводим, а когда убираем курсор ничего не исчезает(после наведения). 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	06.06.2010, 09:09
	doocee, а ты попробуй быстро провести курсор над кнопкой. 0

@Metal_666_ 15 / 15 / 5 Регистрация: 19.10.2009 Сообщений: 187
	06.06.2010, 09:53 [ТС]
	doocee, что то вроде этого, только эта функция то работает только тогда,когда указатель находится над кнопкой, а следовательно ветка else никогда не выполняется 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	06.06.2010, 12:10
	Danil_e71, такое решение не является универсальным, это так... условности. К примеру если под кнопкой будет Panel/PageControl etc., то что переписывать снова ? То есть всё это для единичных случаев. Metal_666_, вообще все зависит от того какая у тебя сейчас IDE. В последних версиях для осуществления нужного есть OnMouseLeave/OnMouseEnter, которые тебе и нужны. Если у тебя их нет, то тут нужно будет создать потомка от стандартной кнопки. 1

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	06.06.2010, 14:01
	MiCr0s0fT, они отсутствуют в ранних версиях Builder'a. Конечно обновить IDE - вариант, да только не для всех доступный. Если они отсутствуют, то лучше поступить как я писАл выше, добавив их самостоятельно. 0

@Jony Wocker 45 / 45 / 3 Регистрация: 19.11.2009 Сообщений: 362
	06.06.2010, 14:34
	У меня отсутствуют эти события. А какие у вас версии Buildera? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	06.06.2010, 14:42
	Jony Wocker, начиная с 2007 они точно есть 0

@Jony Wocker 45 / 45 / 3 Регистрация: 19.11.2009 Сообщений: 362
	06.06.2010, 14:55
	Спасибо. Нашел. 0

@Metal_666_ 15 / 15 / 5 Регистрация: 19.10.2009 Сообщений: 187
	06.06.2010, 23:06 [ТС]
	Спасибо всем. 0