urepselect.pas

来自「对初学票据套打开发的人很有帮助」· PAS 代码 · 共 33 行

unit URepselect;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons;

type
  TFrm_Repselect = class(TForm)
    RadioGroup1: TRadioGroup;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Repselect: TFrm_Repselect;

implementation

{$R *.DFM}

procedure TFrm_Repselect.SpeedButton1Click(Sender: TObject);
begin
 close;
end;

end.