u_copyfloppy.pas

来自「一个简单的学籍管理软件」· PAS 代码 · 共 59 行

unit U_CopyFloppy;

interface

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

type
  TFm_CopyFloppy = class(TForm)
    Btn_Ok: TButton;
    Btn_Cancel: TButton;
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    Edit_InputPath: TEdit;
    SpBto_SelectPathTwo: TSpeedButton;
    procedure SpBto_SelectPathTwoClick(Sender: TObject);
  private
  public
  end;

function Show_CopyFloppy(var APath: string; FloppyNo: integer): Boolean;
implementation

uses U_SelectDir;

{$R *.DFM}

function Show_CopyFloppy(var APath: string; FloppyNo: integer): Boolean;
var
  Fm_CopyFloppy: TFm_CopyFloppy;
begin
  Fm_CopyFloppy := TFm_CopyFloppy.Create(Application);
  with Fm_CopyFloppy do
  begin
    Caption := '拷贝备份数据 ' + IntToStr(FloppyNo) + ' 号盘';
    Edit_InputPath.Text := APath;
    Result := True;
    if ShowModal = mrOk then
      APath := Trim(Edit_InputPath.Text)
    else
      Result := False;
  end;
end;

procedure TFm_CopyFloppy.SpBto_SelectPathTwoClick(
  Sender: TObject);
var
  tmpS: string;
begin
  tmpS := U_SelectDir.Show_SelectDir;
  if tmpS <> '' then
    Edit_InputPath.Text := tmpS;
end;

end.