Tudd Intuíció, előadás, párbeszédek
Most, hogy már létre a párbeszéd OD fájlok megnyitása, hadd kódot. Ha emlékszel, a letöltő szöveges fájlból már folyik, ha megnyomja a „Read”, azaz a kenyeret. Kattintson duplán erre a gombra, és kapsz kódolni az esemény OnClick. Itt a szöveg az eseményről:
Ne felejtsük el, először azt vizsgáltuk, hogy a fájl létezik. majd eredményétől függően, tettünk az egyik vagy másik intézkedés. Szóval, a párbeszéd nem kell! Ha a felhasználó kiválaszt egy fájlt. nincs ok arra, hogy ellenőrizze - ha létezik. Persze, van, különben a felhasználó nem tudta kiválasztani. Látod a különbséget? Új esemény kód a következő lesz:
Most a párbeszéd TSaveDialog fájl mentése. És itt mindannyian már tudjuk - minden tulajdonságát az Execute eljárás, és ez pontosan így például TOpenDialog. kivéve, hogy a szöveget a Cím tulajdonát másik. Ezért adtam egy pár ilyen párbeszéd.
Nevének módosítása a komponens az SD. Tulajdonságok DefaultExt Szűrés és állítsa be ugyanúgy, mint a OD. Minden más változatlan marad. Most kell írni a kódot, hogy mentse a fájlt. Ez történik a „Mentés” gombra OnClick esemény. Új esemény kódot a következőképpen:
TColorDialog
TColorDialog - szín kiválasztása párbeszédablakban. Ez nagyon egyszerű. Csak annyit kell tőle, és ez a szín tulajdonsága az Execute eljárás. Ha párbeszéd zajlott le, a komplex tartalmazza az ingatlan Color szín kiválasztása a felhasználó. Ez a szín lehet rendelni az ingatlan színe más alkatrész. Például, színes TMemo tulajdonság az alkatrész megjeleníti a háttér színe ezt az összetevőt. Én azonban azt mondta, hogy nem kell a projektben használt papagáj színek, de a képzési program mellett, akkor telepítse csak a színe, hogy a felhasználó kiválasztja. Ezért, meg, hogy egy újabb gombot TButton. Tulajdonság, amely átnevezni bColor. és a Caption tulajdonság, írjon színét. Ne felejtsük el, hogy távolítsa el az ingatlan horgonyok biztosításában felső széle és telepítse a rögzítés az alsó, mint mi a többi gomb.
Ezután fel kell telepíteni az összetevő formájában TColorDialog:
Ábra. 15.3. komponens TColorDialog
Ez a komponens. valamint az összes többi összetevője a nem vizuális, ezért tegyük, ahol csak akar. Név tulajdonság párbeszédablakban nevezze át a CD-t. OnClick kezelőjét bColor gombok nagyon egyszerű:
TFontDialog
TFontDialog - font párbeszéd. Ebben az ablakban a felhasználó választhat, hogy a font is. és annak mérete, stílusa és színhatást. Ne tévesszük össze a háttérszín és betűszín! Fehér vagy sárga szöveget, például, könnyen olvasható egy sötétkék vagy fekete háttér. Meg kell állítani az alakja egy ilyen komponens:
Ábra. 15.4. komponens TFontDialog
Név tulajdonság átnevezni a komponens FD. A kód, szükségünk van a komplex betűtípus tulajdon. amely tartalmazza a betűtípust. a felhasználó által kiválasztott. és hogy képesek leszünk rendelni ingatlan betűtípus a másik komponens.
Azt is meg kell egy gombot a név bFont és betűtípusa a Caption tulajdonság. Ne felejtsük el, a pattanógombok az alsó határ a formában. OnClick kezelőjét egy gomb, mint ez:
Köszönöm a csodálatos természetesen!
Az önálló munka №2 összeállításához MyCript.pas modul (OS: Windows 7 x64, Lazarus 1.4 Win64) kiadott egy hiba assembly kódot
mycript.pas (54,5) Hiba: Asm: [tolja reg32] érvénytelen kombinációját műveleti kód és operandusok
mycript.pas (95,5) Hiba: Asm: [pop reg32] érvénytelen kombinációját műveleti kód és operandusok
Megértem, hogy a pálya kész a 32 bites operációs rendszer, de mi a helyzet abban az esetben a 64 bites rendszereket?
A rakodók FileCreate menüpontok és FileOpen, valamint a záró formájában felvezető OnClose - e három eljárások ugyanazt a kódot tartalmazza
nekik, mielőtt az új szöveg>
ha Memo1.Modified ezután kezdődik
// ha a felhasználó vállalja, hogy mentse a változásokat:
ha MessageDlg ( „Mentés másként”
„A jelenlegi fájl megváltozott. Változások mentése?
mtConfirmation, [mbYes, mbNo, mbIgnore], 0) = mrYes majd
FileSaveClick (feladó);
végén; // ha
Hadd kérdezzem meg: nem lenne jobb, ha ezt a kódot egy külön eljárás, például - formájában egy eseménykezelő OnCloseQuery? Amennyire vissza tudok emlékezni Delphi tapasztalat, hívja ezt az eljárást önmagában nem vezethet bezárása formájában. Ez azt jelenti, hogy lehet használni eljárások Memo1 tisztítás és olvasni a fájlt. Vagy Lazarus nem tudod?