主页 / 问题 / 860404
Accepted
delphi
Asked:2020-07-26 14:09:53 +0000 UTC2020-07-26 14:09:53 +0000 UTC

如何获取/处理双击按钮？

  • 772

我有一个表格，上面有GroupBox。Y GroupBox Width = 0，当您单击按钮时， GroupBox 的大小会发生变化。如何双击button Width GroupBox = 0。我看了看Events按钮，没有OnDblClick。

delphi-7

3 个回答

  1. 使用 SpeedButton 而不是 Button。加上其他选项而不是按钮：面板、标签等。

    • 2

  2. 而不是按钮使用标签一切正常

    “节目” 

    grp1.Height:=200;   
grp1.Width:=200;
lbl1.Caption:='Скрыть';

    “隐藏”

    grp1.Height:=0;
grp1.Width:=0;
lbl1.Caption:='Показать';
    • 1
  3. Best Answer

    也像slippyk写的那样，所有的规则谢谢大家的帮助

     begin
          if lbl16.Tag = 0 then
            begin
              grp1.Height:=200;
              grp1.Width:=195;
              lbl16.Caption:='Скрыть';
              lbl16.Tag:= 1;
            end
            else
            begin
              grp1.Height:=200;
              grp1.Width:=0;
              lbl16.Caption:='Показать';
              lbl16.Tag:= 0;
          end;
        end;
    • 1

相关问题