frmtmpropedit.pas

这个是去年写的东东。 以前公司一直使用易飞ERP

unit frmTMPropEdit;

interface

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

type
  TForm4 = class(TForm)
    PageControl1: TPageControl;
    edtName: TTabSheet;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Edit2: TEdit;
    TabSheet1: TTabSheet;
    Label2: TLabel;
    lblProgramID: TStaticText;
    TabSheet2: TTabSheet;
    Label3: TLabel;
    SpeedButton2: TSpeedButton;
    edtExeFile: TEdit;
    OpenDialog1: TOpenDialog;
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
  Form4.Visible := False ;
end;

procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
  OpenDialog1.Execute ;
end;

procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
  if RadioButton1.Checked = True then OpenDialog1.Filter :=
    'Bitmaps(*.bmp)|*.bmp|Enhanced Metafile(*.emf)|*.emf|Metafile(*.wmf)|*.wmf|All Files(*.bmp,*.emf,*.wmf)|*.bmp,*.emf,*.wmf';
  if RadioButton2.Checked = True then OpenDialog1.Filter :=
    'Text File(*.txt)|*.txt|Rich File(*.rtf)|*.rtf|All Files(*.txt,*.rtf)|*.txt,*.rtf';
  if RadioButton3.Checked = True then OpenDialog1.Filter := '' ;
  if RadioButton4.Checked = True then OpenDialog1.Filter := 'Map Files(*.mmu)|*.mmu'  ;
  if OpenDialog1.Filter <> '' then OpenDialog1.Execute ;
end;

end.