TValueListEditor

[michael.cohrs]

Guten Morgen zusammen,

ich habe mit folgendem Code zur Laufzeit einen ValueListEditor erstellt:

Delphi-Quellcode:

    
    aValue          := TValueListEditor.create(aParent);
    aValue.parent   := aParent;
    aValue.TitleCaptions.BeginUpdate;
    aValue.TitleCaptions.Strings[0] := ('Beschreibung');
    aValue.TitleCaptions.Strings[1] := ('Maske');
    aValue.TitleCaptions.EndUpdate;
    aValue.Refresh;

Wenn ich diesen aus meiner Anwendunbg aufrufe kann ich leider die erste Column nicht mit meinen Daten füllen,
ich habe vorher noch nicht mit dieser Komponente gearbeitet. Hat vieleicht jemand eine Lösung/ Hinweis was ich
falsch mache oder nicht beachtet habe? aParenbt ist das Form auf dem diese Komponente liegt!

Vielen Dank

Michael

[himitsu]

TitleCaptions.Add('text') und notfalls vorher noch ein TitleCaptions.Clear ,
denn wie TitleCaptions[x] bzw. TitleCaptions.Strings[x] einen Wert zuweisen, wenn es diesen Index noch nicht gibt?

Aber eigentlich sollte es bei diesem Code keine Probleme geben, da dieses Grid ja standardmäßig schon zwei Spalten hat, im Gegensatz zum normalen TStringGrid (TDrawGrid).
Wie befüllst du denn deine Liste?

[michael.cohrs]

Danke für die Antwort,

die List soll von dem Anwender befüllt werden jedoch bekomme ich den Focus in dem ValueListEditor nicht auf die erste Colum gesetzt..
sodass der Anwender geleich loslegen kann mit der Eingabe der Daten...

Soll also heissen, den Focus in der ersten Column bekomme ich niemnals, auch nicht wenn ich hineinklicke.....

[Uwe Raabe]

Du musst in den KeyOptions mindestens keyEdit und keyAdd aktivieren.

[michael.cohrs]

Danke Uwe,

meist Du es so?

Delphi-Quellcode:

    aValue.KeyOptions.KeyEdit := True;
    aValue.KeyOptions.KeyAdd  := True;

Das läuft zur Laufzeit auf einen Fehler leider...

ich weiß leider nicht wie ich die KeyOptions zur Laufzeit setzen kann...

[michael.cohrs]

.....Hat sich gerade erledigt dennoch vielen Dank!!!!

[Luckie]

Zitat von michael.cohrs:

.....Hat sich gerade erledigt dennoch vielen Dank!!!!

Und wie sieht die Lösung aus.

[Uwe Raabe]

Delphi-Quellcode:

begin
  aValue.KeyOptions := [keyEdit, keyAdd];
end;

[michael.cohrs]

Guten Morgen zusammen,

Du hast Recht, sorry aber einfach nur zu schreiben ich habe die Lösung ist falsch hier im Forum deshalb:

Delphi-Quellcode:

    aValue          := TValueListEditor.create(aParent);
    aValue.parent   := aParent;
    aValue.TitleCaptions.Clear;
    aValue.TitleCaptions.Add('Beschreibung');
    aValue.TitleCaptions.Add('Maske');
    aValue.KeyOptions  := [KeyAdd, KeyEdit];