Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];
Внизпеределать 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]нет идей?
← →
@Lex © (2004-08-10 12:36) [6]может так подойдет
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 16:04) [7]интересная мысль! сейчас попробую!
спасибо!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.034 c