ComboBox ы и их обработчики

← →
Combo (2002-11-11 10:59) [0]

Мудрый народ подскажите пожалуйста, что здесь не так:

procedure TForm1.ComboBox1OnEnter(Sender: TObject);
begin
(Sender as TComboBox).Style:=csDropDown;
end;

procedure TForm1.ComboBox1OnExit(Sender: TObject);
begin
(Sender as TComboBox).Style:=csSimple;
end;

есть N кол-во комбобоксов (например 5) у них
общие обработчики OnEnter и OnExit так вот они
работают коряво или...кто в этом Королевстве
сталкивался с этим? При смене стиля у комбобоксов
фокус "криво отоброжается" или вообще прога выполнила
недопустимую операцию :(( (D4 Win98)

← →
Игорь Шевченко (2002-11-11 12:33) [1]

нельзя в этом событии смену стиля вызывать. Ты расскажи, что нужно, может, есть альтернативное решение ?

← →
Combo (2002-11-14 14:10) [2]

Да ну мне впринципе и нужно стиль менять на получении этими комбами фокуса тоесть нет фокуса комбо отоброжается как обычный Edit фокус получил стал Комбо.????

← →
OlegMsc (2002-11-14 15:05) [3]

если только расположить ComboBox и Edit друг под другом и

procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.Visible:=false;
ComboBox1.Visible:=true;
ComboBox1.SetFocus;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
ComboBox1.Visible :=false;
Edit1.Visible:=true;
end;

ну и конечно текущее ComboBox значение проставлять в Edit

ComboBox ы и их обработчики Найти похожие ветки