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

Question

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

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

看起来太笨重了。

Answer 1

根据您的描述，我想您将快速按钮与 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;

Answer 2

没有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;