Простой ComboBox

← →
Фагот © (2003-12-22 11:37) [0]

Часть строки не умещается в поле. Как делать так, чтобы он отображал начало строки, а не конец?

← →
Sandman25 © (2003-12-22 11:48) [1]

Он так и делает.

← →
Фагот © (2003-12-22 12:38) [2]

не знаю, мождет это зависит от того, что в Items. У меня берёт записи из запроса. Длина поля Char в таблице 255, и он отображает конец строки. А мне, ессно, нужно начало

← →
kaif © (2003-12-22 12:52) [3]

Интересно, как это ComboBox берет записи из запроса.

← →
Фагот © (2003-12-22 13:10) [4]

А вот так:
DM.IBQuery7.FetchAll;
DM.IBQuery7.First;
for cycle:= 0 to DM.IBQuery7.RecordCount-1 do
begin
ComboBox3.Items.Add(DM.IBQuery7.FieldValues["NSOUR"]);
DM.IBQuery7.Next;
end;

← →
Sandman25 © (2003-12-22 13:12) [5]

Попробуйте заменить на
ComboBox3.Items.Add(Trim(DM.IBQuery7.FieldByName("NSOUR").AsString));

← →
Фагот © (2003-12-22 13:19) [6]

Trim помогает, если там символов немного и много пробелов. Но если сама по себе длинная строка, то трабл остаётся!

← →
Sandman25 © (2003-12-22 13:22) [7]

[6] Фагот © (22.12.03 13:19)

Вы случайно не сами ComboBox рисуете? Какой Style?

← →
Фагот © (2003-12-22 13:36) [8]

Да нет! Самый обычный комбо. Без еддиного наворота... csDropDawn

← →
Sandman25 © (2003-12-22 13:44) [9]

Delphi 7, что ли?

Я в Delphi 6 только что еще раз проверил, все нормально работает, показывает начало. Причем при загрузке и в run-time, и в design-time.

← →
Фагот © (2003-12-22 13:56) [10]

Именно Delphi6. Попробуй взять что-нить из запроса...

← →
Фагот © (2003-12-22 14:06) [11]

Для других стайлов именно так как надо, а вот для csDropDown...

← →
clickmaker © (2003-12-22 14:18) [12]

> Фагот © (22.12.03 13:56) [10]
> Именно Delphi6. Попробуй взять что-нить из запроса...

А причем тут запрос? Ему не до фени ли, какие строки отображать? Это ж не DBComboBox. А отображает конец он тока в едите, подсвеченным. Но это его стандартное поведение

← →
Sandman25 © (2003-12-22 15:14) [13]

Точно!
Если фокус на нем, то он отображает конец текста, а не начало.

← →
Konstvd (2003-12-23 14:18) [14]

столкнулся с той же проблемой.... так а можно ли это стандартное поведение изменить? чтобы показывал не конец строки, а все-таки начало?

← →
Sandman25 © (2003-12-23 16:59) [15]

[14] Konstvd (23.12.03 14:18)

Я уже около часа бьюсь, не получается :(

← →
ssk (2003-12-23 18:17) [16]

А может сделать ComboBox.SelStart:=1; ?
Тогда курсор в начало станет

← →
Sandman25 © (2003-12-23 18:19) [17]

[16] ssk (23.12.03 18:17)

Не помогает. Была одной из первых идей :)

← →
ssk (2003-12-23 18:25) [18]

У меня Delphi 7. И это работает.

[18] ssk (23.12.03 18:25)

У меня D6. Вы это пишете в OnEnter?

← →
ssk (2003-12-23 18:31) [20]

Нет. Сделал вот что:

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Clear;
ComboBox1.Items.Add("Очень очень длинная строка 1");
ComboBox1.Items.Add("Очень очень длинная строка 2");
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.SelStart:=1;
end;

[20] ssk (23.12.03 18:31)

У меня так не работает. При переходе в ComboBox срабатывает SelectAll и курсор в конце.

← →
ssk (2003-12-23 18:52) [22]

при выборе пункта в ComboBox так и есть - выделяется все и видно хвост строки. может тогда на OnChange прописать SelStart?

[22] ssk (23.12.03 18:52)

Нужно, чтобы хотя бы при первом получении фокуса Text не выделялся. Даже это не получается. Проблемы при изменении - дело десятое.

Проблемы при изменении - дело десятое. Сначала бы добиться, чтобы при первом получении фокуса текст не выделялся. Ладно, я ушел.

← →
ssk (2003-12-23 19:05) [25]

хм... да, не работает

Простой ComboBox Найти похожие ветки