
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

OnExit-nél fellépő fókuszálási hiba javítása

Példaprogram letöltése

3811 bájt

Legyen a következő feladatunk: van a Form-on egy TEdit, melyen keresztül adatot kérünk be. Amikor ennek létrejön OnExit eseménye, vagyis a felhasználó tovább lép egy másik beviteli eszközre, akkor szeretnénk ellenőrizni a bevitt adatot. Ha a beírt adat nem megfelelő számunkra, akkor egy MessageBox függvénnyel üzenetet küldünk a felhasználó felé. Bezárva ezt az ablakot viszont „eltűnik” a szövegkurzor, melynek a következő beviteli ablakon lenne a helye.

Attól, hogy a szövegkurzor nem látható, az adatbevitel még véghezvihető, csak hát nem a legszebb megoldás. A mellékelt példában az Edit1-nél TAB billentyűt nyomva az Edit2-re kerül a fókusz, de a kurzor nem látható. Az Edit3-ról az Edit4-re lépve TAB-al viszont már igen, mivel itt végeztünk hibajavítást, míg az első esetben nem.

Az Edit1 OnExit eseményénél tehát csak a felhasználói üzenet kerül megjelenítésre.

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Application.MessageBox('a', 'b', MB_OK);
end;

Az Edit3 OnExit eseményénél az üzenet megjelenítése után már javítjuk a fellépő hibát oly módon, hogy küldünk az aktuálisan aktív kontrolnak egy WM_SETFOCUS üzenetet és így már a szöveg kurzor is láthatóvá válik a MessageBox által megjelenített ablak bezárása után.

procedure TForm1.Edit3Exit(Sender: TObject);
begin
  Application.MessageBox('a', 'b', MB_OK);
  PostMessage(ActiveControl.Handle, WM_SETFOCUS, 0, 0);
end;

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
3047	Windows	Az XML bemutatása	1. rész
3059	Windows	Az XML bemutatása	2. rész
3068	Windows	Az XML bemutatása	3. rész
3077	Windows	Az XML bemutatása - deklarációk	4. rész
3086	Windows	Az XML bemutatása - MSXML, XSLT	5. rész
3094	Windows	Az XML bemutatása - DTD	6. rész
3105	Windows	XML adatok megjelenítése Excel-ben	7. rész
3114	Windows	Dokumentum hivatkozások az XML-ben	8. rész
3123	Windows	XML adattípusok	9. rész
3132	Windows	XML adatok HTML oldalakon	10. rész
3141	Windows	XML Notepad	11. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2002 évkönyv 559. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!