1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

protected
//..
  procedure KeyDown(var Key: Word; Shift: TShiftState); override;
//..
published
//..
  property OnKeyDown;
//..

//Was fehlt denn hier in KeyDown?
procedure TCheckBoxPlus.KeyDown(var Key: Word; Shift: TShiftState);
begin
  if not fEnabled then exit;

  if fFocus then
    if Shift = [] then
      if Key = 32 then
        begin
          fMouseState := msMouseDown;
          if fState <> cbGrayed then
          begin
            SetFocus;
            fFocus := True;
            Invalidate;
          end;
        end;
  inherited KeyDown(Key, Shift);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TMyEdit.SetParent(AParent: TWinControl);
const
  VK_R = $52;
begin
  inherited;
  if not (csDesigning in ComponentState) then
    begin
      if (FID1>0) and not Assigned(AParent) then
        begin
          UnRegisterHotKey(FTheHandle, Fid1);
          GlobalDeleteAtom(Fid1);
          FID1 := 0;
        end
      else
        begin
              if FID1=0 then FID1 := GlobalAddAtom('Hotkey1');
              RegisterHotKey(Handle, Fid1, MOD_CONTROL, VK_R);
              FTheHandle := Handle;
        end;
    end;
end;
procedure TMyEdit.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = Fid1 then
    ShowMessage('Ctrl + R pressed !');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

//Vor irgendeinem Zeichen in Caption könnte & stehen, das nachfolgende Zeichen ist dann der Hotkey.
//Statt der Konstante VK_R nehmen wir hier VK_HotKey
for i := 1 to Length(fCaption) do
begin
  if (fCaption[i+1] = (65..90))  and (fCaption[i] = '&') then VK_HotKey = //Buchstabe A-Z  
  if (fCaption[i+1] = (97..122)) and (fCaption[i] = '&') then VK_HotKey = //Buchstabe a-z
  //hier das gleiche nochmal mit Zahlen 0 - 9
end;                    

1:
2:

{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }