10. példa
2. Helyezze a következő összetevőket az űrlapra: FontDialog. OpenDialog. SaveDialog. PrintDialog. ColorDialog (fül Dialógusok), Képlista. ToolBar (Win 32 fül), MainMenu (Standard fül), ControlBar (kiegészítő).
Fontos: Helyezze a ToolBar komponenst a ControlBar-ba.
3. Állítsa a ControlBar összetevőt a Align tulajdonságba - alTop. Autosize - az Igaz. A DragKind a dkDock-ban van. DragMode - dmManual.
A Fájl menüben adja hozzá a következő alpontokat:
A Szerkesztés:
Ahhoz, hogy egy C vonalba illesszen egy sorot a C védelem alatt ... és a Kilépés után, fel kell tüntetni a Caption -
5. Írja le az FN változót. string; a var változók szakaszban a var végrehajtás előtt; majd hozza létre és írja az OnClick eseménykezelőt az Open alpontra:
ha OpenDialog1.Execute akkor
6. Ezután jelölje ki az OpenDialog 1 és a Szűrő tulajdonságai között a következőket
7. Most hozza létre és írja az OnClick eseménykezelőt a Save alpontba:
ha a SaveDialog1.Execute majd
9. Hozzon létre és írjon az OnClick eseménykezelőre a Mentés almenüként:
ha a SaveDialog1.Execute majd
10. Lépjen ki az alkalmazásból az Exit: Form 1. Bezárás menüpont kiválasztásával
11. A Szerkesztés tétel alpontjaihoz hozzon létre az OnClick eseménykezelőket.
Paste - RichEdit1.PasteFromClipboard; RichEdit1.Setfocus;
Jelölje ki az összeset - RichEdit1.SelectAll
Összes törlése - RichEdit 1. Törölje;
12. A Betűtípus alponthoz hozzon létre egy OnClick eseménykezelőt.
ha a FontDialog1.Execute akkor
13. A Color alponthoz hozzon létre egy OnClick eseménykezelőt.
ha ColorDialog1.Execute akkor
14. A Nyomtatás alponthoz hozzon létre egy OnClick eseménykezelőt.
ha a PrintDialog1.Execute majd
és emellett a magán programban írja be a használt változót: FFileName: string;
15. Az P albekezdéshez adja hozzá a szöveget a szakaszhoz (a végrehajtás szó után). Ezt a szöveget elküldjük a Microsoft Outlooknak.
Használja a Mapi-t. SHFolder;
és hozzon létre egy OnClick eseménykezelőt.
a MapiMessage elkezdődik
lpszNoteText: = PChar (RichEdit1.Lines.Text);
MError: = MapiSendMail (0, Application.Handle .MapiMessage.
MAPI_DIALOG vagy MAPI_LOGON_UI vagy MAPI_NEW_SESSION, 0);
16. Most menj az eszköztárhoz - a ToolBar komponenshez, valamint a képtárhoz - az ImageList komponenshez
17. Az első három gomb (megnyitva, mentve, mentve, mint ...) A ToolButton ugyanazokat a funkciókat hajtja végre, mint a fő menüpontok. Ezért számukra az Object Inspector Események lapján és az OnClose esemény kiválasztásával ki kell választania a megfelelő értékeket (az alapértelmezett N 2, N 3, N 4). E gombok és ezek után ezeket a szeparátorokat (elválasztó) kell elhelyezni - a jobb egérgombbal a ToolBar 1 elemre és az elválasztó parancs kiválasztására. Szintén állítsa a ToolBar 1: Flat összetevőket True értékre. A DragKind a dkDock-ban van. DragMode - dmAutomatikus. Autosize - az Igaz.
18. A program közelítő nézete a 3. ábrán látható. 20.
20. ábra - A program végső formája
19. A következő három gombbal Eszköztár (félkövér (B), dőlt (I), aláhúzott (U)), tegye a következőket: be az ingatlan stílus tbsCheck - független kapcsolóval. Most sorolja fel az onclick eseménykezelő mindegyikére három gomb.
Az F (vastag) gomb megnyomásakor:
ha a ToolButton6.Down akkor
RichEdit1.SelAttributes.Style: = RichEdit1.SelAttributes.Style + [fsBold]
RichEdit1.SelAttributes.Style. = RichEdit1.SelAttributes.Style - [fsBold];
A K gombhoz (dőlt betűvel):
ha a ToolButton7.Down akkor
RichEdit1.SelAttributes.Style: = RichEdit1.SelAttributes.Style + [fsItalic]
RichEdit1.SelAttributes.Style. = RichEdit1.SelAttributes.Style - [fsItalic];
A P gombhoz (aláhúzott betűtípus):
ha a ToolButton8.Down akkor
RichEdit1.SelAttributes.Style: = RichEdit1.SelAttributes.Style + [fsUnderline]
RichEdit1.SelAttributes.Style. = RichEdit1.SelAttributes.Style - [fsUnderline];
20. Most a következő 3 gombhoz (balra, középre, jobbra igazítva) állítsa a Stílus tulajdonságot a tbsCheck értékre. és állítsa a Csoportosított tulajdonság értékét True értékre. Az első gombbal is állítsa a címke értékét 0-ra, a második gombot 2-re, a harmadik pedig az 1-et.
Ezután írja az OnClick eseménykezelőt az 1. gombhoz (balra igazítás).
RichEdit1.Paragraph.Alignment: = TAlignment (TControl (Sender) .Tag);
Ugyanaz a kezelő a másik két gombhoz ugyanaz (ellentétben az OnClick-nel, válassza ki az ugyanazon kezelőt, mint az 1. gombhoz).
Most nézzük meg az egyszerű listák létrehozását. Ehhez létre kell hozni az utolsó 10 napos listát. tegye a Stílus tulajdonságot tbsHa nézze meg és írja le a következő OnClick eseménykezelőt.
RichEdit1.Fájlszámozás: = TNumberingStyle (ToolButton10.Down);
Most folytassuk a betűméret kiválasztását. Ehhez helyezzen két összetevőt a ToolBar 1 összetevőre: az Edit 1 és az UpDown1 (a Win32 lap). A Szerkesztés 1 összetevőhöz állítsa a Felirat tulajdonságot 0 értékre, és az UpDown1 esetében állítsa be a társított tulajdonságot az 1. szerk.
23. Írja be az OnChange eseménykezelőt az 1. szerkesztéshez:
RichEdit1.SelAttributes.Size. = StrToInt (Edit1.Text);