Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

Как программно нажать какую либо кнопку (на клавиотуре)?   Найти похожие ветки 

 
SeriousSam ©   (2004-03-10 22:57) [0]

Как программно нажать какую либо кнопку (на клавиотуре)?


 
Sentinel ©   (2004-03-10 23:26) [1]

Чтобы прям вдавилась? Все ведь зависит от того что тебе надо сделать.
Три варианта:

1.
Application.MessageBox("Dear User, please click Ok and press F1 then,"",64);

2.
procedure TForm1.Button1Click(Sender: TObject);
begin
 SendMessage(Handle,WM_KEYDOWN, Ord("0"),0)
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if Key = Ord("0") then beep;
end;

3.
procedure TForm1.Button1Click(Sender: TObject);
begin
 FormKeyDown(Sender,Ord("0"),[]);
end;


 
Defunct ©   (2004-03-11 01:25) [2]

ЗЫ: Насчет 2. думаю правильне будет так:

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(GetActiveWindow,WM_KEYDOWN, Ord("0"),0)
end;


 
Игорь Шевченко ©   (2004-03-11 10:12) [3]


> Как программно нажать какую либо кнопку (на клавиотуре)?


keybd_event


 
Reindeer Moss Eater ©   (2004-03-11 10:17) [4]

Он же уточнил, что нажать надо на клавиатуре.

Нужен электро-межанический девайс (ну или пневматический там)


 
serge ©   (2004-03-11 10:21) [5]

Ага, и счас пойдут советы по теории автоматического управления, создание манипуляторов, роботов .... :))))



Страницы: 1 вся ветка

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
1-1078953556
Miwa
2004-03-11 00:19
2004.03.28
Размер файла я узнаю таким вот способом:


3-1078054159
ser_ega
2004-02-29 14:29
2004.03.28
DbGrid


1-1078387834
Volodya_
2004-03-04 11:10
2004.03.28
Замена подстроки


1-1078404018
KapitanSerg
2004-03-04 15:40
2004.03.28
Фонт и фон в TStringGrid


1-1078605576
_Stalker_
2004-03-06 23:39
2004.03.28
Access Violation