Das habe ich jetzt auch schon so hinbekommen. Ich habe jetzt Deine Editorklasse bei mir integriert und angepasst. Ich kann jetzt komplett navigieren wie gewünscht. Aber das mit dem TAB bekomme ich nicht hin.
Starte ich mein Programm ohne
Delphi-Quellcode:
procedure TfKabellisten.vstKabelInEditing(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
begin
//Allowed := true;
end;
Dann geht das navigieren auch mit der TAB Taste. Anders nicht. Ich habe jetzt versucht meine Klasse zu erweitern um die TAB Taste abzufangen.
Delphi-Quellcode:
...
TEditEditLink = class abstract(TBaseDataEditLink)
private
procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;
...
procedure TEditEditLink.WMGetDlgCode(var Message: TWMGetDlgCode);
begin
Inherited;
Message.Result := Message.Result or DLGC_WANTTAB;
end;
Aber ich bin auch ehrlich, die Funktion verstehe ich absolut nicht. Und im
Delphi-Quellcode:
OnKeyDown,
OnKeyUp
OnKeyPress
Kann man die TAB Taste nicht abfangen. Entnehme ich zumindestens der Delphi Hilfe...
Delphi-Quellcode:
case Key of
VK_TAB:
begin
//geht so nicht
end;