![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
буквенно-цифровые коды [D7, WinXP]
mikl000 © (2006-05-24 23:46:00)Господа, подскажите пожалуйста синтаксис кодов букв:
C
V
X
A
TUser (2006-05-25 09:40:00) [1]Учат пользоваться форумами и яндексами.
Loginov Dmitry (2006-05-25 08:56:00) [2]Джо © (25.05.06 0:37) [5]
В последнее время часто слышно на форуме: "у меня Делфи без Хелпа". Вот это ужас.
А что, бывает и такое. У нас на кафедре зачем-то запрещают хелпом пользоваться, жмешь Ф1, а он - "вам запрещено пользоваться этой возможностью". Уууужас!
Джо (2006-05-25 00:37:00) [3]> [4] GanibalLector © (25.05.06 00:36)
В последнее время часто слышно на форуме: "у меня Делфи без Хелпа". Вот это ужас.
GanibalLector (2006-05-25 00:36:00) [4]Хоть бы help открыл на Ord. УжОсЪ!
Ord('C')
mikl000 (2006-05-25 00:19:00) [5]Прописываю я вот так:
procedure TForm1.N2Click(Sender: TObject);
begin
keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event(Ord(C), 0, 0, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
keybd_event(Ord(C), 0, KEYEVENTF_KEYUP, 0);
end;
а он мне ошибку выдаёт: [Error] uspevaemost.pas(208): Undeclared identifier: 'C'
GanibalLector (2006-05-25 00:12:00) [6]Ord(буква)
mikl000 (2006-05-24 23:57:00) [7]Мне собственно чего надо надо обработать procedure TForm1.N2Click(Sender: TObject);
Чтобы симитировать нажатие клавишь ctrl+C (v, a, x...) но пока, хотябы копирование. я нашел коды и сделал:
procedure TForm3.N2Click(Sender: TObject);
begin
keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event({нужен C}, 0, 0, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
keybd_event({нужен C}, 0, KEYEVENTF_KEYUP, 0);
end;