VirtualTreeView Editfelder, ComboBox und andere

[Jens Hartmann]

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;