PDA

Ver la Versión Completa : Detener el Cambio de un Registro


rocoed
09-07-2007, 22:03:02
Hola a todos..

Quiero detener el cambio de un registro a otro, es decir.. que pueda cancelar el BeforeScroll para que se quede en el mismo registro que lo mando a llamar

alguien tiene alguna sugerencia?

de antenamo muchas gracias...

rocoed

rocoed
09-07-2007, 22:20:17
se soluciono con un Abort....

Gracias a Todos...

marcoszorrilla
09-07-2007, 22:29:08
Prueba esta idea:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables;
var
Ni_Te_Menees:Boolean;
type
TForm1 = class(TForm)
Button1: TButton;
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Table1BeforeScroll(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Ni_Te_Menees:=True;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Ni_Te_Menees:=False;
end;

procedure TForm1.Table1BeforeScroll(DataSet: TDataSet);
begin
if Ni_Te_Menees = True then
SysUtils.Abort;
end;

end.



Un Saludo.

rocoed
10-07-2007, 07:23:24
Gracias Marcos, en realidad la idea que me planteas es la misma que tenia solo que me faltaba la instruccion Abort, ya que yo estaba utilizando Exit :D

en fin.. gracias..de todas formas :cool: