Работа с 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/

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

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