readermain.pas

来自「图书管理系统,使用Delphi开发,数据库为Microsoft SQL Serv」· PAS 代码 · 共 65 行

unit ReaderMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit1, Menus;

type
  TReaderForm = class(TMain)
    procedure FormCreate(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ReaderForm: TReaderForm;

implementation

{$R *.dfm}
uses
ReaderSearch;

procedure TReaderForm.FormCreate(Sender: TObject);
var
pHandle:^THandle;
begin
pHandle:=@Application.MainForm.ClientHandle;
pHandle^:=ClientHandle;///关键在这一句！
//  inherited;
N2.Visible:=false;
N5.Visible:=false;
N8.Visible:=false;
N9.Visible:=false;
N10.Visible:=false;
N12.Visible:=false;

end;

procedure TReaderForm.N13Click(Sender: TObject);
begin
  inherited;
application.Terminate;
end;

procedure TReaderForm.N6Click(Sender: TObject);
//  inherited;
var
newform:TBookDocu3;
begin
  if FindForm('图书检索')=false then
    begin
      newform:=TBookDocu3.Create(application);
      newform.Caption:='图书检索';
    end;
end;


end.