Форум: "Начинающим";
Текущий архив: 2007.12.23;
Скачать: [xml.tar.bz2];

Вниз

если главная форма не в фокусе...   Найти похожие ветки 

← →
altatr ©   (2007-11-29 10:33) [0]

Всем привет.
Такой простой наверное вопрос
Имеется простейшая прога с пуcтой формой и обработкой события OnKeyPress

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Form1.Caption := key;
end;

Нажимаем кнопки на клаве и в заголовке формы видны нажатые символы
А вот как сделать чтобы символы менялись если я например работаю не с главной формой а с любой другой программой а форма убрана куданибудь в сторону?

---

← →
Sonia ©   (2007-11-29 12:50) [1]

написать в другой программе обработчик, который будет делать Form1.Caption := key;

---

← →
{RASkov}   (2007-11-29 13:48) [2]

В твоем случае нужно хук использовать, но с учетом "начинающих" попробуй так:
procedure TForm1.Timer1Timer(Sender: TObject);
var N: Byte;
begin
 Caption:="";
 for N:=0 to 255 do
  if GetAsyncKeyState(N)<>0 then begin
   Caption:=IntToStr(N)+" - "+CHR(N);
   Break;
  end;
end;
Ну и само собой в данном случае, ты будешь "ловить" состояние клавиши а не символ, ...и мышь тоже "ловиться"

---

← →
Dennis I. Komarov ©   (2007-11-29 13:57) [3]

За кем шпионим? Зачем велосипеды?

---

← →
altatr ©   (2007-11-30 16:19) [4]

вариант с таймером то что надо! спасибо.

---

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

Форум: "Начинающим";
Текущий архив: 2007.12.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.045 c