Главная страница
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.014 c
2-1196464192
-=Р@Ф=-
2007-12-01 02:09
2007.12.23
Отчеты, млин...


2-1196229163
d@nger
2007-11-28 08:52
2007.12.23
Как узнать противоположный цвет?


2-1196247523
Petrovich
2007-11-28 13:58
2007.12.23
Как передать данные из TMemoryStream в динамический массив?


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


2-1196577450
Новый
2007-12-02 09:37
2007.12.23
Как программно можно проверть, существуеть ли таблиц в Оракле