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
public
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.