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

Вниз

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

 
Wadimka   (2013-09-09 06:29) [0]

Собственно не могу найти код или комбинацию
символ - (минус) посылается через код:
    c:=chr(109);
    Result := Result + c + downkey
                      + c + upkey;

//===хотя по ascii таблице код - (минуса) 45
а в модуле Windows.pas он зарезирвирован как
{$EXTERNALSYM VK_INSERT}
VK_INSERT = 45;

если посылать код 109 с нажатым шифтом, все равно рисуется знак минус

если посылать код 45 с нажатым шифтом, то все само собой комбинация вставки Shft+INS

подскажите плз


 
Wadimka   (2013-09-09 06:35) [1]

из таблицы ascii код _ равен 95, тож не пашет


 
Leonid Troyanovsky ©   (2013-09-09 09:20) [2]


> Wadimka   (09.09.13 06:35) [1]


procedure TForm1.Button1Click(Sender: TObject);
const
 c = Ord("_");
begin
 with Edit1 do
  begin
    Text := IntToStr(c);
    Perform(WM_CHAR, c, 0);
  end;
end;

--
Regards, LVT.


 
Wadimka   (2013-09-09 10:19) [3]

мне нужно именно через keybd_event


 
KilkennyCat ©   (2013-09-09 11:57) [4]


> мне нужно именно через keybd_event

в твоем примере нет похожих букв


 
Wadimka   (2013-09-09 13:35) [5]

мне нужна только комбинация кодов для символа _


 
Wadimka   (2013-09-09 13:53) [6]

Все вопрос решен, не очень корректно, но мне пофик, программа не на вднх
сделал через alt код 095
    Result := Result +
    Chr(VK_MENU)+downkey+
    Chr(VK_NUMPAD0)+downkey+Chr(VK_NUMPAD0)+upkey+
    Chr(VK_NUMPAD9)+downkey+Chr(VK_NUMPAD9)+upkey+
    Chr(VK_NUMPAD5)+downkey+Chr(VK_NUMPAD5)+upkey+
    Chr(VK_MENU)+upkey;



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

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

Наверх




Память: 0.48 MB
Время: 0.005 c
3-1299765129
stas
2011-03-10 16:52
2014.07.13
синтаксис оракла


15-1387802363
Ламо777
2013-12-23 16:39
2014.07.13
Алгоритм распространения пламени


2-1379248188
cr@nk
2013-09-15 16:29
2014.07.13
Аварийный выход из программы


15-1387776401
ProgRAMmer Dimonych
2013-12-23 09:26
2014.07.13
Восстановление NTFS без переформатирования из RAW


2-1378798421
Сергей
2013-09-10 11:33
2014.07.13
Бит бтн glyth