Home>>プログラミング>>Tips&Tricks>>TConboBoxをコードで開閉する

Delphi Tips & Tricks

TComboBoxをコードで開閉する

　プログラムから、コンボボックスを開閉するサンプルです。とても簡単でウィンドウメッセージを送って、開いたり閉じたりしているだけです。
　おまけでTComboBoxの開く幅を変更する方法も紹介しておきます。

//開く
procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1, 0);
end;

//閉じる
procedure TForm1.Button2Click(Sender: TObject);
begin
  SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 0, 0);
end;

//ドロップダウンリストの幅を変更（コンボボックスの幅以下にはできません）
procedure TForm1.Button3Click(Sender: TObject);
begin
  SendMessage(ComboBox1.Handle, CB_SETDROPPEDWIDTH, ComboBox1.width * 3, 0);
end;