Checkbox / KeyDown, KeyPress, KeyUp

[Lannes]

Hallo,

Pfeiltasten in Checkbox abfangen? CM_DIALOGKEY abfangen.

so ähnlich:

Delphi-Quellcode:

//...  
private  
  procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;  
//...  
procedure TForm1.CMDialogKey(var Message: TCMDialogKey);  
begin  
  with message do begin  
    case charcode of  
    VK_LEFT,VK_UP    : if ActiveControl is TCheckBox then
                         SendMessage(Self.Handle,WM_NEXTDLGCTL,1,0); 
    VK_RIGHT,VK_DOWN : if ActiveControl is TCheckBox then
                         SendMessage(Self.Handle,WM_NEXTDLGCTL,0,0);  
    else  
      inherited;//Standardverhalten sicherstellen  
    end;  
  end;  
end;

Mit WM_NEXTDLGCTL wird das nächste Element entsprechend TabOrder/TapStop fokussiert.