Ver la Versión Completa : Opción currentRecord en Delphi.
Parche
16-09-2008, 12:50:52
Buenos días:
He creado cuatro botones con las opciones: << < - > >> el guión(-) es un texto donde coloco el: recordcount. Quisiera seguir poniendo un label a continuación del (>>) más o menos: 0 de: 0 ... según mueva el registro. Hasta ahora consigo mover un dbgrid1 enlazado con un datasource1 y éste a un adoquery1, pero no consigo, cuando pulso los botones de arriba, que visualice el registro actual.
En access sí que está.
Saludos.
Hola Parche, si quieres que funcionen las teclas de arriba y abajo tendras que utilizar el evento OnKeyUp del DbGrid, tendría que ser algo así.
procedure TForm1.DBGridKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=vk_down) or (key=vk_up) then
Label1.Caption := IntToStr(ADOQuery.RecNo)+' de: '+IntToStr(ADOQuery.RecordCount);
Saluditos
Parche
16-09-2008, 17:54:34
Hola Parche, si quieres que funcionen las teclas de arriba y abajo tendras que utilizar el evento OnKeyUp del DbGrid, tendría que ser algo así.
Código Delphi [-] (http://www.clubdelphi.com/foros/#)
procedure TForm1.DBGridKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=vk_down) or (key=vk_up) then
Label1.Caption := IntToStr(ADOQuery.RecNo)+' de: '+IntToStr(ADOQuery.RecordCount);
Saluditos
Buenas tardes:
No conocía: RecNo ... yo lo había hecho así:
procedure TForm1.cmdSiguienteClick(Sender: TObject);
begin
//DBGrid1.DataSource.DataSet.Next;
ADOQuery1.Next;
//lblDe.caption:= '0' + ' de: ' + IntToStr(DBGrid1.DataSource.DataSet.RecordCount);
lblDe.caption:= IntToStr(ADOQuery1.RecNo) + ' de: ' + IntToStr(ADOQuery1.RecordCount);
-----Hecho a partir de lo que me has dicho :-) ----------------
if IntToStr(ADOQuery1.RecNo)=IntToStr(ADOQuery1.RecordCount) then
begin
ShowMessage('Final.');
end
else
end;
Gracias por tu respuesta.
Saludos.
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.