DBLookupComboBox - Страна - Регионы - Города

[IIpopoK]

Хотябы не полную но достаточно набитую Странами и городами этих стран.

[Alex21]

Ищи справочник телефонных кодов.

[cpGrey]

Можно попробовать и так:

// Сортировка выпадающего списка стран по алфавиту.
procedure TfAdd.dblStranaDropDown(Sender: TObject);
begin
  fModul.tStrana.Sort:='Название_страны';
  fModul.tRegion.Sort:='';
  fModul.tGorod.Sort:='';
end;

procedure TfAdd.dblStranaCloseUp(Sender: TObject);
begin
  dblRegion.Perform(WM_KeyDown,38,0);
  dblGorod.Perform(WM_KeyDown,38,0);
end;

// Сортировка выпадающего списка регионов по алфавиту.
procedure TfAdd.dblRegionDropDown(Sender: TObject);
begin
  fModul.tRegion.Sort:='Название_региона';
  fModul.tGorod.Sort:='';
end;

procedure TfAdd.dblRegionCloseUp(Sender: TObject);
begin
  dblGorod.Perform(WM_KeyDown,38,0);
end;

// Сортировка выпадающего списка городов по алфавиту.
procedure TfAdd.dblGorodDropDown(Sender: TObject);
begin
  fModul.tGorod.Sort:= 'Название_города';
end;

Все будет происходить автоматом.

[D@rk M@k]

Сообщение от IIpopoK

Чесно говоря я нифига не понял че к чему

Пример выложил. А дальше думаю разберетесь сами.

[IIpopoK]

Сообщение от D@rk M@k

Пример выложил. А дальше думаю разберетесь сами.

Спасибо большое за помощь! очень помогло!

Почему у меня в полях "Регион" и "Город" как бы выбрано все??
Как это исправить?