Не повторяется действие

[waterya]

у меня есть программа. Вот код

procedure TForm2.F1(var Message:TMessage);
var
 Mylink: string ;
 stat: string;

begin
form2.Show;
form2.FormStyle:=fsStayOnTop;
edit1.PasteFromClipboard;
edit1.Text:=edit1.text +' ';
stat:= Copy(edit1.text, 1, Pos(' ',edit1.Text)-1);
Mylink:= MySite + '/' + stat ;
combobox1.Text :=mylink;
webbrowser1.Navigate(combobox1.text);
edit1.Text:='';

end;

Он работает как надо, страница открывается. Но когда я пробую еще раз использовать свою горячую клавишу - она уже не работает. почему? пожалуйста обьясните

[Stilet]

Я тут вообще не вижу ни слова про горячие клавиши.
Как ты их регистрируешь?

[ex.cluz]

edit1.PasteFromClipboard;

А буфере обмена точно есть какие-то данные?

[waterya]

procedure TForm2.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, 0, MOD_CONTROL, VK_Up);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(Handle,0);
end;

end.

продолжение кода. Клавиши регистрируются все правильно 1 раз работает. Но больше 1 раща программа не работает

[MaxNik2009]

Вот так оно лучше работает:

var
  Form2:TForm2;
  ID_HK: integer;


procedure TForm2.FormCreate(Sender: TObject);
begin
   ID_HK:= GlobalAddAtom('MyHotKey');
   RegisterHotKey(0, ID_HK, MOD_CONTROL, VK_Up);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(0,ID_HK);
  DeleteAtom(ID_HK);
end;
end.

[waterya]

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

Вот так оно лучше работает:

var
  Form2:TForm2;
  ID_HK: integer;


procedure TForm2.FormCreate(Sender: TObject);
begin
   ID_HK:= GlobalAddAtom('MyHotKey');
   RegisterHotKey(0, ID_HK, MOD_CONTROL, VK_Up);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(0,ID_HK);
  DeleteAtom(ID_HK);
end;
end.

Извините, но уменя теперь вообще горячая клавиша не работает.

[MaxNik2009]

извиняюсь...

var
  Form2:TForm2;
  ID_HK: integer;


procedure TForm2.FormCreate(Sender: TObject);
begin
   ID_HK:= GlobalAddAtom('MyHotKey');
   RegisterHotKey(Handle, ID_HK, MOD_CONTROL, VK_Up);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(Handle,ID_HK);
  DeleteAtom(ID_HK);
end;
end.

исправил.

[waterya]

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

извиняюсь...

var
  Form2:TForm2;
  ID_HK: integer;


procedure TForm2.FormCreate(Sender: TObject);
begin
   ID_HK:= GlobalAddAtom('MyHotKey');
   RegisterHotKey(Handle, ID_HK, MOD_CONTROL, VK_Up);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(Handle,ID_HK);
  DeleteAtom(ID_HK);
end;
end.

исправил.

Спасибо вы меня уже 2ой раз спасаете на пректе

[waterya]

Но все равно горячая клавиша работает только 1 раз

[MaxNik2009]

выкладывай код обработки горячих клавиш.