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

Szöveg, betűtípus változásának figyelése komponensfejlesztésnél

Példaprogram letöltése

4728 bájt

Amikor olyan komponenst fejlesztünk, melynek ősosztályában szerepel Text, vagy Font property és újonnan készítendő komponensünkben tudnunk kellene azt, hogy mikor változik ezeknek az értéke, akkor hasznos ismernünk azt a megoldást, mely lehetővé teszi ezt. Saját fejlesztéseinkkor, ha például szöveget jelenítünk meg a komponensünk területén, akkor fontos lehet az a pillanat, amikor a Font megváltozik, hiszen ilyenkor illik azonnal követni az új beállításokat és újra rajzoltatnunk a szövegünket.

A mellékelt példaprogram megnyitása előtt a TextFontChange.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.

A mellékelt példában egy TEdit osztályt használtunk ősosztályként, de nem csak ennél használható az alábbi megoldás, hanem más ősosztályok esetében is.

Van két esemény melyet fel kell használnunk a komponensünkben ahhoz, hogy értesülhessünk a szöveg, illetve a betűtípus változás esetén. Az egyik a CM_TEXTCHANGED, míg a másik a CM_FONTCHANGED.

    procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;

Amikor ezek meghívásra kerülnek, akkor biztosak lehetünk abba, hogy a szöveg, illetve a betűtípus megváltozott.

Mellékelt példában készítünk két új eseményt a komponensünkhöz OnTextChanged és OnFontChanged névvel, melyek jelzik e két esemény bekövetkeztét. Felhasználásuk természetesen más módon is történhet, például a Font változásakor egy Invalidate hívásával újrarajzoltatjuk a komponens területét.

procedure TTextFontEdit.CMFontChanged(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnFontChanged) then begin
    FOnFontChanged(Self);
  end;
end;
procedure TTextFontEdit.CMTextChanged(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnTextChanged) then begin
    FOnTextChanged(Self);
  end;
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 539. 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!