если главная форма не в фокусе...

← →
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]

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

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

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