Delphi 2.0
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!