unit MajorForm_unit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, IBConnection, odbcconn, FileUtil, LResources, Forms,
Controls, Graphics, Dialogs, ComCtrls, StdCtrls, Grids, Menus, ActnList,
Buttons, MaskEdit, LR_Desgn;
type
{ TMajorForm_TForm }
TMajorForm_TForm = class(TForm)
Administrator_PageControl: TPageControl;
Administrator_MenuItem: TMenuItem;
Accounting_MenuItem: TMenuItem;
Exit_MenuItem: TMenuItem;
procedure Administrator_MenuItemClick(Sender: TObject);
procedure Exit_MenuItemClick(Sender: TObject);
procedure HideEveryTPageControl; <--- Do I have to declare overhere?
private
{ private declarations }
public
{ public declarations }
end;
var
MajorForm_TForm: TMajorForm_TForm;
i: integer;
ii: integer;
implementation
{ TMajorForm_TForm }