Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

MultiSelect в ComboBox   Найти похожие ветки 

← →
Sergey2   (2010-04-28 13:52) [0]

подскажите как можно выбрать несколько значений из combobox ?
при повторном выборе из выпадающего списка значений - что бы оно прибавлялось через запятую к предыдущему.

---

← →
{RASkov} ©   (2010-04-28 14:16) [1]

> [0] Sergey2   (28.04.10 13:52)

Этот контрол не подходит для задачи.... если хочется легкого....

---

← →
Lyonux ©   (2010-04-28 14:34) [2]

А если сделать:
ComboBox1.OnChange(Sender: TObject);
begin
Label1.Caption:=Label1.Caption+", "+ComboBox1.Text;
end;
,- вот что-то вроде этого не подойдёт?)
Или надо именно в комбобокс записывать сумму этих значений?

---

← →
Sergey2   (2010-04-28 14:48) [3]

нет - label не красиво. 2 контрола вешать. задача зайти в выпадающий список комбобокса - перед этим сохранить текст комбобокса. и после выбора из списка значения - просто тексту присвоить что сохранено + то что сейчас выбрали

---

← →
Игорь Шевченко ©   (2010-04-28 19:23) [4]

> подскажите как можно выбрать несколько значений из combobox
> ?


не использовать ComboBox

---

← →
{RASkov} ©   (2010-04-28 20:10) [5]

Попробуй вот такой вариант:
DFM:
object Form1: TForm1
 Left = 192
 Top = 114
 Width = 306
 Height = 188
 Caption = "Form1"
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = "MS Sans Serif"
 Font.Style = []
 OldCreateOrder = False
 PixelsPerInch = 96
 TextHeight = 13
 object SpeedButton1: TSpeedButton
   Left = 232
   Top = 8
   Width = 23
   Height = 22
   AllowAllUp = True
   GroupIndex = 1
   Caption = "V"
   OnClick = SpeedButton1Click
 end
 object Edit1: TEdit
   Left = 8
   Top = 8
   Width = 221
   Height = 21
   TabOrder = 0
   Text = "Edit1"
 end
 object ListBox1: TListBox
   Left = 8
   Top = 28
   Width = 221
   Height = 113
   ExtendedSelect = False
   ItemHeight = 13
   Items.Strings = (
     "item1"
     "item2"
     "item3"
     "item4"
     "item5"
     "item6"
     "item7")
   MultiSelect = True
   TabOrder = 1
   Visible = False
   OnClick = ListBox1Click
 end
end
PAS:
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Classes, Controls, Forms, StdCtrls, Buttons;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   ListBox1: TListBox;
   SpeedButton1: TSpeedButton;
   procedure SpeedButton1Click(Sender: TObject);
   procedure ListBox1Click(Sender: TObject);
 private { Private declarations }
 public  { Public declarations }
 end;

var Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 with TSpeedButton(Sender)do
  if Down then begin
   Caption:="^";
   ListBox1.Show;
  end else begin
   Caption:="V";
   ListBox1.Hide;
  end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var N: Integer;
begin
 Edit1.Clear;
 for N:=0 to ListBox1.Count-1 do
  if ListBox1.Selected[N] then
   if Edit1.Text="" then Edit1.Text:=ListBox1.Items[N]
    else Edit1.Text:=Format("%s; %s", [Edit1.Text, ListBox1.Items[N]])
end;

end.

---

← →
oldman ©   (2010-04-28 21:03) [6]

> подскажите как можно выбрать несколько значений из combobox?


Весеннее обострение или что?
Блин. Просили, конечно, не хамить, но это выше крыши...

Combobox.ItemIndex:="1,3,5,9,14"
:(

---

Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.049 c