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

Вниз

Работа с ComboBox   Найти похожие ветки 

← →
RomanH ©   (2006-03-03 18:38) [0]

Всем доброго вечера.После этой процедуры
procedure TForm1.ComboBox1Change(Sender: TObject);
var
     i:integer;
begin

     with Query1 do
     begin
         Close;
         SQL.Clear;
         SQL.Add("Select Name");
         SQL.Add("From ":KLADR:street.db"");
         SQL.Add("Where");
         SQL.Add("(Name Like ""+ComboBox1.Text+"%")");
         Open;
     end;
     Edit1.Text:=inttostr(Query1.RecordCount);

     ComboBox1.Items.Clear;

     for i:=1 to Query1.RecordCount do
     begin
         ComboBox1.Items.Append(Query1.FieldValues["Name"]);
         Query1.Next;
     end;

end;

Курсор перемещается перед ComboBox1.Text, а надо чтобы он
оставался после текста.Подскажите как это можно сделать.
Заранее благодарен.

---

← →
Desdechado ©   (2006-03-03 19:11) [1]

зачем дублить?
http://delphimaster.net/view/3-1141392347/

---

← →
GanibalLector ©   (2006-03-04 13:41) [2]

Combobox1.SelStart:=Length(Combobox1.Text);
Это,если я правильно понял?

---

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

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

Наверх

Память: 0.47 MB
Время: 3.498 c