Delphi 2.0

  1. óra

Események

Feladat: Készítsünk egy olyan alkalmazást, melynek ablakán 5 szerkesztődoboz (editbox) van: Forrás, Rögtön, Elhagyásra, Egérre, Gombra. Csak az első (Forrás) legyen szerkeszthető. A másik négy szövege legyen ua., mint a Forrás tartalma: a Rögtön editbox-ban azonnal jelenjen meg a szöveg. Az Elhagyásra dobozban akkor jelenjen meg, amikor elhagyjuk a Forrás szerkesztődobozt (pl. Tab hatására a fókusz más vezérlőelemre kerül), az Egérre dobozban akkor kerüljön át a beírt rész, amikor az egérmutatót egy meghatározott gomb fölé mozgatjuk, az utolsó (Gombra) dobozban pedig akkor, ha ezt a gombot le is nyomjuk. Legyen egy Kilépés gomb is, amivel az alkalmazást be lehessen zárni.

Lépések:

Válasszuk ki a File/New Application menüpontot. (Ha még nem lenne egy üres űrlap a képernyőn.)

Helyezzünk el az űrlapon 5 címkét (TLabel), 5 szerkesztődobozt (TEdit) és 2 gombot (TButton) a Standard palettáról.

Állítsuk be a következő tulajdonságaikat az objektum figyelő (Object Inspector) segítségével:

Komponens

Name

Jellemző

Érték

Edit1

eForras

Text

‘’ (üres)

Edit2

eRogton

Text

‘’

   

Enabled

False

Edit3

eElhagyasra

Text

‘’

   

Enabled

False

Edit4

eEgerre

Text

‘’

   

Enabled

False

Edit5

eGombra

Text

‘’

   

Enabled

False

Button1

btnGomb

Caption

Gomb

Button2

btnKilepes

Caption

Kilépés

 

Azért, hogy a Kilépés gombra való kattintáskor a program befejeződjön, meg kell hívnunk a Close metódust:

procedure TForm1.btnkilepesClick(Sender: TObject);

begin

Close;

end;

Annak érdekében, hogy az eRogton szerkesztődobozban azonnal lássuk a forrásban végrehajtott változtatásokat, az eForrás doboz OnChange eseményére a következőt írjuk:

procedure TForm1.eforrasChange(Sender: TObject);

begin

eRogton.text:=eforras.text;

end;

Az Elhagyásra doboz szövegét az eForras-ból való kilépéskor kell átírni, tehát az eForras OnExit eseményét kell kezelnünk:

procedure TForm1.eforrasExit(Sender: TObject);

begin

eElhagyasra.text:=eforras.text;

end;

Az eEgérre dobozban akkor, amikor az egérkurzort a Gomb fölé mozgatjuk. Ez az btnGomb.OnMouseMove eseménynél lép fel:

procedure TForm1.btngombMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

eEgerre.text:=eforras.text;

end;

Az eGombra dobozban akkor frissítődjön a szöveg, amikor a btnGomb-ra kattintunk. A szöveg beállítását tehát a btnGomb.OnClick eseményre építjük:

procedure TForm1.btngombClick(Sender: TObject);

begin

egombra.text:=eforras.text;

end;

 

Már csak a mentés és futtatás van hátra!