«Формада объект басқаруды құру және бұл объектілердің қасиет мәндерін орнату

«Формада объект басқаруды құру және бұл объектілердің қасиет мәндерін орнату

 

  1. Жаңа проект құрыңыз.
  2. Формаға суретте көрсетілген компоненттерді орналастырыңыз.
  1. Программа кодын және проектіні Unit2.pas и Pr2.dpr деген тапен сақтаңыз.

 

  1. Келесі әрекеттерді орында:
ОбъектObject Inspector терезесінің бөліміҚасиет/ ОқиғаМәні/Әрекет
Form1PropertiesCaptionДиалог
BitBtn1PropertiesCaption&Выход
KindbkClose
Label1PropertiesCaptionВведи свое имя и нажми Enter
Edit1EventsOnKeyPressIf key=#13 then

begin

Label2.Caption:=Edit1.Text+’,ты любишь читать?’;

End;

Button1PropertiesCaptionДа
EventsOnClickLabel3.Caption:=’Молодец!’;
Button2PropertiesCaptionНет
EventsOnClickLabel3.Caption:=’Почему же? Надо читать.’;
Label2PropertiesCaptionОбъект атауын өшіріңіз
Label3PropertiesCaptionОбъект атауын өшіріңіз
  1. Проектіні сақтап, орындаңыз (F9).

 

Өздік жұмыс

ТапсырмаКөмек
1Да және Нет батырмаларын адам атын енгізгеннен кейін белсенді болатындай етіп өзгертіңіз.Да және Нет батырмаларының Enabled қасиеті үшін False мәнің орнатыңыз.

Edit1KeyPress процедурасын келесі жолдармен толықтырыңыз:

Button1.Enabled:=true;

Button2.Enabled:=true;

2Сұхбатты қайалау үшін Edit1, Label2, Label3 атауларын өшірілетін болсын.Формаға BitBtn компонентін орналастырып, оның қасиеттерін өзгертіңіз: Kind-bkRetry, Caption-&Повторить.

Басу оқиғасына келесі кодты жазыңыз:

Label2.Caption:=’ ’;

Label3.Caption:=’ ’;

Edit1.Text:=’ ’;

3Сұхбатты қайталау кезінде енгізу жолы белсенді болсын.BitBtn2Click оқиғасына келесі кодты епгізіңіз:

Form1.ActiveControl:=Edit1;

 

2 программа листингі

var

Form1: TForm1;

implementation

{$R *.DFM}

 

procedure  TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If key=#13 then begin

Label2.Caption:=Edit1.Text+’, ты любишь читать?’;

Button1.Enabled:=true;

Button2.Enabled:=true;

end;

end;

 

procedure  TForm1.Button1Click(Sender: TObject);

begin

Label3.Caption:=’Молодец !’;

end;

 

procedure  TForm1.Button2Click(Sender: TObject);

begin

Label3.Caption:=’Почему же? Надо читать.’;

end;

 

procedure  TForm1.BitBtn2Click(Sender: TObject);

begin

Edit1.Text:=»;

Label2.Caption:=»;

Label3.Caption:=»;

Button1.Enabled:=false;

Button2.Enabled:=false;

Form1.ActiveControl:=Edit1;

end;

end.