Софт клавиши, нужна помощь

[KurtWagner]

Вот кодинг который надо отключить течез Button1
как это сделать??? надо чтоб он не срабатывал!
ет типа софт клавы... и заранее спасибо

procedure TForm1.FormCreate(Sender: TObject);
begin
if not RegisterHotkey(Handle, 1, MOD_Control, vk_RETURN) then
  ShowMessage('Ctrl + Enter');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotkey( Handle, 1 );
end;

procedure TForm1.WMHotkey( var msg: TWMHotkey );
begin
  if msg.hotkey = 1 then
begin
 ShowMessage('Вау, ты ужержал Ctrl + Enter чувааак!');
end;

[mihali4]

Пока не заблокировали -
virtual key codes
Тьфу на вас!
Столько раз уже...
Ну противно, как вы понять не можете?
Когда вы пришли, не осмотрелись, и тут же: "А мне вот нада..."
Да таких, как вы, была целая куча (не обижайтесь, но это так)...
И ни один... (пи-пи-пи), и ни одна (пи-пи-пи) не сообразила (хотя чего тут сложного-то?) воспользоваться поиском...
Это возмущает.
Но еще больше - удручает...
Сейчас в мелкософте - 80% наших ребят.
Но если вы не возьметесь за себя - их станет меньше 40%.
А это уже будет обидно. Мы что - индийцы какие-нибудь? Или китайцы?

[KORN]

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

надо чтоб он не срабатывал!

ты так интересно ставишь вопросы... что бы не срабатывал его можно просто не писать или закоментировать....

[KurtWagner]

Чуваки, вы че... блин прост я хочу сделать переключатель т.е. Вкл. или Выкл. блин что сложно ответить?

[DomiNick]

Я начинающий программист... (точнее пока студент) и что есть "типа софт клавы" не знаю пока...((
...и Делфи на "procedure TForm1.WMHotkey" ругается сильно...

Но если нужен "переключатель Вкл./Выкл." просто добавь в "var" переменную "ON: BooLean;" и вот код:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
ON:=True;
Button1.Caption:='ON';
If not RegisterHotkey(Handle, 1, MOD_Control, vk_RETURN) then
ShowMessage('Ctrl + Enter');
End;

Procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Begin
UnRegisterHotkey(Handle, 1);
End;

Procedure TForm1.WMHotkey(var msg: TWMHotkey);
Begin
If msg.hotkey=1 And ON Then ShowMessage('message');
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If ON Then
      Begin
      ON:=False;
      Button1.Caption:='OFF';
      End
Else
      Begin
      ON:=True;
      Button1.Caption:='ON';
      End;
End;

[KORN]

нужно объяснять более понятней

вот более менее грамотное оформление темы
http://programmersforum.ru/showthread.php?t=36868

человек доступно объяснил что ему нужно и что у него не получается... делай так же

[KurtWagner]

DomiNick, кнопку изначально ON не пропускает

procedure TForm1.FormCreate(Sender: TObject);
begin
ON:=True;
Button1.Caption:='ON';
If not RegisterHotkey(Handle, 1, MOD_Control, vk_RETURN) then
ShowMessage('Ctrl + Enter');
end;

[rpy3uH]

KurtWagner, если хочешь чтобы тебе ответили, то сформулируй свой вопрос нормально!

[KurtWagner]

при компиляции горячей клавиши (F9) по умолчанию в Delphi вычеркивает красным цветом на всю полосу ON:=True; якобы кодинк неправильный
procedure TForm1.FormCreate(Sender: TObject);
begin
ON:=True;
Button1.Caption:='ON';
If not RegisterHotkey(Handle, 1, MOD_Control, vk_RETURN) then
ShowMessage('Ctrl + Enter');
end;


надеюсь понятно

[rpy3uH]

я спросил: что тебе изначально надо было?

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

Вот кодинг который надо отключить течез Button1
как это сделать??? надо чтоб он не срабатывал!
ет типа софт клавы... и заранее спасибо

это набор слов!
ладно....

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

при компиляции горячей клавиши (F9) по умолчанию в Delphi вычеркивает красным цветом на всю полосу ON:=True; якобы кодинк неправильный
procedure TForm1.FormCreate(Sender: TObject);
begin
ON:=True;
Button1.Caption:='ON';
If not RegisterHotkey(Handle, 1, MOD_Control, vk_RETURN) then
ShowMessage('Ctrl + Enter');
end;

а сообщения компилятора внизу для кого выводятся?
где-нибудь перед implementation объяви

var
  Form1: TForm1;
  ON:boolean;
.....