Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
p4serhiy
18 / 18 / 4
Регистрация: 27.03.2010
Сообщений: 215
1

MDIForms & ComboBox

09.05.2011, 18:15. Просмотров 871. Ответов 1
Метки нет (Все метки)

На главной форме есть несколько дочерних форм на которых размещены по 2 ComboBox
Как собрать данные со всех ComboBox например в переменную типа String?

Добавлено через 3 часа 7 минут
Думал как то так но не получаетса..
Pascal
1
2
3
4
5
6
7
8
9
10
var
Child: TMDIChild ;
co:tComboBOx;
i,k: integer;
s:string;
begin
  for k:= 0 to MDIChildCount-1 do begin
      for i:=0 to MDIChildren[k].componentcount-1 do        begin
       if ( MDIChildren[k].components[i] is TComboBOx)  then   co:=form1.components[k] as TComboBox;
       s:= co.Items.Strings[co.itemindex];
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2011, 18:15
Ответы с готовыми решениями:

Выделение памяти под двумерный массив && передача его в процедуру
Доброе время суток,уважаемые читатели форума! Только начали изучать...

Delphi & MSSQL2K & NText - глюк!!!
Привет All. Вот в чем проблема: на сервере MSSQL 2000 валяется stored ...

DrawGrid & Drag&Drop
Здравствуйте. Суть вопроса - поставлена задача по заполнению TDrawGrid формата...

Delphi & Excel & Color
Не могу присвоить цвет ни 1 ни 2 способом, в чем беда? var FXLS: variant;...

Содержимое второго ComboBox-а должно зависеть от выбранного элемента в первом ComboBox-е
Здраствуйте!У меня такая задачка. У меня есть 2 компонента CombBox. В первом я...

1
Mawrat
12827 / 5735 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
09.05.2011, 20:32 2
Лучший ответ Сообщение было отмечено p4serhiy как решение

Решение

Можно так сделать:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j : Integer;
  Cb : TComboBox;
  S : String;
begin
  S := '';
  for i := 0 to MDIChildCount - 1 do begin
    for j := 0 to MDIChildren[i].ComponentCount - 1 do begin
      if not (MDIChildren[i].Components[j] is TComboBox) then Continue;
      Cb := MDIChildren[i].Components[j] as TComboBox;
      S := S + Cb.Items.Text;
    end;
  end;
  ShowMessage(S);
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.05.2011, 20:32

Как можно менять текст в Combobox, используя другой Combobox?
Как можно менять текст, в Combobox используя другой Combobox, т.е. Допустим,...

ComboBox можно-ли изменить свойство Text внутри обработчика onChange этого-же ComboBox-а
Хочу сделать так. var //глобальные sCBoxIni: String = 'Выберите'; ...

Несколько Combobox-ов. После выбора значения в одном Combobox-е, оно должно стать недоступным в других
Доброго времени суток. У меня такая проблемка. Имеется 3 combobox'a ,содержащие...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru