| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

при нажатии кнопки F2 нажималась button1 [D7, WinXP]

Страницы:   < 1 2 >

АндрейК ©   (2007-08-22 07:54:00) 

Здравствуйте господа! Подскажите, пожалуйста такую вещь! Есть форма, на ней всякие label, edit, button и т.д. Как и где написать, что бы при нажатии кнопки F2 нажималась button1, НО при этом не важно, где находится курсор, на Edit1, edit2 или на кнопке?

---

Игорь Шевченко   (2007-08-23 11:27:00) [21]

Любите TAction

---

wp2   (2007-08-23 11:23:00) [22]

ну и толку? Всё равно click вызовет button1Click(Sender)

экономьте время и пишите оптимизированный код! ;-)

---

Германн   (2007-08-22 23:26:00) [23]

> @!!ex ©   (22.08.07 22:51) [9]
>
> > [8] wp2 ©   (22.08.07 22:32)
>
> Кстати, да...
> ТОже не понял почему Sender не указан... Потом дошло что
> не обработчик вызывается, а событие..
>

Плохо дошло :)
Вызывается не событие, а метод TButton.Click

---

@!!ex   (2007-08-22 22:51:00) [24]

> [8] wp2 ©   (22.08.07 22:32)

Кстати, да...
ТОже не понял почему Sender не указан... Потом дошло что не обработчик вызывается, а событие..

---

wp2   (2007-08-22 22:32:00) [25]

тьфу, сорри, думал, что напрямую уже вызывается обработчик Button1Click();

По крайней мере я всегда так делал.

---

Плохиш   (2007-08-22 17:14:00) [26]

> wp2 ©   (22.08.07 17:12) [6]
> >if Key=VK_F2 then button1.Click;
> точнее button1.Click(Sender)

Глупости писать не надо бы...

---

wp2   (2007-08-22 17:12:00) [27]

>if Key=VK_F2 then button1.Click;
точнее button1.Click(Sender)

---

clickmaker   (2007-08-22 09:58:00) [28]

> при нажатии кнопки F2 нажималась button1

Button.Action + ShortCut как вариант

---

{RASkov}   (2007-08-22 08:02:00) [29]

> [3] Elen ©   (22.08.07 07:59)

;)

---

Elen   (2007-08-22 07:59:00) [30]

> {RASkov} ©   (22.08.07 07:57) [1]

Швидкий який )

---

Elen   (2007-08-22 07:58:00) [31]

Например выставь форме KeyPreview :=true и пропиши :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if key=vk_f2 then Button1.Click;
end;

---

{RASkov}   (2007-08-22 07:57:00) [32]

У формы:
KeyPreview = True
и в обработчике OnKeyUp
if Key=VK_F2 then button1.Click;

---

Страницы:   < 1 2 >

Наверх