HyperLink
Bejelentkezés
E-mail: 
Jelszó: 





Skip Navigation Links
 

Adatok írása egy megnyitott jegyzettömbbe


Példaprogram letöltése

3300 bájt

Ebben a példában azt vizsgáljuk meg, hogy hogyan lehet egy megnyitott jegyzettömbbe valamilyen szöveget írni Delphi-ből. A példa arra is megoldást nyújt, hogy miként lehet egy tetszőleges, megnyitott Windows ablakot neve vagy osztálya alapján azonosítani.

Ha ismerjük a keresett Windows ablak osztályát, akkor a FindWindow függvény meghívásával meghatározhatjuk annak azonosítóját.
FindWindow
function FindWindow(
lpClassName,
lpWindowName: PChar
): HWND;
Egy megnyitott ablak osztály vagy név szerinti azonosítására szolgál.
Paraméterek
lpClassName
Az ablakot azonosító osztály neve. Ha itt Nil paramétert adunk meg, akkor a keresés a második paraméterben megadott név szerint történik.
lpWindowName: PChar
A keresett ablak neve. Ha Nil paramétert adunk meg, akkor a keresés az első olyan ablakot találja meg, melynek osztálya megegyezik az lpClassName-ben megadott értékkel.
Visszatérési érték
Ha a függvény lefutása sikeresen megtörtént, akkor az ablak azonosítóját kapjuk vissza, ellenkező esetben 0-t.
A jegyzettömb ablakon belül az egyes dokumentumokat gyermekablakként lehet elérni. Ahhoz hogy egy gyermekablakba tudjunk írni, először azonosítanunk kell magát a gyermekablakot. Ezt megtehetjük a ChildWindowFromPoint függvény segítségével.
ChildWindowFromPoint
function ChildWindowFromPoint(
hWndParent: HWND;
Point: TPoint
): HWND;
Egy gyermekablak azonosítására szolgál. Azt a gyermekablakot azonosítja, amely tartalmazza a megadott pontot.
Paraméterek
hWndParent: HWND
A szülő ablak azonosítója.
Point: TPoint
A pont, amely alapján az ablakot keressük.
Visszatérési érték
Ha valamelyik gyermekablak tartalmazza a megadott pontot, akkor a függvény a gyermekablak azonosítójával tér vissza. Ha semelyik gyermekablak nem tartalmazza a megadott pontot, de az a szülőablak belsejében van, akkor a szülőablak azonosítóját kapjuk vissza. Ha egyik feltétel sem teljesül, akkor a visszatérési érték 0.
Az azonosított ablaknak a SendMessage függvény felhasználásával küldhetünk karaktereket, üzenetek formájában.
for i:=1 to Length(Edit1.Text) do
  SendMessage(ChildHandle,WM_CHAR,Ord(Edit1.Text[i]),0)
A teljes szöveget egy for ciklus segítségével karakterekre bontjuk. A jegyzettömbnek üzeneteket küldünk, amely mindig az aktuális karakter ASCII kódját tartalmazza.
A jegyzettömbbe a szöveg mindig az aktuális kurzorpozícióra kerül.

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