По номеру билета определить является ли он активным или нет

@Настя Трусова · Регистрация: 04.09.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте. Мне надо при выборе номера билета определить является ли он в продаже или активным. Если да, то чтоб выбыло зеленым, если нет то красным. Подскажите пж как это реализовать

@krapotkin · 10.06.2018, 14:52

ошибку вижу
где кот?

@Настя Трусова · 10.06.2018, 15:22 **[ТС]**

вот, я его вставила и написала

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
М:array of array of intеrger;
clr:=clWhite;
place := ACol;
row := ARow+1;
if ACol=0 then begin
  grid.canvas.Brush.color := clr;
  grid.canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(Row));
  exit;
end;
 
status := M[row-1,place-1];
if status = 1 then 
  clr := $f0f0FF;
grid.canvas.Brush.color := clr;
grid.canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(place));

@krapotkin · 10.06.2018, 15:28

а это я случайно написал?

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

размер массива установить кол_во_рядов x кол_во_мест
http://www.delphibasics.ru/setlength.php

@Настя Трусова · 10.06.2018, 15:38 **[ТС]**

А можно еще вопрос. Я когда нажимаю на 1 строку строку в combobox, то у меня высвечивается форма, когда нажимаю на 2 строку, тоже высчечивается другая фома, но при нажатии на отмена, первая форма остается. Как сделать так, что бы при нажатии на определенну строку мне выдало ту форму которую мне надо, а потом при нажатии на отмена был выход

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm_BILETI.cbb1Click(Sender: TObject);
begin
 if cbb1.ItemIndex=0 then
form1.ShowModal;
 
if cbb1.ItemIndex=1 then
form4.ShowModal;
 
end;

@krapotkin · 10.06.2018, 15:48

из этого кода не следует того, что вы написали
значит, что-то не так как вы говорите
ShowModal показывает форму и ждет пока ее закроют, после этого выполнение кода продолжается

@Настя Трусова · 10.06.2018, 21:47 **[ТС]**

А можете написать код для установки размера массива? Я не очень понимаю как написать?

@krapotkin · 11.06.2018, 01:39

http://www.delphibasics.ru/setlength.php
читать до слов устанавливаем длину многомерного массива

@Настя Трусова · 11.06.2018, 15:55 **[ТС]**

я многомерный как аз и делала, но оно у меня вывелось то что в примере было, я подставляла М, но все равно

Добавлено через 26 минут

Сообщение от Настя Трусова

А можно еще вопрос. Я когда нажимаю на 1 строку строку в combobox, то у меня высвечивается форма, когда нажимаю на 2 строку, тоже высчечивается другая фома, но при нажатии на отмена, первая форма остается. Как сделать так, что бы при нажатии на определенну строку мне выдало ту форму которую мне надо, а потом при нажатии на отмена был выход
DelphiВыделить код
1
2
3
4
5
6
7
8
9
procedure TForm_BILETI.cbb1Click(Sender: TObject);
begin
*if cbb1.ItemIndex=0 then
form1.ShowModal;
if cbb1.ItemIndex=1 then
form4.ShowModal;
end;

я когда нажимаю на сторку то мне выдает сразу две формы, а мне надо чтоб только одну

@krapotkin · 11.06.2018, 16:32

Сообщение от Настя Трусова

я многомерный как аз и делала, но оно у меня вывелось то что в примере было, я подставляла М, но все равно

вы же ничего не показываете. как проверить?
где у вас объявление массива?
где у вас установка размеров массива?

давайте рассуждать. если ItemIndex=0 то МОДАЛЬНО показать form1
после ЗАКРЫТИЯ form1 мы проверяет если itemIndex=1
как тут Form1 может остаться на экране? мы только после её закрытия вообще дальше можем пройти

Добавлено через 49 секунд
я же говорю, давайте весь код
ваши куски не говорят о ваших ошибках

@Настя Трусова · 11.06.2018, 16:43 **[ТС]**

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

давайте рассуждать. если ItemIndex=0 то МОДАЛЬНО показать form1
после ЗАКРЫТИЯ form1 мы проверяет если itemIndex=1
как тут Form1 может остаться на экране? мы только после её закрытия вообще дальше можем пройти

я уже Modal убрала и оставила только form1.Show

Добавлено через 39 секунд
вот весь код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
if cbb1.ItemIndex=0 then
form1.Show;
 
 
if cbb1.ItemIndex=1 then
form4.Show;
 
 
if cbb1.ItemIndex=2 then
form5.Show;
 
if cbb1.ItemIndex=3 then
form7.Show;
 
if cbb1.ItemIndex=4 then
form8.Show;
 
if cbb1.ItemIndex=5 then
form10.Show;
 
 if cbb1.ItemIndex=6 then
form11.Show;

@krapotkin · 11.06.2018, 16:44

ну, вам говорили, что нужно модал, но вы предпочитаете решать проблемы, которые себе самостоятельно создаете

@Настя Трусова · 11.06.2018, 16:44 **[ТС]**

я когда нажимаю на новую строку в combobox то мне надо что б высвечивалась новая форма

@krapotkin · 11.06.2018, 16:46

Сообщение от Настя Трусова

вот весь код

интересно, где тут массив M

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

@Настя Трусова · 11.06.2018, 16:54 **[ТС]**

я когда нажимаю то мне 2 формы высвечиваеи

@krapotkin · 11.06.2018, 16:56

5 постов назад я попросил привести полный код
потому что из вашего кода на КАЖДОЕ значение ItemIndex выводится ОДНА форма
а значений у ItemIndex всего одно

@Настя Трусова · 11.06.2018, 16:57 **[ТС]**

все, с формами у меня получилось

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

@Настя Трусова 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 110

	По номеру билета определить является ли он активным или нет 08.06.2018, 14:45. Показов 4558. Ответов 35 Метки нет (Все метки) Здравствуйте. Мне надо при выборе номера билета определить является ли он в продаже или активным. Если да, то чтоб выбыло зеленым, если нет то красным. Подскажите пж как это реализовать 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	10.06.2018, 14:52
	ошибку вижу где кот? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	10.06.2018, 15:48
	из этого кода не следует того, что вы написали значит, что-то не так как вы говорите ShowModal показывает форму и ждет пока ее закроют, после этого выполнение кода продолжается 0

@Настя Трусова 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 110
	10.06.2018, 21:47 [ТС]
	А можете написать код для установки размера массива? Я не очень понимаю как написать? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	11.06.2018, 01:39
	http://www.delphibasics.ru/setlength.php читать до слов устанавливаем длину многомерного массива 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	11.06.2018, 16:44
	ну, вам говорили, что нужно модал, но вы предпочитаете решать проблемы, которые себе самостоятельно создаете 0

@Настя Трусова 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 110
	11.06.2018, 16:44 [ТС]
	я когда нажимаю на новую строку в combobox то мне надо что б высвечивалась новая форма 0

@Настя Трусова 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 110
	11.06.2018, 16:54 [ТС]
	я когда нажимаю то мне 2 формы высвечиваеи 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	11.06.2018, 16:56
	5 постов назад я попросил привести полный код потому что из вашего кода на КАЖДОЕ значение ItemIndex выводится ОДНА форма а значений у ItemIndex всего одно 0

@Настя Трусова 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 110
	11.06.2018, 16:57 [ТС]
	все, с формами у меня получилось 0