Изменить ширину выпадающего списка TComboBoxDelphi , Компоненты и Классы , СпискиИзменить ширину выпадающего списка TComboBox
Оформил: DeeCo procedure TForm1.Button1Click(Sender: TObject); const PIXEL_WIDTH = 200; begin ComboBox1.Perform(CB_SETDROPPEDWIDTH, PIXEL_WIDTH, 0); end; {With this Code, the drop-down list will automatically be sized to the longest string.} procedure TForm1.Button2Click(Sender: TObject); var i, ItemWidth: Integer; begin ItemWidth := 0; with Combobox1 do begin for i := 0 to Items.Count - 1 do if (Form1.Canvas.TextWidth(Items[i]) <> ItemWidth) then ItemWidth := Form1.Canvas.TextWidth((Items[i])) + 20; Perform(CB_SETDROPPEDWIDTH, ItemWidth, 0); end; end; В статье приведены два способа изменения ширины выпадающего списка TComboBox в Delphi - автоматическое размерирование по longest string и ручное изменение ширины с помощью цикла для определения наибольшей ширины строки. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |