Interface
user Windows, Messages, ..., IniFiles;
Створіть обробник події OnCliсk кнопки Button1:
procedure TForml.ButtonlClick (Sender: TObject);
label ran;
begin
Label2.Caption: = 'Друге питання:';
If anl.Checked
then begin // якщо відповідь правильна
Buttonl.Visible: = False; // прибираємо поточну кнопку
Button2.Visible: = True; // і показуємо наступну кнопку
anl.Checked: = False; // приберемо галочку від минулого відповіді
// Виставимо всі пункти заново, на випадок якщо
// Користувач скористався підказкою 50/50
an2.Enabled: = True;
апЗ.Enabled: = True;
an4.Enabled: = True;
Randomize;
// ... тут код ідентичний тому, що знаходиться в
// ... обробнику події OnCreate форми
win.Free;
end
else begin // якщо відповідь неправильна, виводимо повідомлення
// О неправильному відповіді і повідомляємо правильний
MessageDlg ('Да-а ... Не кожен зміг би на першому' +
'Питанні програти!' + # 13 # 10 +
'А правильну відповідь був "' + anl.Caption + '"',
mtError, [mbok], 0);
halt; // завершуємо гру
end;
end;
Для розробки інших 15 питань слід розмістити на формі 15 кнопок, аналогічних Buttonl, і створити для них обробники подій OnClick, подібні розглянутому вище. Дивіться пункти 6 і 8.4
Розглянте подію, яка відбудеться при натисканні кнопки, відповідній останньому питанню:
procedure TForml.Button2Click (Sender: TObject);
begin
If anl.Checked
then begin // якщо на питання відповіли вірно,
Hide; // ховаємо першу форму
Form2.Show; // показуємо другу форму
end
else begin // якщо неправильно
// Виводимо повідомлення з правильною відповіддю.
MessageDlg ('Треба ж! На останньому питанні погорів! "+# 13 # 10 + "А правильна відповідь була: '+ anl.Caption + '!', mtError, [mbok], 0);
halt;
end;
end;
У разі перемоги пропадає сувора форма з питаннями і повинна з'явитися весела - з поздоровленнями (в коді програми вона називається Form2). Додайте до проекту нову форму, виконавши команду меню File New Form або клацнувши на кнопці панелі інструментів New Form. На екрані з'явиться нова чиста форма. Її властивості Align присвойте значення alCustom, а властивості BorderStyle - bsNone.
П
отім
розмістіть на формі компонент Image
із вкладки Additional, його властивості
Picture призначте який-небудь "веселий"
рисунок (наприклад такий, як показано
на рис.2.7 Або придумайте свій), а
властивості Align присвойте значення
alClient.
Після цього двічі клацніть на компоненті Image1, щоб створити обробник події OnClick (виникає при клацанні мишею):
procedure TForm2.ImagelClick (Sender: TObject);
begin
halt;
end;
Збережіть створюваний проект у своїй папці.
Для цього виконайте команду головного меню File Save All або натисніть на кнопку Save All на панелі інструментів.
У вікні Save Unit as за допомогою списку виберіть свою папку, створіть в ній папку Щасливчик і відкрийте її, задайте назву для файлу тексту програми Lucky1, попередньо видаливши запропоноване комп'ютером назву Unitl.pas => кнопка Сохранить.
У наступному вікні «Save Projectl As» введіть назву файлу проекту Р_Lucky, видаливши запропоноване комп'ютером назву Project1.dpr Сохранить