コンボボックスを自動で開く



下記のように自動で開きます



■使用するコンポーネント

■使用するAPI関数

■ソースは下記のようになります。追加している所は青色です。

■コンボボックスを開く処理
procedure TForm1.Button1Click(Sender: TObject);
Var
　i :integer;
begin

　//初期設定
　For i := 0 to 14 do
　　ComboBox1.Items.Add('サンプルコンボ！！');

　//コンボボックスを開く
　SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1, 0 );

end;




Win32APIのページへ



ホーム PV ランキング