Hallo nochmal zusammen,
also das mit dem "Links" / "Rechts" habe ich jetzt soweit hinbekommen. Das ganze funktioniert auch meiner Auffassung nach sehr gut. Ich werde (wenn ich in den nächsten Tagen Zeit finden) mal ein Musterprojekt zusammenstellen.
Was ich jedoch gerne vorher noch umsetzte würde, ist das Thema mit der TAB Taste. Ich komme hier allerdings absolute nicht weiter.
Eingebunde habe ich das ganze aktuell wie folgt...
Delphi-Quellcode:
//Der Editor der vom BaseEditor abgeleitet ist. Als, das eigenliche Control
type
TTxtEditLink = class(TEditEditLink)
private
procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;
protected
procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); override;
procedure GetNodeText; override;
procedure SaveChanges; override;
end;
//Die eingebunden Methode "WMGetDlgCode..."
procedure TTxtEditLink.WMGetDlgCode(var Message: TWMGetDlgCode);
begin
Inherited;
Message.Result := Message.Result or DLGC_WANTTAB;
end;
//Und die Methode "EditKeyDown..." als
...override
procedure TTxtEditLink.EditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
inherited;
if Key = VK_TAB then
ShowMessage('VK_TAB');
end;