Editieren VirtualStringTree's

[c113plpbr]

Na? Keine Ideen? Ich auch nicht ... :cry:

*push*

ciao, Philipp

[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

[c113plpbr]

Zitat:

Zitat von ol1uw

Wenn Dir 2 mal Enter reicht

Hmm ... einmal wäre mir lieber ... aber wenn sich keine andere Lösung finden lässt, dann muss ichs wohl so machen ...

nagut, danke für eure vorschläge,
ciao, Philipp