Question

我在Delphi XE4中使用TToolButton时遇到了一些问题。

procedure TForm2.FormCreate(Sender: TObject);
begin
  btn1.Style        := tbsDropDown;
  btn1.DropDownMenu := pmCreateReport1;
  btn1.PopupMenu    := pmCreateReport1;

  FDown     := True;
  btn1.down := FDown;
end;

procedure TForm2.btn1Click(Sender: TObject);
begin
  FDown     := not FDown;
  btn1.down := FDown;
end;

在FormCreate之后，down属性设置为true并且它可以工作，但是当我单击该按钮时，down属性不能按预期工作。第二次按下按钮后，按钮应再次按下。

调试器说该属性设置为true，这是正确的，但我无法在表单上看到它。

当我使用简单的TToolButton而没有样式tbsdropdown时，它按预期工作。

你有什么想法吗？

Answer 1

The documentation解释道：

仅当Style为tbsCheck时，工具按钮才能保持向下。

您必须找到其他方法来实现您想要的表示。

Answer 2

使用btnGuest(){ var redirect = <HTMLAnchorElement>document.createElement("a"); redirect.href = 'https://www.google.co.in/'; redirect.target = '_blank'; redirect.click(); } <button (click)="btnGuest()"></button>，设置 AutoCheck 属性 True ，

示例代码：

ActionList

TToolButton（tbsDropDown） - down属性无法正常工作

2 个答案: