|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Проблема с дипломом!!!прошу помоч
Возникла кое какая проблема..делаю диплом..прога заключается в том что бы создать билет в кинотеатр...ни как не могу осуществить функцию...она заключается в следующем: на форме расположен зал. пользователь может кликнуть по любому из мест и это место обозначится красным..типо "ЗАНЯТО" и label"место"обозначится соответственным местом.не могу сделать обновления этих мест..чтобы при выборе другого фильма..место опять стало свободным так как еще не назначено..и можно было назначить его...а при выборе фильма который уже выбирался..сохранялись занятые места ..вот так вот...пробовал делать но не получилось вот что я пробовал писать
Type Tfilm = record kino : string; mesto : array [0..20] of byte; end; var films : array [0..9] of Tfilm; ... Procedure Tform1.create (Object...) var i: byte; BEGIN For i:=0 to combobox1.items.count-1 do films[i].kino=combobox1.items[i]; END; Procedure Tform1.label2 click //label2 - кликанье по месту в зале begin if labeln.color=cllime then films[combobox1.itemIndex].mesto[strToInt(label4.caption)]:=1; label2.color=clred; else showmessage ('занято' ); ///вот кусок ..если кто может помоч..плиз отзовитесь..обьяссню все подробно..спс за внимание |
#3
|
||||
|
||||
пасибки
Да ты меня понял именно это я и хотел сделать))спс огромное
|
#4
|
||||
|
||||
тока как бы ща все связать с моей прогой))))
|
#5
|
||||
|
||||
непонятно..почму там в списке уже появляются фильмы пронумерованные..идея в том что бы яильмы добавлялись в ходе выполнения прграммы
|
#6
|
||||
|
||||
с этим я разобрался..немогу сделать так чтобы когда нажимаешь на место в кинотеатре..то номер места и ряд..отображались на других label
|
#7
|
||||
|
||||
Ничего сложного - Kino_new.zip
Последний раз редактировалось Decoding, 16.05.2007 в 20:20. |
#8
|
||||
|
||||
Очень благодарен за помощь думаю теперь я все сдделаю ништяк..единственная просьба...насчет описаний..всех действий оч нада..хотябы что означает вот этот кусок программы
r := ( Sender as TPanel ).Tag; m := StrToInt( ( Sender as TPanel ).Caption ); if not Seans[ComboBox1.ItemIndex][r][m].State then begin Seans[ComboBox1.ItemIndex][r][m].State := true; ( Sender as TPanel ).Color := clRed; end else begin Seans[ComboBox1.ItemIndex][r][m].State := false; ( Sender as TPanel ).Color := clBtnFace; |
#9
|
||||
|
||||
>r := ( Sender as TPanel ).Tag;
>m := StrToInt( ( Sender as TPanel ).Caption ); Sender - указатель на объект, который вызвал данное событие. Обрати внимание, для всех панелей один обработчик события. По-этому, узнать, какая именно панель вызвала это событие, можно только через Sender. ( Sender as TPanel ) - приведение указателя к типу TPanel. После этого, с Sender'ом можно работать, как с обычной панелью. Для каждой панели в свойстве Tag указан ряд, к которому она принадлежит, а в Caption записано место в этом ряду. >if not Seans[ComboBox1.ItemIndex][r][m].State then >begin >Seans[ComboBox1.ItemIndex][r][m].State := true; >( Sender as TPanel ).Color := clRed; >end >else >begin >Seans[ComboBox1.ItemIndex][r][m].State := false; >( Sender as TPanel ).Color := clBtnFace; Тут (по принципу, описанному выше), отмечаем место занятым (clRed) или свободным (clBtnFace), и запоминаем соответствующие изменения в массиве, для того, чтобы в последствии их можно было восстановить… |
#10
|
||||
|
||||
Спасибо..очень благодарен..а как потом сюда этот файл закинуть...я бы показал что получиось
|
#11
|
||||
|
||||
Когда ответ создаешь, прикрепляешь к нему файл (кнопка, на которой скрепка нарисована), а дальше разберешься…
|
#12
|
||||
|
||||
блин заархивированный весит 200 кб..сюды не влазит(((
|
#13
|
||||
|
||||
еще вопрос как сделать...чтобы в ComboBox(дата) когда запускаешь программу..автоматом стояла сегодняшняя дата..а при нажатии на комбобокс..выводил список дат только на три дня вперед
|
#14
|
||||
|
||||
1. Вышли мне пример на почту decoding@narod.ru
2. Мог бы и сам сделать Код:
procedure TForm1.FormCreate(Sender: TObject); begin ComboBox1.Items.Add( DateToStr( Now ) ); ComboBox1.Items.Add( DateToStr( Now+1 ) ); ComboBox1.Items.Add( DateToStr( Now+2 ) ); ComboBox1.ItemIndex := 0; end; |
#15
|
||||
|
||||
я послал на почту..напишите как прочтете
|
|
Опции темы | Поиск в этой теме |
Опции просмотра | |
|
|