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

[waterya]

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ToolWin, OleCtrls, SHDocVw;

type
  TForm2 = class(TForm)
    WebBrowser1: TWebBrowser;
    CoolBar1: TCoolBar;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
      procedure F1(var Message:TMessage);message WM_HOTKEY;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  ID_HK: integer;

   const
 Mysite= 'http://en.wikipedia.org/wiki' ;
   VK_Up = $26;

implementation

{$R *.dfm}


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);

end;



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.

весь код

[MaxNik2009]

вот так надо:

procedure TForm2.F1(var Message:TMessage); // замени переменную Message на что нибудь другое, например Msg
var
Mylink: string ;
stat: string;
begin
  if Message.HotKey = ID_HK then  // тут тоже поменяй Message на Msg
  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 );
   end;
inherited;

end;

[waterya]

Undeclared identifier: 'Hotkey'
Declaration expected but 'INHERITED' found

видит вот эти 2 ошибки. я бы исправил, но я не знаю что такое inherit и как обьявить hotkey ...

[MaxNik2009]

procedure TForm2.F1(var Msg: TWMHotKey);// поменяй класс
var
Mylink: string ;
stat: string;
begin
  if Msg.HotKey = ID_HK then  // тут тоже поменяй Message на Msg
  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 );
   end;
inherited; // Используется для вызова родительского класса

end;

[waterya]

Inherited - ни в какую ни принимает, а без него программа работает так же , как раньше - 1 раз горячая клавиша сработает - а потом все.

[MaxNik2009]

Крепи архив со своим обработчиком, я посмотрю.
P.S. проверь что бы inheruted был внутри процедуры F1!!!

[waterya]

Мне кажется я не правильно сделал это действие
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 ) ;

Может я неправильно обьяснил что мне надо. Смотрите когда запускается программа окно не видно. Я копирую в буфер обмена слова, нажимаю ctrl+up и он у меня идет в браузер, созданный в дельфи и открывает сайт. Но, когда я копирую еще раз и нажимаю ctrl + up он уже не работает. Может надо зациклить? или что то такое.

[waterya]

Решил проблему, но странным образом. Я создал еще одну форму в которой только и был web browsers и все заработало