?? pprinttype.pas
字號:
unit PPrintType;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TFormPrintType = class(TForm)
ButtonCancle: TButton;
ButtonOK: TButton;
RadioGroupPrintType: TRadioGroup;
procedure ButtonCancleClick(Sender: TObject);
procedure ButtonOKClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormPrintType: TFormPrintType;
implementation
uses pNewJob, pNewJobC, pNewJobB;
{$R *.DFM}
procedure TFormPrintType.ButtonCancleClick(Sender: TObject);
begin
Close;
end;
procedure TFormPrintType.ButtonOKClick(Sender: TObject);
begin
if RadioGroupPrintType.ItemIndex=0 then
begin
if not assigned(FormNewJob) then FormNewJob:=TFormNewJob.Create(Self);
FormNewJob.Show;
end
else
if RadioGroupPrintType.ItemIndex=1 then
begin
if not assigned(FormNewJobB) then FormNewJobB:=TFormNewJobB.Create(Self);
FormNewJobB.Show;
end
else
begin
if not assigned(FormNewJobC) then FormNewJobC:=TFormNewJobC.Create(Self);
FormNewJobC.Show;
end;
Close;
end;
procedure TFormPrintType.FormShow(Sender: TObject);
begin
RadioGroupPrintType.ItemIndex:=0;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -