home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
cbsuite.lzh
/
SU1SRC.ZIP
/
MAIN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-01-18
|
1KB
|
69 lines
unit Main;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, Buttons, Unit01, Unit02, UnitMain, RepMain, StdCtrls,
BandMain;
type
TMainForm = class(TForm)
Print: TSpeedButton;
Report: TSpeedButton;
Various: TSpeedButton;
SpeedButton4: TSpeedButton;
More: TSpeedButton;
Memo1: TMemo;
Band: TSpeedButton;
procedure VariousClick(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure PrintClick(Sender: TObject);
procedure ReportClick(Sender: TObject);
procedure MoreClick(Sender: TObject);
procedure BandClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.VariousClick(Sender: TObject);
begin
CBDemo01.ShowModal;
end;
procedure TMainForm.SpeedButton4Click(Sender: TObject);
begin
Close;
end;
procedure TMainForm.PrintClick(Sender: TObject);
begin
MainDialog.ShowModal;
end;
procedure TMainForm.ReportClick(Sender: TObject);
begin
MainReport.ShowModal;
end;
procedure TMainForm.MoreClick(Sender: TObject);
begin
CBDemo02.ShowModal;
end;
procedure TMainForm.BandClick(Sender: TObject);
begin
BandDemo.ShowModal;
end;
end.