delphi - 在 Delphi 中执行自动取消选中按钮的操作

Question

当按下 TSpeedButton 时，我想执行一个操作，而当“未按下”同一个按钮时，我想执行另一个操作。我知道没有 onunpress 事件，但是当按下不同的按钮时，有什么简单的方法可以让我执行一个动作吗？

procedure ActionName.ActionNameExecute(Sender: TObject);
begin
  PreviousActionName.execute(Sender);
  //
end;

显得太笨重了。

Answer 1

没有 unpress，但是可以查询 Down 属性。

该示例采用了一些脏强制转换，但它对动作和 OnClick 都有效。

procedure Form1.ActionExecute(Sender: TObject);
var
  sb : TSpeedButton;
begin
  if Sender is TSpeedButton then
    sb := TSpeedButton(Sender)
  else if (Sender is TAction) and (TAction(Sender).ActionComponent is TSpeedButton) then
    sb := TSpeedButton(TAction(Sender).ActionComponent)
  else 
    sb := nil;

  if sb=nil then
    DoNormalAction(Sender)
  else if sb.Down then
    DoDownAction(sb)
  else 
    DoUpAction(sb);
end;

Answer 2

根据您的描述，我想您将您的速度按钮与 GroupIndex <>0 一起使用，但在同一组中没有其他按钮，或者至少不能用作 RadioButtons（AllowAllUp True）。

您只有 1 个用于按下按钮的 onClick 事件，但如果按钮具有 GroupIndex，该怎么做取决于按钮的状态。
因此，您必须在 onClick 事件处理程序中测试 Down 是否为 False，因为 Down 在 onClick 处理程序被触发之前更新。

前任：

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  with Sender as TSpeedButton do
  begin
    if Down then
      showmessage('pressing')
    else
      showmessage('unpressing');
  end;
end;