ValueListEditor: Schreibmarke in Zelle setzen?

[PeterPanino]

Hallo, ich habe eine ValueListEditor-Komponente (TValueListEditor) auf einer Form. Nun möchte ich, dass beim Öffnen des Fensters die Schreibmarke automatisch in eine bestimmte Zelle gesetzt wird, damit der Anwender gleich drauflosschreiben kann, ohne erst auf die Zelle klicken zu müssen.

Ich habe folgendes versucht, aber es funktioniert nicht:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin
  ValueListEditor1.SetFocus;
  ValueListEditor1.Col := 1;
  ValueListEditor1.Row := 1;
  ValueListEditor1.EditorMode := True;
end;

Wer weiß einen Rat?

[marabu]

Hallo Peter,

dein Code ist in Ordnung, aber das Ereignis das falsche. Nimm OnShow() und es sollte funktionieren.

Grüße vom marabu

[PeterPanino]

Zitat:

Zitat von marabu

Hallo Peter,

dein Code ist in Ordnung, aber das Ereignis das falsche. Nimm OnShow() und es sollte funktionieren.

Grüße vom marabu

Das funktioniert! Vielen herzlichen Dank für den Tipp!

Weißt du zufällig auch noch, ob man das Cellpadding in ValueListEditor (das ja auf CustomStringGrid basiert) irgendwie einstellen kann? Ja, ich weiß, ich könnte einfach mit RowHeights die Zeilenhöhe erhöhen, aber das sieht dann hässlich aus, weil der Text dann rechts und vor allem links immer noch an die Linien anstößt.

[marabu]

Ich würde spontan das Ereignis OnDrawCell() verwenden und das übergebene Rechteck mit InflateRect() um etwa 2 Pixel schrumpfen.

[mh18058]

Ich glaube statt Deiner 4 Zeilen hätte die Zeile

ValueListEditor1.SelectFirst;

genügt.