Hot Key для проги

[-=<[Evklidd]>=-]

Alexblack - спасибо, терь все работаит! Возник другой вопрос: как сделать скриншот активного в данный момент окна или окна запущенного в данный момент приложения, ну не считая самого скриншотера? Как я понимаю это связано с изменением параметра функции GetDC, которым сейчас у меня является 0, а вот каким он должен быть в этом случае?

[Alter]

Сообщение от GAGARIN-NEW

if (Key = 17) then SHOT(...);

Спасибо.Работает .
Ещё вопрос где вы узнаёте виртуальный код клавиш ??? тут например Ctrl - 17 .. итд ???

Например с помощью:
1) Создать между Begin и End слово Vk_F1, ЗАТЕМ "Нажать Ctrl"+"Левая кнопка мыши, по Vk_F1". А там будут коды всех клавишь! Наверно разберётесь.

[alexBlack]

Сообщение от -=<[Evklidd]>=-

Alexblack - спасибо, терь все работаит! Возник другой вопрос: как сделать скриншот активного в данный момент окна или окна запущенного в данный момент приложения, ну не считая самого скриншотера? Как я понимаю это связано с изменением параметра функции GetDC, которым сейчас у меня является 0, а вот каким он должен быть в этом случае?

Вооот...

Мы и подошли к самому главному. Теперь, когда активно чужое окно, наши "горячие" клавиши, ест-но не работают. Перечитай о чем писал mihali4 (пост #7).

А в GetDC нужно передать handle окна. О том как его получить тоже неоднократно писалось.

[andrey4623]

Мы и подошли к самому главному. Теперь, когда активно чужое окно, наши "горячие" клавиши, ест-но не работают. Перечитай о чем писал mihali4 (пост #7).

Естественно, нажатие клавиш передается АКТИВНОЙ программе.
Чтобы перехватывать сообщения со всей системы, надо создавать DLL-библиотеку. Смотрите в поиске.

[kipishio]

Всем привет. доскажите как сделать так чтоб в строке писались только цифры, и можно было ставить тире только в начале цифр, и чтоб можно было ставить запятую но только один раз.

[kipishio]

Сообщение от B_N

http://msdn2.microsoft.com/en-us/library/ms927178.aspx

Всем привет. доскажите как сделать так чтоб в строке писались только цифры, и можно было ставить тире только в начале цифр, и чтоб можно было ставить запятую но только один раз. не могу настроить праильную сортировку символов в delphi

[Ntlegend]

ток не пойму причом тут горячие клавиши..

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['-'])and((Edit1.Text='')or(Edit1.SelStart=0))
 then exit;
if not (Key in ['0'..'9']+[',']+['.']+[#8])
 then begin
  Key:=#0;
  exit;
 end;
if (pos(',', Edit1.Text)>0)and(Key=',')
 then begin
  Key:=#0;
  exit;
 end;
if (pos(',', Edit1.Text)=0)and(Key='.')
 then begin
  Key:=',';
  exit;
 end;
if not (Key in ['0'..'9']+[#8])
 then begin
  Key:=#0;
  exit;
 end;
end;

[kipishio]

Сообщение от Ntlegend

ток не пойму причом тут горячие клавиши..

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['-'])and((Edit1.Text='')or(Edit1.SelStart=0))
 then exit;
if not (Key in ['0'..'9']+[',']+['.']+[#8])
 then begin
  Key:=#0;
  exit;
 end;
if (pos(',', Edit1.Text)>0)and(Key=',')
 then begin
  Key:=#0;
  exit;
 end;
if (pos(',', Edit1.Text)=0)and(Key='.')
 then begin
  Key:=',';
  exit;
 end;
if not (Key in ['0'..'9']+[#8])
 then begin
  Key:=#0;
  exit;
 end;
end;

спасибо огромное! вы очень помогли , а то я уже голову сломал))