Anzeige der DBLookupComboBox vom Programm setzen

[Uwe Spitzenberger]

Problem : Eine DBLookupComboBox ist an eine Tabelle (loT_Gemarkung) gebunden (Listfield), aus der der Anwender auswählen kann. Ist ein Eintrag nicht vorhanden, kann er über einen Button erzeugt werden (folg. Code):<br>
procedure TFo_Flur.Button1Click(Sender: TObject);<br>
var sWert : String;<br>
begin<br>
sWert:='';<br>
if InputQuery('Neue Gemarkung','Name der Gemarkung ?',sWert) then begin<br>
loT_Gemarkung.Open;<br>
loT_Gemarkung.First;<br>
loT_Gemarkung.Indexname:='Gemarkung_Gemarkung';<br >
loT_Gemarkung.SetKey;<br>
loT_Gemarkung['Gemarkung']:=sWert;<br>
if loT_Gemarkung.GotoKey then begin<br>
ShowMessage('Diese Gemarkung ist schon vorhanden !');<br>
end else begin<br>
try<br>
loT_Gemarkung.Append;<br>
loT_GemarkungGemarkung.AsString:=sWert;<br>
loT_Gemarkung.Post;<br>
except<br>
loT_Gemarkung.Cancel;<br>
end;<br>
end;<br>
end;<br>
end;<br>
<br>
Nun soll der neue Eintrag aber auch automatisch in der DBLookupCombo erscheinen. Bei mir muss der Anwender immer noch auswählen, bevor er sichtbar wird. Es gibt aber kein Property "Caption" oder "Text".<br>
Weiss jemand ob und wie das geht ?

[Andreas Kosch]

Hallo,

es <b>darf</b> auch kein Property Caption oder Text geben, denn bei TDBLookupComboBox wird ja <b>nicht</b> der angezeigte Wert in der Datenbank gespeichert, sondern der dahinterliegende Schlüsselwert des aktuellen Datensatzes. Man muss also den Datensatzzeiger der Datenmenge neu positionieren, aus der TDBLookupComboBox den anzuzeigenden Wert ausliest

[Uwe Spitzenberger]

Hallo Andreas,<br>
das ist natürlich klar. Aber wie kann man die Aktion des Bedieners, mit der Maus einen Eintrag zu wählen, programmiertechnisch nachbilden ?<br>
(zum Vergleich : bei einer gewöhnlichen Combobox mit Auswahlliste (nicht editierbar) kann ich auch nicht einfach die Caption setzen; ich muss vorher den Index setzen)<br>
Aber bei der DBCombo komme ich einfach nicht weiter.<br>
Gruss, Uwe

[Jo Reiter]

Schau Dir mal die Online-Hilfe zu
TDBLookupControl.KeyValue an.

Grüße
Jo Reite

[Uwe Spitzenberger]

Danke, werde ich tun. Gruss, Uwe