嘿，针对你问的两个Delphi问题，我给你详细说说解决方案，都是实际项目里常用的方法哈：

在Delphi里控制按钮是否响应点击，有三种主流方式，你可以根据需求选：

• 直接设置Enabled属性（最直观）
  这是最简单的方式，设置Button1.Enabled := False后，按钮会变灰，用户一眼就能看出不可点击，同时Click事件完全不会触发。要恢复的话设为True就行。
  示例代码：

  // 假设你有个控制变量IsButtonActive
  if IsButtonActive then
    Button1.Enabled := True
  else
    Button1.Enabled := False;
  

• 动态绑定/解绑OnClick事件（外观不变，仅禁用逻辑）
  如果不想让按钮变灰，只是不想响应点击，可以把按钮的OnClick事件临时设为nil，需要恢复时再赋值回原来的处理函数。
  步骤：

  1. 在窗体类的私有部分定义变量保存原事件：

     private
       FBtn1OriginalClick: TNotifyEvent;
     

  2. 在FormCreate事件里保存原事件：

     procedure TForm1.FormCreate(Sender: TObject);
     begin
       FBtn1OriginalClick := Button1.OnClick;
     end;
     

  3. 根据变量控制事件绑定：

     // 禁用Click事件
     if not IsButtonActive then
       Button1.OnClick := nil
     else
       // 恢复原事件
       Button1.OnClick := FBtn1OriginalClick;
     

• 在Click事件内部加变量判断（灵活控制执行逻辑）
  如果只是想让Click事件不执行核心逻辑，但按钮外观和点击状态不变，可以在事件开头加判断，变量为假就直接退出。
  示例：

  // 先定义控制变量IsBtn1Allowed（可以是窗体类成员或全局变量）
  procedure TForm1.Button1Click(Sender: TObject);
  begin
    // 变量为假则直接退出，不执行后续逻辑
    if not IsBtn1Allowed then Exit;
  
    // 这里是原本的按钮点击逻辑
    ShowMessage('按钮1被点击了！');
  end;
  

针对你的FTP上传需求，我整理了完整的实现步骤，用到Delphi自带的Indy组件，直接能用：

准备工作 #

1. 打开你的Delphi 10 Seattle项目，在窗体上拖入以下组件：
   • 2个TButton（命名为Button1、Button2）
   • 2个TEdit（命名为Edit1、Edit2）
   • 1个TIdFTP（Indy的FTP组件，在Indy Clients面板里）
2. 在窗体类的私有部分定义控制变量：

   private
     IsUploading: Boolean; // 标记是否正在上传
   

1. Button1：生成文本文件并保存文件名到Edit1 #

这个按钮负责执行计算、生成文件，代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  FileContent: TStringList;
  FullFileName: string;
begin
  // ------------------------
  // 这里替换成你的计算逻辑
  // ------------------------

  // 生成带时间戳的文件名，避免重复
  FullFileName := '计算结果_' + FormatDateTime('YYYYMMDDHHmmss', Now) + '.txt';
  // 写入文件内容（这里用示例内容，替换成你的计算结果）
  FileContent := TStringList.Create;
  try
    FileContent.Add('这是计算生成的内容行1');
    FileContent.Add('这是计算生成的内容行2');
    // 保存到程序所在目录
    FileContent.SaveToFile(ExtractFilePath(Application.ExeName) + FullFileName);
    // 文件名存入Edit1
    Edit1.Text := FullFileName;
    ShowMessage('文件生成成功！');
  finally
    FileContent.Free;
  end;
end;

2. Button2：重命名文件、上传FTP并锁定控件 #

这个按钮负责重命名文件、上传，同时处理上传期间的控件禁用和窗体关闭限制：

先设置窗体的OnCloseQuery事件（禁止上传时关闭窗体） #

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  // 正在上传时不允许关闭窗体
  CanClose := not IsUploading;
  if not CanClose then
    ShowMessage('文件正在上传中，暂时无法关闭窗体！');
end;

然后写Button2的Click事件代码 #

procedure TForm1.Button2Click(Sender: TObject);
var
  OldFullPath, NewFullPath, NewFileName: string;
begin
  // 先检查是否已生成文件
  if Edit1.Text = '' then
  begin
    ShowMessage('请先点击按钮1生成文件！');
    Exit;
  end;

  // 检查文件名长度是否足够删除最后4个字符
  if Length(Edit1.Text) < 4 then
  begin
    ShowMessage('文件名长度不足4位，无法执行重命名！');
    Exit;
  end;

  // 构建原文件和新文件的完整路径
  OldFullPath := ExtractFilePath(Application.ExeName) + Edit1.Text;
  NewFileName := Copy(Edit1.Text, 1, Length(Edit1.Text) - 4);
  NewFullPath := ExtractFilePath(Application.ExeName) + NewFileName;

  // 执行文件重命名
  if not RenameFile(OldFullPath, NewFullPath) then
  begin
    ShowMessage('文件重命名失败，请检查文件是否被占用！');
    Exit;
  end;
  // 新文件名存入Edit2
  Edit2.Text := NewFileName;

  // ------------------------
  // 开始上传：锁定控件和窗体
  // ------------------------
  IsUploading := True;
  Button1.Enabled := False;
  Button2.Enabled := False;
  Screen.Cursor := crHourGlass; // 鼠标变为沙漏，提示忙碌

  try
    // 配置FTP服务器参数（替换成你的服务器信息）
    IdFTP1.Host := 'ftp.yourserver.com';
    IdFTP1.Username := 'your_username';
    IdFTP1.Password := 'your_password';
    IdFTP1.Port := 21; // 默认FTP端口，若用SFTP需换IdSFTP组件并设为22
    IdFTP1.Passive := True; // 开启被动模式，大部分服务器需要

    // 连接FTP服务器
    IdFTP1.Connect;
    try
      // 上传文件：第一个参数是本地文件路径，第二个是服务器上的文件名
      IdFTP1.Put(NewFullPath, NewFileName);
      ShowMessage('文件上传成功！');
    finally
      // 无论成功失败，都断开FTP连接
      IdFTP1.Disconnect;
    end;
  except
    on E: Exception do
    begin
      ShowMessage('上传失败：' + E.Message);
      // 可选：上传失败后将文件恢复原名称
      RenameFile(NewFullPath, OldFullPath);
      Edit2.Text := '';
    end;
  end;

  // ------------------------
  // 上传完成：恢复控件和鼠标状态
  // ------------------------
  IsUploading := False;
  Button1.Enabled := True;
  Button2.Enabled := True;
  Screen.Cursor := crDefault;
end;

一些注意事项 #

• FTP被动模式：大部分公共FTP服务器需要开启被动模式（IdFTP1.Passive := True），否则可能连接失败。
• 异常处理：一定要加try-except块，避免上传过程中出错导致控件一直处于禁用状态。
• 文件路径：建议使用绝对路径（比如ExtractFilePath(Application.ExeName)），避免相对路径带来的问题。
• 大文件上传：如果上传大文件，同步上传会阻塞UI，此时可以考虑用Indy的异步上传或单独开线程处理，不过需要注意线程中访问UI控件要用Synchronize方法。

内容的提问来源于stack exchange，提问作者HP Owner