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

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

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

Wadimka ©   (2013-09-09 06:29:00) 

Собственно не могу найти код или комбинацию
символ - (минус) посылается через код:
    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 13:53:00) [1]

Все вопрос решен, не очень корректно, но мне пофик, программа не на вднх
сделал через 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;

---

Wadimka   (2013-09-09 13:35:00) [2]

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

---

KilkennyCat   (2013-09-09 11:57:00) [3]

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

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

---

Wadimka   (2013-09-09 10:19:00) [4]

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

---

Leonid Troyanovsky   (2013-09-09 09:20:00) [5]

> 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 06:35:00) [6]

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

---

Наверх