переделать Combobox

← →
MetalFan © (2004-08-10 11:04) [0]

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

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

← →
Ega23 © (2004-08-10 11:05) [1]

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

← →
MetalFan © (2004-08-10 11:21) [2]

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

← →
Ega23 © (2004-08-10 11:24) [3]

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

← →
MetalFan © (2004-08-10 11:26) [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;
не работает(

← →
MetalFan © (2004-08-10 11:58) [5]

нет идей?

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

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;

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

переделать Combobox Найти похожие ветки