Hola, ya lo he solucionado, aunque quiza no sea lo mas optimo, pero ya me funciona, adjunto el codigo.
Boton Consulta:
Código Delphi
[-]procedure TForm4.BOTONBUSCARSALAClick(Sender: TObject);
var tiposala:String;
begin
if COMBOTIPOSALA.Text = '' then
begin
QUERYSALA.Close;
QUERYSALA.SQL.Clear;
QUERYSALA.SQL.Add('SELECT * FROM SALA WHERE ESTADO='+quotedstr('LIBRE'));
QUERYSALA.Open;
end;
if COMBOTIPOSALA.Text <> EmptyStr then
begin
tiposala:= COMBOTIPOSALA.Text;
QUERYTIPOSALA.Close;
QUERYTIPOSALA.SQL.Clear;
QUERYTIPOSALA.SQL.Add('SELECT TIPO_SALA,NOMBRE FROM TIPO_SALA WHERE NOMBRE='+quotedstr(tiposala));
QUERYTIPOSALA.Open;
tiposala:=QUERYTIPOSALA.FieldByName('TIPO_SALA').AsString;
QUERYSALA.Close;
QUERYSALA.SQL.Clear;
QUERYSALA.SQL.Add('SELECT * FROM SALA WHERE TIPO_SALA='+quotedstr(tiposala)+'AND ESTADO='+quotedstr('LIBRE'));
QUERYSALA.Open;
Timer1.Enabled:=True;end;
end;
Funcion Timer
Código Delphi
[-]procedure TForm4.Timer1Timer(Sender: TObject);
begin
QUERYTIPOSALA.Close;
QUERYTIPOSALA.SQL.Clear;
QUERYTIPOSALA.SQL.Add('SELECT NOMBRE FROM TIPO_SALA');
QUERYTIPOSALA.Open;
Timer1.Enabled:=False;
end;
Lo que hago es limpiar el Query y lanzar el mismo query nuevamente, para que el dblookupcombobox quede nuevamente con los mismos valores de la Tabla.
Gracias por la ayuda.