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:
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.