|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#31
|
|||
|
|||
Ну первое, я бы не стал во второй форме писать этот код...
Просто в кнопке Add поставил бы свойство ModalResult в mrOk а в первой рассматривал то что возвратил ShowModal Код:
procedure TForm1.Button1Click(Sender: TObject); var ComboBox: TComboBox; begin if Form2.ShowModal = mrOk then begin ComboBox := FindComponent(Format('ComboBox%d', [RadioGroup1.ItemIndex +1 ])) as TComboBox; ComboBox.Text := //Text; ComboBox.Items.Add(//Text); end; end; А во втором случае у тебя неразбериха с индексами (да и размести это кнопку на 1 форме) Код:
procedure TForm1.Button2Click(Sender: TObject); var Index: Integer; ComboBox: TComboBox; begin ComboBox := FindComponent(Format('ComboBox%d', [RadioGroup1.ItemIndex +1 ])) as TComboBox; if ComboBox.Items.Count > 1 then begin Index := ComboBox.ItemIndex; ComboBox.Items.Delete(Index); // удалили строку Index инкрементировался автоматически ComboBox.ItemIndex := Index; end else ShowMessage('Вы хотите удалить последнюю запись'); end; |
#32
|
|||
|
|||
Код:
procedure TForm1.Button1Click(Sender: TObject); var Index: Integer; ComboBox: TComboBox; begin ComboBox := FindComponent(Format('ComboBox%d', [RadioGroup1.ItemIndex +1 ])) as TComboBox; if ComboBox.Items.Count > 1 then begin Index := ComboBox.ItemIndex; if ComboBox.Items.Count = Index+1 then begin ComboBox.Items.Delete(Index); ComboBox.ItemIndex := 0 end else ComboBox.Items.Delete(Index); ComboBox.ItemIndex := Index; end else ShowMessage('Невозможно удалить последнюю запись!!!'); ComboBox.SetFocus; end; Последний раз редактировалось Beast, 25.08.2008 в 18:28. |
#33
|
|||
|
|||
А почему в ComboBox'ы со свойством Style - csDropDown из файла можно записать информацию, а с другими стилями НЕЛЬЗЯ????
|
#34
|
|||
|
|||
Потому, что остальные стили не поддерживают изменение списка
|
#35
|
|||
|
|||
Можно тогда как нибудь запретить ввод текста в ComboBox'ы, а оставить только выбор, если свойство Style оставить csDropDown?
|
#36
|
|||
|
|||
Мне необходимо запретить ввод информации с клавиатуры, изменение стиля тут непрокатывает (поле в ComboBox'е сразу становится пустым).
Если в событии OnKeyPress написать: Key := #0; Получается что-то вроде того, что мне надо, но как можно запретить вставку из буфера? |
#37
|
||||
|
||||
Цитата:
Пусть печатают работяги, программеры - люди ленивые! А я предлагаю перемирие, процедурой выпивания и закусывания |
#38
|
||||
|
||||
Сильно, вы бы еще более древнюю тему откопали. Теперь придется всю ее перечитывать.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#39
|
|||
|
|||
Ребята помогите!!!
Есть 5 combobox-ов с определенными значениями. Когда сделан выбор определенной позиции из каждого combobox-а нужно чтобы загрузился определенный avi или mov файл. Помоги плиз
|
#40
|
||||
|
||||
Код:
case combobox.ItemIndex of -1: showmessage('Файл не выбран'); 0: загружаешь файл...; 1: ...; 2: ...; end; Код:
var i:integer; ... if combobox.itemindex<>-1 then begin i:=combobox.itemindex; filename:= combobox.items[i]; //работа с filename end; Суть объяснил, далее думаю сам разберёшся, если че - пиши. Алкоголик-аморал, явная угроза обществу Блин, я уже местный, а все равно нифига не знаю... |
#41
|
|||
|
|||
Спасибо, но ты объяснил, как работать с одним ComboBox, а у меня их пять. Попробую объянить по другому
ComboBox1 - 1. 2 2. 5 3. 9 ComboBox2 - 1. демонтаж 2. монтаж 3. рекострукция ComboBox3 - .... ComboBox4 - .... ComboBox5 - .... И т.д. И при выборе в каждом из них определенной позиции, нужно загрузить определннный файл, формата avi. П.С. Извини, может глупый вопрос, но я пытаюсь разобраться((. Заранее спасибо. |