Ver Mensaje Individual
  #11  
Antiguo 14-03-2011
verito_83mdq verito_83mdq is offline
Miembro
NULL
 
Registrado: nov 2010
Posts: 118
Reputación: 14
verito_83mdq Va por buen camino
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!!
Responder Con Cita