[Stk111]

Код:

      unit Unit1;
       
      interface
       
      uses
       
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;
       
       
       
      type
       
      TForm1 = class(TForm)
       
         procedure FormActivate(Sender: TObject);
       
         procedure FormDestroy(Sender: TObject);
       
      private
       
         procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
       
      end;
       
       
       
      var
       
      Form1: TForm1;
       
      implementation
       
       
       
      {$R *.DFM}
       
      procedure Tform1.WMHotKey(var Message: TMessage);
       
      begin
       
      application.Restore;
       
      application.bringtofront;
       
      showmessage('Нажата CTRL-С!');
       
      end;
       
       
       
      procedure TForm1.FormActivate(Sender: TObject);
       
      begin
       
      RegisterHotKey(form1.Handle,123,mod_control,$43);
       
      end;
       
       
       
      procedure TForm1.FormDestroy(Sender: TObject);
       
      begin
       
      UnregisterHotKey(Handle, 123)
       
      end;
       
       
       
      end.

Почему при копировании с помощью Ctrl+C не форме, сообщение выскакивает showmessage('Нажата CTRL-С!') а текст не копируется?