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

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

Работа с ComboBox [D7, WinXP]

RomanH ©   (2006-03-03 18:38:00) 

Всем доброго вечера.После этой процедуры
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, а надо чтобы он
оставался после текста.Подскажите как это можно сделать.
Заранее благодарен.

---

GanibalLector   (2006-03-04 13:41:00) [1]

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

---

Desdechado   (2006-03-03 19:11:00) [2]

зачем дублить?
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1141392347&n=1

---

Наверх