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

MS Word esemény kezelése

Példaprogram letöltése

183768 bájt

Az alábbi példában egy olyan kis alkalmazást készítünk, ami a Word-ben történő különböző eseményeket naplózza.

Az események figyeléséhez egy új osztályt kell létrehoznunk, amit a TInterfacedObject, IDispatch és IUnknown osztályokból származtatunk.

  TWordEvents = class(TInterfacedObject, IUnknown, IDispatch)

A QueryInterface függvény az IUnknown osztály deklarációjában szerepel. A QueryInterface egy hozzáférést ad a megadott interfészhez, amennyiben az objektum támogatja azt. Ennek kódja a következő:

  Result := E_NOINTERFACE;
  if GetInterface(IID, Obj) then Result := S_OK;
  if IsEqualGUID(IID, ApplicationEvents2) and GetInterface(IDispatch, Obj) then Result := S_OK;

Az IID paraméter a kérdezett interfész GUID-je. Az új osztály az ApplicationEvents2 interfészt támogatja, amiben a Word eseményei vannak deklarálva. Ehhez szükség van a Word_TLB unit-ra, amit a Word Type Library importálásával készíthetünk el. Ehhez nyissuk meg a Delphi Project menüjének Import Type Library menüpontját. A listából válasszuk ki a Microsoft Word x.0 Object Library-t, és kattintsunk a Create gombra.

Az osztály konstruktorában elindítjuk a Word-öt, majd az InterfaceConnect metódussal csatlakoztatjuk az ApplicationEvents2 interfészt az osztályhoz.

  FWordApp:=CoWordApplication.Create;
  InterfaceConnect(FWordApp, ApplicationEvents2, self, FConnection);

Ezután az Invoke függvény minden esetben lefut, amikor egy esemény bekövetkezik. Ennek DispID paraméteréből megtudhatjuk, hogy melyik esemény futott le. Ezekhez előzőleg konstansokat hoztunk létre, hogy a forráskód átláthatóbb legyen.

Az osztály destruktorában lecsatlakoztatjuk az interfészt, és bezárjuk a Word-öt.
InterfaceDisconnect(FWordApp, ApplicationEvents2, FConnection);
try
FWordApp.Quit;
except;
AddMessage('A Word bezárása közben hiba történt!');
end;

A naplózandó események a következő
Startup: a Word indításakor következik be.
Quit: kilépéskor következik be.
DocumentChange: új dokumentum létrehozásakor, meglévő dokumentum megnyitásakor, vagy egy másik
    dokumentumra történő átváltáskor jön létr
A következő események csak Word 2000-ben létezne
DocumentBeforeClose: a dokumentum bezárása előtt jön létre.
DocumentBeforePrint: a dokumentumkinyomtatása előtt jön létre.
DocumentBeforeSave: a dokumentum mentése előtt jön létre.
DocumentOpen. dokumentum megnyitása.
NewDocument: új dokumentum létrehozása.
WindowActivate: ablak aktivizálása.
WindowBeforeDoubleClick: az ablakra történő dupla kattintás előtt jön létre.
WindowBeforeRightClick: az ablakra jobb egérgombbal történő kattintás előtt jön létre.
WindowDeactivate: akkor jön létre, amikor az ablak elveszíti a fókuszt.
WindowSelectionChange: a kijelölés megváltozásakor jön létr

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
1063	Delphi	Interbase 6 alkalmazása Delphi-ben	1. rész
1072	Delphi	Interbase 6 alkalmazása Delphi-ben	2. rész
1084	Delphi	Interbase 6 alkalmazása Delphi-ben	3. rész
1092	Delphi	TIBTable komponens	4. rész
1102	Delphi	TIBTransaction komponens	5. rész
1111	Delphi	TIBQuery komponens	6. rész
1120	Delphi	TIBStoredProc komponens	7. rész
1128	Delphi	TIBDataSet komponens	8. rész
1141	Delphi	TIBSQL komponens	9. rész
1150	Delphi	TIBSQLMonitor komponens	10. rész
1159	Delphi	TIBUpdateSQL komponens	11. rész
1167	Delphi	IBEvents komponens	12. rész
1177	Delphi	IBDatabaseInfo komponens használata	13. rész
1183	Delphi	TIBConfigService komponens	14. rész
1192	Delphi	TIBSecurityService komponens	15. rész
1204	Delphi	TIBServerProperties komponens	16. rész
1213	Delphi	TIBBackupService komponens	17. rész
1222	Delphi	TIBRestoreService komponens	18. rész
1231	Delphi	TIBValidationService komponens	19. rész
1240	Delphi	TIBStatisticalService komponens	20. rész
1249	Delphi	TIBLogService komponens	21. rész
1258	Delphi	TIBUninstall komponens	22. rész
1267	Delphi	InterBase Express komponenscsomag	23. rész

Könyv

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