1

次の機能を実装しようとしています。

  1. マウスがコンボボックスの上に来ると、自動的に開きます。
  2. マウスがコンボボックス領域（コンボだけでなくドロップダウンリストも）を離れると、自動的に閉じます。

最初のポイントは非常に簡単でした:

procedure TForm1.ComboTimeUnitsMouseEnter(Sender: TObject);
begin
  ComboTimeUnits.DroppedDown := True;
end;

2点目ですが、私にはできません。私は試した：

procedure TForm1.ComboTimeUnitsMouseLeave(Sender: TObject);
begin
  ComboTimeUnits.DroppedDown := False;
end;

しかし、マウスがコンボボックスの上にあるとき、それは非常に奇妙に動作し、表示されたり消えたりして使用できなくなります。

AutoCloseUp プロパティを試しましたが、結果はありませんでした。今、私はアイデアがなくなり、グーグルは助けられませんでした。

誰かが私を正しい方向に向けることができますか?

4

1 に答える 1