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

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
2-1196426968
webpauk
2007-11-30 15:49
2007.12.23
Папка верхнего уровня


2-1196223138
Мистик
2007-11-28 07:12
2007.12.23
сmd на внутри программы


2-1195940070
ProgRAMmer Dimonych
2007-11-25 00:34
2007.12.23
Проблема с D3DX8


15-1196009945
Kostafey
2007-11-25 19:59
2007.12.23
Интеграция Turbo JBuilder 2007 и Subversion


2-1196315820
ryden
2007-11-29 08:57
2007.12.23
проблема с MDI приложением