コンボボックスの幅を広くする



このサンプルを実行するとコンボボックスの幅は下記のようになります。



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

■使用するAPI関数

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

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

　//初期設定
　For i := 0 to 9 do
　ComboBox1.Items.Add('このサンプルはVisualBasicのAPI技術関連のページからDelphi用に移行しました。');

　//コンボボックスの幅を変更する
　SendMessage(ComboBox1.Handle, CB_SETDROPPEDWIDTH, 500, 0);

end;




Win32APIのページへ



ホーム PV ランキング