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!!