Скорее всего у тебя широкие поля в выпадающем списке. Попробуй у источника данных изменить ширину отображаемых полей, примерно так:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOTable1.FieldByName('FieldName').DisplayWidth := 16;
end;
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
|