Willkommen im "Self-Editor"-Tutorial von XPert!
Bitte starte Delphi. Für Dein eigenes Notepad brauchst du:
1 MainMenu
1 Memo
1 OpenDialog
1 SaveDialog
Nun fügst Du das MainMenü in dein Projekt ein. Gehe in den Objektinspektor und aktiviere nun die Seite Eigenschaften. Den Menüpunkt Items musst du nun aktivieren. Du kannst auch auf das Symbol im Formular doppelklicken. Nun bist Du im Menüeditor.
Gib nun den Menüpunkt Datei ein. Wenn du das &-Zeichen vor einem Buchstaben setzt ist der Buchstabe unterstrichen. Ein Minus (-) bewirkt das ein Strich kommt, mit diesem Strich kann man Menüpunkte abtrennen. Füge unter Datei die folgenden Menüpunkte:
Neu, Öffnen, Speichern, Speichern unter , Minus (-), und Ende
ein. Du musst immer zwischen dem Menüeditor und dem Objektinspektor wechseln.
Wenn Du sicherlich den Menüpunkt Bearbeiten haben willst dann füge ihn und
Ausschneiden,Kopieren, Einfügen, Löschen,Minus (-) und alles Markieren als Untermenü ein. Den Menüpunkt Info und dem darunter mit dem Namen Info darfst du natürlich nicht vergessen.
Als nächstes fügst du nun das Memo ein. Im Objektinspektor änderst du die Eigenschaft Align auf "alClient". Nun ist das Memo so groß wie das Fenster.
//Tipp: Wenn der Objektinspektor mal verdeckt ist oder geschlossen
//wurde einfach F11 drücken und er erscheint wieder.
Füge nun den Rest ein (SaveDialog, OpenDialog).
Nun geht es los mit dem Bearbeiten von den Menüpunkten: Gehe aus dem Menüeditor. Wenn du doppelt auf einen der Menüpunkte klickst dann kannst Du die Befehle eingeben (natürlich nur im Fenster wo man den Quelltext eingibt).
Bei Neu:
Delphi-Quelltext
1:
2:
3:
4:
5:
| if Memo1.Modified=False Then Form1.Close Else
begin
If MessageDlg('Sind Sie sicher, dass Sie neu anfangen wollen? Nicht gespeicherte Daten gehen verloren!',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then Memo1.Lines.Clear;
End; |
Bei Öffnen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| If Opendialog1.Execute = True Then
Memo1.Lines.LoadFromFile(Opendialog1.FileName);
<span style="font-weight: bold">Bei Speichern:</span>
If SaveDialog1.Filename<>''Then
Memo1.Lines.SaveToFile(SaveDialog1.Filename)
Else If SaveDialog1.Execute = True Then
Memo1.Lines.SaveToFile(SaveDialog1.Filename) |
Bei Speichern unter...:
Delphi-Quelltext
1:
2:
3:
| If SaveDialog1.Execute = True Then Memo1.Lines.SaveToFile(SaveDialog1.Filename)
<span style="font-weight: bold">Bei Ende/Beenden:</span>
close; |
Bearbeiten:
Ausschneiden:
Delphi-Quelltext
Kopieren:
Delphi-Quelltext
1:
| Memo1.CopyToClipboard; |
Einfügen:
Delphi-Quelltext
1:
| Memo1.PasteFromClipboard; |
Löschen:
Delphi-Quelltext
Alles markieren:
Delphi-Quelltext
Um nun noch das Info zu belegen musst du noch etwas einfügen. Du gehst auf Datei und danach auf Neu.... Es erscheint ein Fenster. In diesem Fenster gehst Du auf die Registerkarte Formulare. Nun noch ein Doppelklick auf Info-Fenster(About-Fenster). Nun ist das Info-Fenster eingefügt.
In diesem Info-Fenster kannst du nun den Produktnamen, die Version, das Copyright und einen Kommentar einfügen.
Einen Doppelklick auf den OK-Button und füge nun den Quelltext ein:
Delphi-Quelltext
Im Form1 musst Du nun unter Info noch diesen Quelltext einfügen:
Delphi-Quelltext
Den letzten Schliff bekommt Dein Editor wenn du noch die Caption von Form1 umänderst. Du könntest zum Beispiel "Editor - by ME" nehmen.
Wie bekommst du nun noch das "Memo1" im Memo weg?
Du wechselst im Objektinspektor auf Memo1 und auf Eigenschaften, dann suchst du den Eintrag "Lines" aus und klickst auf ... (ist am rechten Rand). Da kannst du nun den Text eingeben der beim Programmstart erscheinen soll.
Wenn Ihr Fragen habt oder anderes:
fabian@fschweers.de
Wenn Ihr einen fertigen Editor sehen wollt:
www.fschweers.de/fab...ftware/v1/editor.exe
Viel Spaß noch mit eurem Editor!!!!!!!
Moderiert von 
Christian S.: Code- durch Delphi-Tags ersetzt.
