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

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

Нажатие Bitbtn с клавиатуры [D5, XP]

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

Андрей_1 ©   (2008-09-17 13:32:00) 

В проге есть кнопки Bitbtn. Надо чтобы была возможность нажатия их с клавиатура клавишами 1,2,3,4,5......9. Подскажите пожалуйста!!!

---

{RASkov}   (2008-09-17 15:26:00) [21]

> Btn := FindComponent('Bitbtn' + IntToStr(Key));

Тьфу... Вот:
Btn := FindComponent('Bitbtn' + Key);
:)

---

{RASkov}   (2008-09-17 15:25:00) [22]

> [10] clickmaker ©   (17.09.08 15:23)

Круто :)
Только можнож и так:
Btn := FindComponent('Bitbtn' + IntToStr(Key));
Только Bitbtn0 тоже должен быть :)

---

clickmaker   (2008-09-17 15:23:00) [23]

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var Btn: TBitBtn;
begin
 Btn := FindComponent('Bitbtn' + IntToStr(Ord(Key) - 48));
 if (Btn <> nil) then
   Btn.Click;
end;

---

{RASkov}   (2008-09-17 15:18:00) [24]

> [3] Андрей_1 ©   (17.09.08 14:55)
> Прописал вот так

Медицинский заканчивал? Терапевт, млин...
:о)

---

Dennis I. Komarov   (2008-09-17 15:18:00) [25]

> немного подумай

вот это тоже ;)

---

{RASkov}   (2008-09-17 15:08:00) [26]

> понажимай нужные кнопки

ессно на клавиатуре :) О, боже...)

---

{RASkov}   (2008-09-17 15:05:00) [27]

> [3] Андрей_1 ©   (17.09.08 14:55)
> Прописал вот так, но не работает

Пропиши вот так:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 ShowMessage(key);
{  case Key of
  : ;
 end;}
end;
Не забудь про KeyPrewiev далее понажимай нужные кнопки и посмотри что будет показываться.... немного подумай, заполни case и все будет пучком.

---

antonn   (2008-09-17 15:02:00) [28]

> Dennis I. Komarov ©   (17.09.08 14:59) [4]
>
>
> Вот это вообще шедвр!!!

как подсказали, так и сделал :)

---

Dennis I. Komarov   (2008-09-17 14:59:00) [29]

> procedure TForm1.FormClick(Sender: TObject; var Key: Char);

Вот это вообще шедвр!!!

Наверное кнопки не в том порядке на форму бросил... :)

---

Андрей_1   (2008-09-17 14:55:00) [30]

Прописал вот так, но не работает

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key='1' then Bitbtn1.Click;
if key='2' then Bitbtn3.Click;
if key='3' then Bitbtn4.Click;
if key='4' then Bitbtn5.Click;
if key='5' then Bitbtn8.Click;
if key='6' then Bitbtn9.Click;
end;

и вот так не работает:

procedure TForm1.FormClick(Sender: TObject;var Key: Char);

begin
if key='1' then Bitbtn1.Click;
if key='2' then Bitbtn3.Click;
if key='3' then Bitbtn4.Click;
if key='4' then Bitbtn5.Click;
if key='5' then Bitbtn8.Click;
if key='6' then Bitbtn9.Click;
end;

---

brother   (2008-09-17 13:35:00) [31]

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if key="1" then Bitbtn1.click;
 if key="2" then Bitbtn2.click;
....
end;

---

{RASkov}   (2008-09-17 13:34:00) [32]

> [0] Андрей_1 ©   (17.09.08 13:32)

У них есть метод Click;
У формы есть свойство KeyPrewiev и методы OnKeyXxxx

---

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

Наверх