ГОРОСКОП
На форму поставьте следующие объекты:
Объекты | Caption | Свойства |
Image1: TImage |
| Picture |
Label1: TLabel | Выберите год |
|
Label2: TLabel |
|
|
Label3: TLabel | Узнай свой гороскоп на год 2018! |
|
Label4: TLabel |
|
|
ListBox1: TListBox | Записать все знаки Зодиака |
|
Button1: TButton |
| OnClick |
Button2: TButton |
| OnClick |
procedure TForm1.Button1Click(Sender: TObject); - (для 1 кнопки при онклик)
begin
case Listbox1.ItemIndex of
0:
begin
Label2.Caption:='Года: 1964,1976,1988,2000.';
Image1.Picture.LoadFromFile('1.jpg');
Label4.Caption:='Дракон-ввести текст'+#13+'Ввести текст ';
end;
1:
begin
Label2.Caption:='Года: 1965,1977,1989,2001.';
Image1.Picture.LoadFromFile('2.jpg');
Label4.Caption:='Змея-ввести текст'+#13+'Ввести текст ';
end;
2:
begin
end;
Для очаровательных и добропорядочных Крыс 2018 год будет более спокойным, по сравнению с предыдущим. Земляная Собака к вам более благосклонна, чем Петух. Однако, стоит помнить о том, что она очень требовательна и строга.
Бык всегда стремится к совершенству, и ничто не заставит его отказаться от намеченного дела. Однако, по гороскопу Быка на 2018 год ему придется отступить на пару шагов и набраться терпения.
Для эмоционального и безрассудного Тигра, 2018 год окажется на редкость спокойным и умиротворенным. Тигр часто проявляет агрессию на пути к достижению целей, однако, под влиянием Собаки он из рычащего зверя превратится в ласкового, мурлычущего от удовольствия большого полосатого кота.
Для гороскопа Кота (Кролика) 2018 год — это период больших возможностей. Перед вами, как по мановению волшебной палочки будут открываться двери, которые были закрыты ранее. Для вас главное, уловить знаки свыше, и тогда успех гарантирован во всех начинаниях.
Дракон, как никто другой, любит быть на виду и привлекать к себе внимание. И по гороскопу 2018 года у Дракона наступит свой звездный час. Желтая Собака предоставит вам возможность проявить себя во всей красе. Вы даже можете прославиться на весь мир, если будете реализовывать себя в литературе, музыке, художественном искусстве
Хозяйка гороскопа 2018 года к Змее не слишком благосклонна, и поэтому ждать исполнения заветных желаний, фееричного успеха или простого везения не стоит. Однако, Собака - хозяйка года предельно честна, справедлива и порядочна, поэтому, чистые помыслы, доброта и честность вернутся бумерангом, а всякий труд будет вознагражден соразмерно затраченным усилиям.
2018 год для гороскопа Лошади – год потрясающих возможностей, новых побед, масштабных успехов, о которых раньше можно было и не мечтать и судьбоносных событий. Покровительница года, Желтая Земляная Собака вам благоволит, поэтому с полуслова понимает заветные желания.
По гороскопу 2018 года Коза (Овца) будет испытывать настоящее веселье и давно забытую непринужденность. Все будет получаться с легкостью и без особого напряжения. Однако звезды советуют не расслабляться, так как мелкие пакости могут исходить от ближнего окружения.
По гороскопу 2018 год для Обезьян станет знаковым периодом жизни. Вы сможете найти силы и энергию для организации множества проектов и мероприятий, станете душой компании и любимцем фортуны. В 2018 году можете смело начинать самые рискованные дела.
Для гороскопа Петуха 2018 год покажется непростым, но очень захватывающим. Эмоциональный Петух, пожалуй, как никто другой, умеет находить приключения на свою голову. Однако, его страстность и активность помогают ему добиваться задуманного.
Для гороскопа Собаки в 2018 году наступает звездный час! Это миг, когда люди смогут явить миру свои таланты, решиться на отчаянный поступок, придумать для себя какое-то новое увлечение. Для всех представителей знака 2018 год ознаменуется большими удачами и значительным потенциалом успеха. Все события будут складываться самым наилучшим образом.
Гороскоп 2018 года для Свиньи (Кабана) уготовил много сюрпризов и приятных незабываемых моментов. Перемены войдут в жизнь уже с начала весны. Хозяйка года разгонит все неприятности и уже с апреля наметится положительная динамика во всех сферах жизнедеятельности, что будет несказанно радовать представителя знака.