main.pas

TAPI 编程事例

unit Main;

interface

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

type
	TfrmMain = class(TForm)
		btnMonitor: TButton;
		btnCall: TButton;
		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.