Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - TValueListEditor - Eingabemaske für Keys?


galagher - Do 07.02.13 11:46
Titel: TValueListEditor - Eingabemaske für Keys?
Hallo!

Eine Eingabemaske für Values in einer TValueListEditor-Komponente zu erstellen, ist in OnGetEditMask einfach zu realisieren, zB: Value := '00:00';
Ich möchte genau das aber für Keys haben! Der Benutzer kann dem ValueListEditor Rows hinzufügen und ich möchte, dass die Keys-Spalte diese Maske hat. Egal, wie ich es anstelle, ich kriege das nicht hin!

Wie erstelle ich eine Eingabemaske für Keys? :nixweiss:


bummi - Do 07.02.13 14:52

KeyOptions keyEdit auf true setzen dann geht auch z.B.

Delphi-Quelltext
1:
2:
3:
4:
procedure TForm1.ValueListEditor1GetEditMask(Sender: TObject; ACol, ARow: Integer; var Value: string);
begin
   if Arow=2 then Value := '00:00'
end;


oder habe ich etwas falsch verstanden?


galagher - Do 07.02.13 15:48

Moderiert von user profile iconNarses: Komplett-Zitat des letzten Beitrags entfernt.

Das wirkt sich in der 2. Reihe im Feld "Values" aus. Aber das ist auch schon fast die Lösung: if ACol=0 then Value := '00:00'So klappt es!
Habe wohl zu kompliziert gedacht, von wegen Cells und und so, also in Richtung ValueListEditor1.Cells[0, ARow]!

Danke!


bummi - Do 07.02.13 16:57

das war eine Beispiel für zweite Zeile, ohne Einschränkung auf die Spalte ....


galagher - Do 07.02.13 17:50

user profile iconbummi hat folgendes geschrieben Zum zitierten Posting springen:
das war eine Beispiel für zweite Zeile, ohne Einschränkung auf die Spalte ....
Hat mir aber die Lösung gezeigt! Manchmal denkt man wirklich zu kompliziert, habe alles mögliche ausprobiert, mit Strings, Cells, was weiss ich, nur das eben nicht.