main.~pas

来自「这是我找到的一份老外编写的程序」· ~PAS 代码 · 共 54 行

unit Main;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
	TfrmMain = class(TForm)
		btnMonitor: TButton;
		btnCall: TButton;
    Label1: TLabel;
		procedure btnMonitorClick(Sender: TObject);
		procedure btnCallClick(Sender: TObject);
	private
		{ Private declarations }
	public
		{ Public declarations }
		Monitor: Boolean;
		Call: Boolean;
	end;

var
	frmMain: TfrmMain;

implementation

{$R *.DFM}

uses MonForm, CallForm;

procedure TfrmMain.btnMonitorClick(Sender: TObject);
	begin
	if Monitor = false then
		begin
		frmTAPIMon := TfrmTAPIMon.Create(Self);
		frmTAPIMon.Show;
		Monitor := True;
		end;
	end;

procedure TfrmMain.btnCallClick(Sender: TObject);
	begin
	if Call = False then
		begin
		frmTAPICall := TfrmTAPICall.Create(Self);
		frmTAPICall.Show;
		Call := True;
		end;
	end;

end.