【delphi开源代码栏目提醒】:本文主要为网学会员提供formmain.pas,希望对需要formmain.pas网友有所帮助,学习一下!
unit formmain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, ToolWin;
type
Tyzcx = class(TForm)
ToolBar1: TToolBar;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Panel1: TPanel;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
BitBtn4: TBitBtn;
ToolButton4: TToolButton;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
yzcx: Tyzcx;
implementation
uses bqcx, dm, sscx, zfcx;
{$R *.dfm}
procedure Tyzcx.BitBtn2Click(Sender: TObject);
begin
bqcxtj.ShowModal;
end;
procedure Tyzcx.BitBtn3Click(Sender: TObject);
begin
sscxtj.ShowModal;
end;
procedure Tyzcx.BitBtn1Click(Sender: TObject);
begin
zfcxtj.ShowModal;
end;
procedure Tyzcx.BitBtn4Click(Sender: TObject);
begin
close;
end;
end.