SAV
07.05.2002, 17:22
Hallo, kann mir bitte jemand sagen, warum das hier bei mir nicht klappt, obwohl es hier genau so im Buch Delphi 3 für Dummies steht.
1. Ein PopupMenu erstellen.
2. Das hier kommt ins PopupMenu rein. ´Ausschneiden, Kopieren, Einfügen´.
3. Für Ausschneiden ´Memo1.CutToClipboard;´
Für Kopieren ´Memo1.CopyToClipboard;´
Für Einfügen ´Memo1.PasteFromClipboard;´
4. Ein Memo Feld erzeugen.
5. In Popup von Memo PopupMenu1 eintrage.
So wenn ich das Programm jetzt starte geht alles perfekt. Aber wenn ich das hier jetzt ins Onpopup-Ereignis von PopupMenu eintrage geht es nicht.
Cut1.Enabled := Memo1.SelLenght > 0;
Copy1.Enabled := Cut1.Enabled;
Paste1.Enabled := Clipboard.HasFromat(CF_Text);
Und in USE-Klause kommt das hier rein ClipBrd.
So das habe ich alles gemacht nur startet das Prog leider nicht. Er schreibt das, das Problem bei Cut1 ist. Was kann ich machen damit das Prog funktioniert.
1. Ein PopupMenu erstellen.
2. Das hier kommt ins PopupMenu rein. ´Ausschneiden, Kopieren, Einfügen´.
3. Für Ausschneiden ´Memo1.CutToClipboard;´
Für Kopieren ´Memo1.CopyToClipboard;´
Für Einfügen ´Memo1.PasteFromClipboard;´
4. Ein Memo Feld erzeugen.
5. In Popup von Memo PopupMenu1 eintrage.
So wenn ich das Programm jetzt starte geht alles perfekt. Aber wenn ich das hier jetzt ins Onpopup-Ereignis von PopupMenu eintrage geht es nicht.
Cut1.Enabled := Memo1.SelLenght > 0;
Copy1.Enabled := Cut1.Enabled;
Paste1.Enabled := Clipboard.HasFromat(CF_Text);
Und in USE-Klause kommt das hier rein ClipBrd.
So das habe ich alles gemacht nur startet das Prog leider nicht. Er schreibt das, das Problem bei Cut1 ist. Was kann ich machen damit das Prog funktioniert.