zusammenfalten · markieren

Delphi-Quellcode:

procedure RegisterShortCut(Hkey:TShortCut);
var
  fuModifiers:Cardinal;
  Key:Word;
  Shift: TShiftState;
begin
  fuModifiers :=0;
  ShortCutToKey(HKey,Key,Shift);
  if ssCtrl in Shift then
    fuModifiers:=MOD_CONTROL;
  if ssShift in Shift then
    fuModifiers:=fuModifiers or MOD_SHIFT;
  if ssAlt in Shift then
    fuModifiers:=fuModifiers or MOD_ALT;
    RegisterHotKey(Handle,HotKey,fuModifiers, Key);
end;

In der letzter Zeile ist ein Fehler: Das Wort "Handle" ist Unbekannt...
von dieser Seite der Quelltext
http://members.tripod.com/dttq/31.html

Grüße, NeoDeluxe 8)
[edit=Daniel B]Delphi-Tags ergänzt. MfG Daniel B.[/edit]

versuch mal mit

Application.Handle

oder, vielleicht bei der Deklaration mit:

procedure TForm1.RegisterShortCut(Hkey:TShortCut);
(mit dem entsprechenden Form davor)

Zitat von mirage228:

versuch mal mit

Application.Handle

oder, vielleicht bei der Deklaration mit:

procedure TForm1.RegisterShortCut(Hkey:TShortCut);
(mit dem entsprechenden Form davor)

Mit Form geht das auch net...sagt unbekannt...
Application werde glaich ausprobieren...

Grüße, NeoDeluxe 8)

Zitat von NeoDeluxe:

Zitat von mirage228:

versuch mal mit

Application.Handle

oder, vielleicht bei der Deklaration mit:

procedure TForm1.RegisterShortCut(Hkey:TShortCut);
(mit dem entsprechenden Form davor)

Mit Form geht das auch net...sagt unbekannt...
Application werde glaich ausprobieren...

Grüße, NeoDeluxe 8)

Wenn Du PROCEDURE TForm1.RegisterShortCut(HKey: TShortCut); schreibst, mußt Du natürlich auch

markieren

Delphi-Quellcode:

   
TForm1 = CLASS(TForm)
...
   PRIVATE
...
      PROCEDURE RegisterShortCut(HKey: TShortCut);
    { Private-Deklarationen }

schreiben, dann funktioniert es.