unit Browse;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, Grids, DBGrids, ExtCtrls, DBCtrls;
type
TfrmBrowseForm = class(TForm)
Panel1: TPanel;
BrowseDBGrid: TDBGrid;
BrowseFormToolBar: TToolBar;
BrowseFormStatusBar: TStatusBar;
BrowseDBNavigator: TDBNavigator;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure BrowseDBNavigatorClick(Sender: TObject;
Button: TNavigateBtn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmBrowseForm: TfrmBrowseForm;
implementation
uses BrowseDM;
{$R *.dfm}
procedure TfrmBrowseForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmBrowseForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
frmBrowseForm:=nil;
end;
procedure TfrmBrowseForm.BrowseDBNavigatorClick(Sender: TObject;
Button: TNavigateBtn);
begin
//BrowseFormStatusBar.SimpleText:=BrowseDataModule.BrowseADOTable.Fields[1].AsString;
end;
end.