
	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ó? |

Form megjelenés utáni eseménye

Példaprogram letöltése

6643 bájt

Ha a Form OnShow eseményében végzünk bizonyos műveleteket, melyeknek végeztével szükségünk lenne arra az információra, hogy a Form megjelenítésével kapcsolatos funkciók véget értek, akkor jól jön egy AfterShow esemény megvalósítása.

Ehhez hozzunk létre egy új konstanst

const
  WM_AFTERSHOW=WM_USER+1;

A Form osztályának deklarációjában létrehozzuk az eseménykezelőt, mely akkor aktivizálódik, ha a Form-unk a WM_AFTERSHOW üzenetet kapja.

  private
    procedure DoAfterShow(var Msg: TMessage); message WM_AFTERSHOW;

Amikor a Form OnShow eseményének kezelője fut, akkor küldünk a Form-nak egy WM_AFTERSHOW eseményt. Ezt követően további funkciók végrehajtásának szimulálására várakoztatjuk a programot egy másodpercig. Mivel az üzenetet a PostMessage függvénnyel küldtük, így az azonnal bekerül az eseménykezelő sorba és rögtön folytatódik a programunk a következő sornál. Mivel azonban az alkalmazásunk elfoglalt a Sleep, vagy egyéb funkciók miatt, így a WM_AFTERSHOW kiolvasása és feldolgozása csak akkor következik be, ha már a programunk végzett az OnShow eseményben és "ráér". Ekkor kerül tehát meghívásra a DoAfterShow eljárásunk is.

procedure TForm1.FormShow(Sender: TObject);
begin
  PostMessage(Handle, WM_AFTERSHOW, 0, 0);
  Sleep(1000);
end;

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
3916	Windows	A javascript nyelv bemutatása	1. rész
3946	Windows	Javascript változók és operátorok	2. rész
3975	Windows	Kódvezérlés JScript-ben	3. rész
4004	Windows	Függvények és objektumok	4. rész
4036	Windows	Fejlett funkciók a JavaScript nyelvben	5. rész
4066	Windows	Fejlett funkciók a JavaScript nyelvben - folytatás	6. rész
4116	Windows	Reguláris kifejezések	7. rész
4145	Windows	Reguláris kifejezések - folytatás	8. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 658. 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!