Írása szövegszerkesztő, órák, cikkek, programozás - programozás C, Delphi, C #
Kezdő tanfolyam Delphi
Ehhez használja az Align tulajdonának komponenst. Meg kell telepíteni a alClient. Ez lehetővé teszi számunkra, hogy elérjük a kívánt hatást.
A RichEdit összetevő a telepítés során már tartalmaz egy sor szöveget (alapértelmezett a neve az újonnan létrehozott komponens), sokan nem tetszik. Ezért most törölni onnan. Mert szöveg megjelenítésekor a komponens felelős ingatlan Lines írja TStrings. Ez olyasmi, mint egy tömböt, mint minden sor van saját száma (szám kezdődik nulla). Változtatni, például az első sorban, meg kell írni:
Szükséges, hogy dolgozzon ki olyan nevet az új programot, és tegyük a forma egy fejlécet. Megjelenítésére formájában megfelel a Caption ingatlan, így jobb az Object Inspector, módosítsa az értéket. (Ne felejtsük el, hogy kiválassza a forma előtt).
Most létre kell hoznunk egy eszköztár (eszköztár), amelyet található parancsikon gomb parancsokat (például Megnyitás, Mentés, stb.) Mert ebben a helyzetben, így Panel komponens (fül Standart alkatrész paletta). Erase neki Caption tulajdonság. Most meg kell tennie, hogy panel mindig az ablak felső részén. Állítsa be a tulajdonságok panel - Állítsa be az egyenlő altop.
Mi most létrehozott egy platform, amelyen ott lesz a gombot. Adj és a panel. Míg eltekintünk két gomb (gomb). Caption tulajdonsága az első lap egyenlőre nyitott, a második - Save.
Hogy mi lehet megnyitni és menteni a szöveges fájlokat, szükségünk van még két komponens OpenDialog és SaveDialog. Mindkettő a párbeszédablakok fülre. Ez a nem-vizuális elemek és nem lehet látni, hogy az alkalmazás, ezért tegyük őket bármely kényelmes helyen az űrlapon.
Nos, az előkészítő munka befejeződött, és akkor kap valamit, mint ez:
Nem én tettem a teljes képet, mivel azt, hogy egy csomó helyet, ezen kívül semmi érdekes!
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
Minden kódot kell helyezni a kezdetét és végét. Ez a kód nagyon egyszerű, és így néz ki:
ha OpenDialog1.Execute majd
RichEdit1.Lines.LoadFromFile (OpenDialog1.Filename);
Nincs semmi bonyolult. De ha fut a program, és nyissa meg a fájlt párbeszédpanelen válassza ki az indítási nem egy szöveges fájl, egy hibaüzenet jelenik meg. Annak elkerülése érdekében szükséges, hogy a felhasználó számára, hogy csak a szöveges fájlokat. Ezen funkció használatához Szűrés OpenDialog komponenst.
Újabb szűrő formátumú fájlokat (vagyis Rich Text Format). Ehhez a második sorban a Szűrő neve mezőbe írja be formázott szöveget, és szűrőmezővel - * .rtf. Ha hozzá kíván adni a szűrő minden típusú fájlokat, meg kell írni a szűrő terén *. *
3. ábra: Ablak Filter szerkesztő.
Mellesleg SaveDialog OpenDialog és alkatrészek egy hasznos funkció DefaultExt. Ez a kiterjesztés az alapértelmezett. Kívánatos, hogy ez egyenlő * .txt mindkettő.
Most írjuk a fájl mentése eljárás (a gomb a második kezelés). Kattintson duplán a második gombot a kattintás feldolgozási eljárás a gombra. És kódot írni, mint ez:
ha SaveDialog1.Execute majd
RichEdit1.Lines.SaveToFile (SaveDialog1.Filename);
Ezért a kódot feldolgozási eljárásokat, kattintson a második gomb:
eljárás TForm1.Button2Click (Sender: TObject);
kezdődik
ha SaveDialog1.Execute majd
RichEdit1.Lines.SaveToFile (SaveDialog1.Filename);
végén;
A kód a program így néz ki:
felhasználások
Ablakok, üzenetek, SysUtils, osztályok, grafika, vezérlők, Forms, párbeszédablakok,
StdCtrls, ComCtrls, ExtCtrls;
típus
TForm1 = osztály (TForm)
RichEdit1: TRichEdit;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
eljárás Button1Click (Sender: TObject);
eljárás Button2Click (Sender: TObject);
magán
nyilvános
végén;
var
Form1: TForm1;
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
ha OpenDialog1.Execute majd
RichEdit1.Lines.LoadFromFile (OpenDialog1.Filename);
végén;
eljárás TForm1.Button2Click (Sender: TObject);
kezdődik
ha SaveDialog1.Execute majd
RichEdit1.Lines.SaveToFile (SaveDialog1.Filename);
végén;
ssNone - görgetősáv nem jelenik meg
ssBoth - mind horizontális és vertikális csík
ssVertical - csak a függőleges csík
ssHorizontal - csak a vízszintes sáv
Válassza ssVertical - ez biztosítja számunkra a megjelenése a függőleges görgetősáv szerkesztésekor nagy szövegeket.
Icon FontDialog komponenst.
Ehhez állítsa az űrlapon. Ezen kívül szükségünk lesz egy másik, és egy gombbal hívja a párbeszédablakban. Azt hogy az űrlapon, és azt. Állítsa be a Caption tulajdonság megegyezik a betűtípust. És az eseménykezelő onclick write:
ha FontDialog1.Execute majd
RichEdit1.SelAttributes.Assign (FontDialog1.Font);
Ez a kód lehetővé teszi a betűtípus egy párbeszédablak, hogy módosítsa a betűtípus-beállításokat minden egyes pontját, szó, szimbólum, vagy a teljes szöveget.
A 4. ábra egy nézet az alkalmazás hozzáadása után a harmadik gombot, és FontDialog komponenst.
A projektünk mi kell hozzá egy csomó funkció, ezért a gombok, de a hely sajnos korlátozottak. De mi fogja megoldani ezt a problémát, a szoftver rendszer és az előugró menüben.
Továbbfejlesztése, a hitelrendszer étlapunkon.
Mint említettük a végén az utolsó fejezet már a főmenü Tegyük fejlesztjük alkalmazás! Ehhez használja a komponens MainMenu található, amely a Standart alkatrész paletta fülre.
Icon MainMenu komponenst.
Ennek megfelelően a területen ellenőr tárgyakat is változik. Írás a Caption tulajdonsága a kiválasztott elem Ön elfogadja változtatni a felirat rajta. Szükségünk lesz ez a menü szerkezete:
18. ábra kilátást a menüben. Ez nem nehéz létrehozni!
eljárás TForm1.N2Click (Sender: TObject);
kezdődik
Most, az eleje és a vége kell írni a kódot. De van egy kis trükk: Természetesen, akkor másolja a kódot az onclick eseménykezelő az első gombot, de ez nem túl kényelmes és racionális. Képzeld el, ha van egy csomó gomb, és ugyanazt a menüpontok. Először is, a program mérete növekszik kétszer, másrészt hirtelen kell változtatni semmit. Ezután meg kell rendezni a hibajavító kódot.
Nem ugyanaz a menüpont „Font” és a „Save”.
Most írjuk a felvezető kattintva megjelenik a „kilépés”. Hogy teljes legyen a program, egyszerűen hívja a következő módszer a fő formája. Mivel a forma van egy, és ez az egyik legfontosabb. És mégis, ha az ingatlan olyan formájára utal, akkor nem lehet írni az űrlap nevét a kódot. Azaz, a program is leállt az alábbiak szerint:
Ha már figyel a Szerkesztés menü tételek másolása, beillesztése és Cut. Végrehajtja ezeket a funkciókat nagyon egyszerű:
Változás az információt ott a szeretet. És a eseménykezelő feliratú gombra Ok (OKButton) levelet csak egy szót: Close;
Most menj a fő formája, hozzon létre egy onclick eseménykezelő egy menüpont Körülbelül. Ott kell írni:
Most a program futtatásához. Látni fogja, egy üzenetet, hogy a forma nem AboutBox bejelentett uses részéhez. Pozitívan reagál a kérésre.
Itt van az összes kód teljes:
felhasználások
Ablakok, üzenetek, SysUtils, osztályok, grafika, vezérlők, Forms, párbeszédablakok,
StdCtrls, ComCtrls, ExtCtrls, menük;
típus
TForm1 = osztály (TForm)
RichEdit1: TRichEdit;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button3: TButton;
FontDialog1: TFontDialog;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
eljárás Button1Click (Sender: TObject);
eljárás Button2Click (Sender: TObject);
eljárás Button3Click (Sender: TObject);
eljárás N2Click (Sender: TObject);
eljárás N3Click (Sender: TObject);
eljárás N9Click (Sender: TObject);
eljárás N6Click (Sender: TObject);
eljárás N7Click (Sender: TObject);
eljárás N8Click (Sender: TObject);
eljárás N11Click (Sender: TObject);
magán
nyilvános
végén;
var
Form1: TForm1;
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
ha OpenDialog1.Execute majd
RichEdit1.Lines.LoadFromFile (OpenDialog1.Filename);
végén;
eljárás TForm1.Button2Click (Sender: TObject);
kezdődik
ha SaveDialog1.Execute majd
RichEdit1.Lines.SaveToFile (SaveDialog1.Filename);
végén;
eljárás TForm1.Button3Click (Sender: TObject);
kezdődik
ha FontDialog1.Execute majd
RichEdit1.SelAttributes.Assign (FontDialog1.Font);
végén;
eljárás TForm1.N2Click (Sender: TObject);
kezdődik
button1.OnClick (ön);
végén;
eljárás TForm1.N3Click (Sender: TObject);
kezdődik
button2.OnClick (ön);
végén;
eljárás TForm1.N9Click (Sender: TObject);
kezdődik
button3.OnClick (ön);
végén;
eljárás TForm1.N7Click (Sender: TObject);
kezdődik
RichEdit1.PasteFromClipboard;
végén;
eljárás TForm1.N8Click (Sender: TObject);
kezdődik
RichEdit1.CutToClipboard;
végén;
eljárás TForm1.N11Click (Sender: TObject);
kezdődik
AboutBox.showmodal;
végén;