![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() ![]() 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
|
||||
|
||||
![]() я послал на почту..напишите как прочтете
|
![]() |
|
![]() |
Опции темы | Поиск в этой теме |
Опции просмотра | |
|
|