HyperLink
Bejelentkezés
E-mail: 
Jelszó: 





Skip Navigation Links
 

Kérdéseket és üzeneteket megjelenítő komponens készítése


Példaprogram letöltése

4757 bájt

Amikor egy nagyobb méretű alkalmazást készítünk, akkor felmerülhet az igény arra, hogy különböző üzeneteket, hibaüzeneteket, és kérdéseket jelenítsünk meg, ha lehet ugyanolyan felülettel. Készítünk egy komponenst, amely segítségével összeállíthatunk egy kérdés és egy üzenetlistát. Miután ezt megtettük, az adott üzenet vagy kérdés indexének ismeretében, a komponens megjeleníti azt, egy párbeszédablak segítségével.

A mellékelt példaprogram megnyitása előtt az MsgQuest.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
A komponensben, az üzenetek listáját a Messages, a kérdések listáját Questions property-kben állíthatjuk be. Mindkét tulajdonság TStringList típusú.
Az üzenetek egy olyan ablakban jelennek meg, amely csak egy OK feliratú gombot tartalmaz. Kérdések használata esetén az ablak egy Igen és egy Nem feliratú gombot tartalmaz, ezzel lehetővé teszi a felhasználó számára a választás lehetőségét.
Az üzeneteket és a kérdéseket kezelő ablakok fejlécét a MessageTitle és a QuestionTitle property-kben adhatjuk meg.
Egy üzenetet a ShowMessage metódus meghívásával jeleníthetünk meg.
procedure ShowMessage(Index: Integer);
Az Index paraméterben kell megadnunk a megjelenítendő üzenet indexét. A megadott Index a Messages lista megfelelő elemét jelöli ki. Az első elem indexe 0. Ha olyan értéket adunk meg, amely nem létezik, akkor a komponens nem jelenít meg semmilyen ablakot.
Egy kérdést a ShowQuestion metódus meghívásával jeleníthetünk meg.
function ShowQuestion(Index: Integer): Integer;
Itt is az Index paraméterben adhatjuk meg a megjelenítendő kérdés sorszámát. Az Index paraméter itt is ugyanúgy működik, mint a ShowMessage esetében.
Fontos tudnunk, hogy a felhasználó az igen – nem gombok melyikét nyomta meg, vagy megnyomta-e egyáltalán valamelyik gombot. A függvény visszatérési értéke -1 ha egyik gomb sem került megnyomásra, 0 ha az igen gomb lett megnyomva, 1 ha a nem gomb lett megnyomva.
Komponensünket a TComponent osztályból származtatjuk.
Az üzenetek és kérdések megjelenítéséhez létre kell hoznunk egy ablakot. A szokásostól eltérő módon, a Form Create metódusának nem az Application-t kell paraméterként megadnunk.
FForm:=TForm.Create(Nil);
Az ablak megjelenítéséről, elemeiről nekünk kell gondoskodnunk. A legegyszerűbb megoldás az, ha vizuálisan megtervezünk egy ablakot a Delphi segítségével, majd az egyes elemek koordinátáit és tulajdonságait lemásoljuk.
A megjelenítendő ablakot alapértelmezés szerint, kérdések megjelenítésére tervezzük. Így üzenetek használata esetén csak el kell tüntetnünk az egyik gombot, a másikat pedig OK felirattal kell ellátnunk és középre kell helyeznünk.

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

Copyright © 1999-2012 Animare Software Kft. Minden jog fenntartva!
| Készült: Animare Stúdió | Adatvédelem | Kapcsolat |