Editieren VirtualStringTree's

[ol1uw]

Wenn Dir 2 mal Enter reicht

Delphi-Quellcode:

procedure TForm1.VSTKeyAction(Sender: TBaseVirtualTree; var CharCode: Word;
  var Shift: TShiftState; var DoDefault: Boolean);
begin
  if CharCode=13 then
  Begin
  CharCode:=113;
  DoDefault:=true;
  end;
end;


procedure TForm1.VSTEdited(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex);
begin
If Vst.Header.Columns.IsValidColumn(Column+1)then sender.FocusedColumn:=Column+1
else Sender.FocusedColumn:=0;
end;

Uwe