Hacer que un TEdit se autocomplete...

[verito_83mdq]

Bueno Caral, estuve trabajando con esto y quedo bastante bien, toque todos los eventos para que el dbgrig simule ser una lista que se despliega.

Lo que estoy tratando de hacer es que, mientras escribo en el TEdit pueda ir recorriendo el dbgrid con las fechas del cursor ˇ ˆ sin necesidad de hacer click en el para tomar el foco. Se podrá??

Gracias por la paciencia!!!

[[newtron]]

Pues si que se puede, yo lo tengo así. Yo en vez de un edit lo que realmente tengo es un label. Lo que tienes que hacer es capturar es el keydown del grid y si es una tecla de cursor no hacer nada y si es otra añadirla al caption del label.

Espero que te sirva.

Saludos

[verito_83mdq]

Hola Newton, acá ya lo tengo medio cocinado, puedo subir y bajar sin salir del TEdit, lo que estoy tratando de hacer es dejarlo seleccionado con la tecla enter, y que se ponga solo en el Tedit.

Este es mi código:

Código Delphi [-]
procedure TAltasForm.CiudadEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin




             if Key = VK_DOWN then
                begin
                   QueryDataModule.CiudadZQuery.Next;
                   marca:=DBGrid1.DataSource.DataSet.GetBookmark;
                end;

             if Key = VK_UP then
                begin
                   QueryDataModule.CiudadZQuery.Prior;
                   marca:=DBGrid1.DataSource.DataSet.GetBookmark;
                end;
end;

procedure TAltasForm.CiudadEditKeyPress(Sender: TObject; var Key: Char);
begin


             DBGrid1.Visible:=True;
             DireccionLabel.Visible:=False;
             EmailLabel.Visible:=False;

             with QueryDataModule.CiudadZQuery do
                 begin
                     If active then close;
                     SQL.Clear;
                     Sql.Add('Select *  from ciudad where ciudad.Ciudad like '''+CiudadEdit.Text+'%'' and ciudad.ID_provincia=ro');
                     ParamByName('pro').AsAnsiString:=ProvinciaDBLookupComboBox.KeyValue;
                     Open;
                     Active:=True;
                 end;

             if QueryDataModule.CiudadZQuery.IsEmpty then
               begin
                ShowMessage('No hay Resultados');
                DBGrid1.Visible:=False;
                CiudadEdit.Clear;
               end;




               If Key = #13 Then
               begin

                  DBGrid1.Visible:=False;
                  DBGrid1.DataSource.DataSet.GotoBookmark(marca);
                  CiudadEdit.Text:=QueryDataModule.CiudadZQuery.FieldByName('Ciudad').Text;
                  EmailLabel.Visible:=True;
               end;




end;

Como se ve hasta he tratado con los Bookmark pero nada.

Alguna sugerencia?? Desde ya muchas GRACIAS!!

[verito_83mdq]

Acá lo tengo cocinado por ahora anda bien, puedo recorrer el dbgrid con el cursor sin necesidad de usar el mouse en ningún momento.
Con un poco de trabajo el dbgrid se convirtió en una lista desplegable muy cómoda.
Este es el código:

Código Delphi [-]
procedure TAltasForm.CiudadEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin




             if Key = VK_DOWN then
                begin
                   QueryDataModule.CiudadZQuery.Next;
                   idciu:=QueryDataModule.CiudadZQuery.FieldByName('Ciudad').Text;
                end;

             if Key = VK_UP then
                begin
                   QueryDataModule.CiudadZQuery.Prior;
                   idciu:=QueryDataModule.CiudadZQuery.FieldByName('Ciudad').Text;
                end;
end;

procedure TAltasForm.CiudadEditKeyPress(Sender: TObject; var Key: Char);
begin


             DBGrid1.Visible:=True;
             DireccionLabel.Visible:=False;
             EmailLabel.Visible:=False;

             with QueryDataModule.CiudadZQuery do
                 begin
                     If active then close;
                     SQL.Clear;
                     Sql.Add('Select *  from ciudad where ciudad.Ciudad like '''+CiudadEdit.Text+'%'' and ciudad.ID_provincia=ro');
                     ParamByName('pro').AsAnsiString:=ProvinciaDBLookupComboBox.KeyValue;
                     Open;
                     Active:=True;
                 end;

             if QueryDataModule.CiudadZQuery.IsEmpty then
               begin
                ShowMessage('No hay Resultados');
                DBGrid1.Visible:=False;
                CiudadEdit.Clear;
               end;




               If Key = #13 Then
               begin
                  CiudadEdit.Text:=(''+idciu+'');
                  DBGrid1.Visible:=False;
                  EmailLabel.Visible:=True;
                  DireccionLabel.Visible:=True;
               end;




end;

Recién le encontré un problema, si uso las flechas me guardar la ciudad en la variable como corresponde, el drama es cuando selecciono la primera ciudad, osea cuando no uso las fechas y no me guarda la variable !!!

Me estoy complicando demasiado me parece.

Saludos!!

[[newtron]]

.... y si cambias...

CiudadEdit.Text:=(''+idciu+'');

por....

CiudadEdit.Text:=QueryDataModule.CiudadZQuery.FieldByName('Ciudad').Text;

[[Caral]]

Hola

Código Delphi [-]
 with QueryDataModule.CiudadZQuery do
                 begin
                     If active then close;
                     SQL.Clear;
                     Sql.Add('Select *  from ciudad where ciudad.ID_provincia = :Que');
                     ParamByName('Que').AsAnsiString:= ProvinciaDBLookupComboBox.KeyValue;
                     Open;
                     Active:=True;
                     Filter:= 'Ciudad Like '''+CiudadEdit.Text '*'''; 
                     Filtered:=  True;
                 end;

Saludos

[verito_83mdq]

Caral y Newtron, les agradezco mucho toda la ayuda que me han dado, lo pude solucionar gracias a ustedes, por ahora anda bien no tira errores, así que seguiré con el proyecto.

Saludos y GRACIAS!!!