Hola.
Si los dos
TDBLookupComboBox tienen igualadas sus propiedades
ListSource,
ListField y
KeyField, tendrías que enviar al otro form el valor
KeyValue del primer DBLookupComboBox para asignarlo al segundo.
Una forma simple sería:
Form1:
Código Delphi
[-]
...
implementation
uses Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create(Self) do
try
DLCBValue:= DBLookupComboBox1.KeyValue;
ShowModal
finally
Free
end;
end;
...
Form2:
Código Delphi
[-]
type
TForm2 = class(TForm)
...
DBLookupComboBox2: TDBLookupComboBox;
procedure FormShow(Sender: TObject);
private
public
DLCBValue: Variant;
end;
...
implementation
procedure TForm2.FormShow(Sender: TObject);
begin
DBLookupComboBox2.KeyValue:= DLCBValue
end;
...
Saludos.