Батырмамен жұмыс

Мақсаттар:
- бағдарлама терезесін ашып, сақтап үйрету;
- бағдарламаның интерфейсімен, бағдарламаны жасау жоспарымен таныстыру;
- қызығушылықтарын ояту; - логикалық ойлауын дамыту.

Бағдарламаны жасаудың жоспары, №1

·         Жаңа проект жаса.

·         Формаға келесі компоненттерді енгіз: Label белгісін және екі Button батырмасын

Form1

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

Яғни, келесі кестедегі әрекеттер орындалуы керек:


Айрықшаланған нысан

Терезенің бөлігі
Object Inspector

Қасиеттің аты/

Мәні/Әрекеті

Button2

Properties

Caption

 Выход

 

Events

OnClick

Close;

Label1.Caption:=‘Первые успехи!’;

Яғни, келесі кестедегідей әрекеттер орындалуы керек:


Айрықшаланған нысан

Терезенің бөлігі
Object Inspector

Қасиеттің аты

Мәні / Әрекеті

Form1

Properties

Caption

Проект-1

Button1

Properties

Caption

Приветствие

 

Events

OnClick 

Label1.Caption:=‘Первые успехи!’;

Өз бетімен орындауға тапсырма

 

Тапсырма

Көмек

1

"Первые успехи!" мәтінінде шрифтің түсі, түрі, мөлшерін өзгертіп көр.

Object Inspector бөлігінде шрифт өзгертетін  Font қасиетін өзгерту.

2

Выход батырмасының түрін басқа түрге ауыстыр.

Батырманы ауыстыру үшін, алдыңғы жасалған батырманы өшіріп, орнына  Additional палитрасынан басқасын таңдаймыз. Ол үшін BitBtn батырмасын таңдап, түрін Kind қасиеті арқылы ауыстырамыз.

3

Приветствие батырмасын басқан соң, экранға "Первые и не последние!" хабарламасын шығару керек

Caption қасиетіндегі Label1 белгісінің реакциясын Button1 қасиетінің OnClick батырмасына ауыстыру арқылы.

4

Pr1.exe орындалатын файлын Delphi ортасында емес,  Windows ортасында жіберу.

Программа листингі, №1
Өзін тексеру үшін төменде бағдарламаның базалық мәтіні берілген.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Buttons;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:='
Первые и не последние!';
end;
end.