utelecharge_101.pas

来自「this application for FTP protocol File T」· PAS 代码 · 共 51 行

unit UTelecharge_101;

interface

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

type
  TFTelecharge = class(TForm)
    Bevel2: TBevel;
    Bevel1: TBevel;
    Memo1: TMemo;
    FermerBtn: TBitBtn;
    AnnulerTransBtn: TBitBtn;
    Bevel3: TBevel;
    procedure AnnulerTransBtnClick(Sender: TObject);
    procedure FermerBtnClick(Sender: TObject);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  FTelecharge: TFTelecharge;

implementation

uses UFtp_Louis_101;

{$R *.dfm}

procedure TFTelecharge.AnnulerTransBtnClick(Sender: TObject);
begin
  If MessageDlg ('Voulez vous VRAIMENT arr阾er t閘閏hargement du fichier ' + FileName + '??',mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
  FFtp.AbortTransfer := True;
end;

procedure TFTelecharge.FermerBtnClick(Sender: TObject);
begin
  if FFtp.TransferringData then
  If MessageDlg ('Voulez vous VRAIMENT arr阾er t閘閏hargement du fichier ' + FileName + '??',mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
   FFtp.AbortTransfer := True;
   Close;
end;

end.