ùòåø 10

ùòåø 9

ùòåø 8

ùòåø 7
ùòåø 6

ùòåø 5

ùòåø 4

ùòåø 2

ùòåø 1
   
 

òåìí äãìôé

ùéòåø 3: îàôééðéí åøëéáéí

æîï ìäëðéñ ÷öú çééí ìôøåé÷è ùìðå. 

áåà ðùðä àú äîàôééðéí ùì ëîä îäøëéáéí: äëåúøú ùìäí, äöáò, äâåãì, äâåôï (Font) åëå'… åáåà ðåñéó ø÷ ÷öú ÷åã (àðé ùåîò àåúê ðàðç… äàéï æäå ëì äòðééï áúëðåú…? àáì ãìôé äéà ìôçåú éåúø áòðééï ùì øëéáéí åîàôééðéäí(.

îô÷ç äøëéáéí: îàôééðéí åàéøåòéí

1.      á-Object Inspector  (îô÷ç äøëéáéí) àúä éëåì ìùðåú àú ä-Properties   (îàôééðéí)  ùì äøëéáéí áæîï äúëðåï.

àí àúä ìà øåàä àú ä- Object Inspector, ôúç àåúå ãøê äô÷åãä áúôøéè ä- View  àå ìçõ F11.

 

 

2.      ååãà ùáçøú á- Form1  á- Object Inspector, ëôé ùîåöâ áúîåðä îòì ðáçø á- Form 1 á÷åôñú äøùéîä (List box) ùì ä- Inspector. ëòú, ìçõ òí äòëáø òì ä- Caption proprerty åä÷ìã: Euro Currency Convector. äè÷ñè áùåøú äëåúøú ùì äèåôñ.

 

3.      áèåôñ (Form), ìçõ òì Label2  áëãé ìáçåø àåúä. á- Object Inspector, ùðä àú úååéåú ä-Caption  ì-equals  (àúä éëåì âí ìáçåø àú øëéá Label2 áúéáú äøùéîä  ùì ä- Inspector) ëòú ùðä àú ä-Caption  ùì Label4  ì-Euro  åëï ùðä àú ä-Caption  ùìLabel5  ì-BEF .

ùðä àú  ä-Caption ùìButton1  ì-Euro -- BEF.

ùðä  àú ä- Caption  ùì  Button2ì-BEF -- Euro.

 

4.      äùîåú ùì äøëéáéí ùìê ìà ëì ëê úéàåøééí. áåà ðùðä ìôçåú àú äùîåú ùì äøëéáéí ùéù áäí ùéîåù á÷åã äî÷åø ùì äúëðéú. àìå äøëéáéí ùîàôééðéäí éùúðå àå ùéòùä áäí ùéîåù ëàùø äúëðéú øöä.

áçø  Edit1åùðä àú ä- Name property  ì- InputEdit  ëîå ëï, ùðä àú ùîåú äøëéáéí äáàéí:  

Label1: CurrLabel

Label3: EuroLabel

Label5: BEFLabel

Button1: EuroButton

Button2: BEFButton

 

5.      ùðä àú ä-Text property  ùì  InputEdit ì- 100. ãáø æä îáèéç ùìúëðéú éù òøê ìäúçéì ìøåõ àéúå. ìãåâ': 100 currency units 

6.      á-Object Inspector , àúä îöééï àú ä-events  (îàåøòåú) àìéäí äøëéáéí öøéëéí ìäâéá. áçø EuroButton. ìàçø îëï áçø àú çåöõ (tab) ä- Events  ùì ä- Inspector: úøàä àú äîàåøòåú OnClick, OnDoubleClick...

7.       ìçéöú òëáø ëôåìä áùãä äìáï îéîéï ì - OnClick. ãìôé úëúåá  EuroButtonClick áùãä æä. æä éäéä äùí ùì ä -Event Handler   (îáöò äîàåøò) , äøåèéðä ùîúáöòú áëì ôòí ù- EuroButton  ðìçõ.

 

8.      á-  Editor, ãìôé ëáø éöøä úáðéú (template) òáåø îáöò äîàåøò (Event  Handler) äæä.

  


procedure TForm1.EuroButtonClick(Sender: TObject);
begin

end;

 

9.      áåà ðúðñä ìøâò òí ÷öú ÷åã î÷åøé (æîðé). áéï äîéìéí  begin  å- end ùì îáöò äîàåøò (Event Handler), àúä ú÷ìéã àú ä÷åã àùø éáåöò ëàùø EuroButton  ìçåõ.

 

CurrLabel.Caption := 'Euro';

EuroLabel.Caption := InputEdit.Text;

 

îáöò äîàåøò (Event Handler) äëåìì öøéê ì÷øåà àú ä÷åã äáà:

  


procedure TForm1.EuroButtonClick(Sender: TObject);
begin
  CurrLabel.Caption := 'Euro';
  EuroLabel.Caption := InputEdit.Text;
end;

 

úùåîú ìá! äîéìä Euro  äéà áéï âøù áåãã åìà âøùééí!

 

10. ÷îôì åäøõ àú äúåëðéú.  ä÷ìã îùäå á- Edit-box   åìçõ òì ä - EuroButtom: äè÷ñè Euro îåôéò á-  CurrLabel åäè÷ñè ùì ä-edit-box  (÷åôñú äòøéëä) îåôéò á- EuroLabel. áùôú ãìôé:

·        äîçøåæú  "Euro" îå÷öú (assigned) ìîàôééï Caption  ùì  CurrLabel;

·        äîàôééï è÷ñè ùì InputEdit îå÷öä ìîàôééï Caption  ùì EuroLabel .

 

11. òöåø àú äúëðéú åùîåø àú äôøåéé÷è (Save All).

èåá àðé î÷ååä ùàúä îúçéì ìøàåú àú äøòéåï îàçåøé ùòåø æä: ìàôùø ìê ìäéëðñ ìòðéðéí áæîï ÷öø ëëì äàôùø— ÷åãí úøâåì, åàç"ë úéàåøéä. áúçéìä àøàä ìê îä ãìôé òåùä. åëàùø úäéä ñ÷øï, àåîø ìê îãåò åàéê. ðùîò äåâï? áèåç ðùîò ëéó, àðé î÷ååä.

 

àæ éàììä òáåø ìùéòåø 4, áå ðâøåí ìãáøéí ì÷øåú áæîï øéöä: äáä ð÷åãã!  

             

Copyright (C) 2000 Guido Festraets

Webmaster of the DelphiLand site: http://www.festra.com

îáðä äùéòåø:  
îô÷ç äøëéáéí: îàôééðéí åàéøåòéí