Problem Z rejestrowanie skrótu...

0

mam problem z skrótem. napisalem cos takiego :

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure wmHOTKEY(var Msg:TMessage);message WM_HOTKEY;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Form1.Handle, $0001, MOD_CONTROL,  VK_F4);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Form1.Handle, $0001);
end;

procedure TForm1.wmHOTKEY(var Msg:TMessage);
begin
 if Msg.WParam = $0001 then Form1.Caption:='Na skróty...';
  Application.Restore;
end;

end.

i jak nic powinno zmienic nazwe Form1 na 'na skroty po nacisnięciu strl+f4. skrot wpisany do systemu przez program a i tak nie chodzi... wiecie czemu ??'

0

Mi działa (Delphi 7 Enterprise)
ale dla pewności sprawdz czy RegisterHotKey zwraca zero

0

Hmmm A wiesz moze czemu moze mi to nie chodzic ?? mam Delphi 7 Personal.

0

?? ??

0

W końcu zadziałał ci ten kod czy też nie. Jeżeli nie to czy sprawdziłeś czy poszczególne funkcjenie zwracają jakiś błędów a szczególnie przy rejestracji skrótu.

0

kod wlasnie nie zadzialal... u innego kolegi ten sam kod dziala, a na moim delphi niestety nie chodzi... moze cos w ustawieniach ??

0

No tak ale czy sprawdziełś co zwraca funkcja RegisterHotKey

1 użytkowników online, w tym zalogowanych: 0, gości: 1