| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

переделать Combobox [D6, Win2k, WinXP]

MetalFan ©   (2004-08-10 11:04:00) 

как сделать так, чтобы при определенном условии (например, если нажата какая-либо клавиша) текст в combobox'е при выборе определенного item'a не заменялся, а прибавлялся к уже ранее введенному/выбранному?

зарнее спасибо!

---

MetalFan   (2004-08-10 16:04:00) [1]

интересная мысль! сейчас попробую!
спасибо!

---

@Lex   (2004-08-10 12:36:00) [2]

может так подойдет

procedure Tform1.ComboBox1CloseUp(Sender: TObject);
var
 lState: Smallint;
begin
lState := GetKeyState(VK_LCONTROL);
lstate := lstate  shr 8;
if (trim(FLastComboText) <> '') and (lState = -1) then begin
  if Index > -1 then ComboBox1.Items.Delete(Index);
  Index := ComboBox1.Items.Add(FLastComboText + ';' + ComboBox1.Text);
  ComboBox1.ItemIndex := Index;
end
else
  if Index > -1 then begin
    ComboBox1.Items.Delete(Index);
    Index := -1;
  end;
FLastComboText := '';
end;

---

MetalFan   (2004-08-10 11:58:00) [3]

нет идей?

---

MetalFan   (2004-08-10 11:26:00) [4]

сделал так:
procedure Tform1.ComboBox1DropDown(Sender: TObject);
begin
FLastComboText := ComboBox1.Text;
end;

procedure Tform1.ComboBox1CloseUp(Sender: TObject);
var
lState: Smallint;
begin
 lState := GetKeyState(VK_LCONTROL);
 lstate := lstate  shr 8;
 if (trim(FLastComboText) <> '') and (lState = -1) then
   ComboBox1.Text := FLastComboText + ';' + ComboBox1.Text;
 FLastComboText := '';
end;
не работает(

---

Ega23   (2004-08-10 11:24:00) [5]

Теперь всё понятно. В OnDropDown обработчике сохраняй предыдущее значение.

---

MetalFan   (2004-08-10 11:21:00) [6]

1) есть TCombobox со стилем Style = csDropDown
2) работает так: при выборе какого либо итема св-во text у него принимает значение выбранного итема
3) нужно так: при определенном условии при выборе итема св-во text у него должно стать: <предыдущее значение> + <Выбранное значение>
понятно объяснил?
что-то немогоу дотукать, как это можно осуществить!

---

Ega23   (2004-08-10 11:05:00) [7]

Ещё раз и более подробно, а то телепатией неохота заниматься.

---

Наверх