Zwischenablage einfügen

[PM Heiko]

Hallo,
ich habe auf einem Formular zwei Memofelder und möche für diese ein Copy & Paste ermöglichen. Ich habe bereits ein Formularweites PopUpMenü. Nun meine Fragen:

1.- kann ich nur für die beiden Memos das typische Popupmenü (einfügen, kopieren...) irgendwie aktivieren?

2.- Falls nicht, wie bekomme ich beim einfügen den Text so in das Memo, also ab der Cursorposition wo der Cursor zur Zeit ist, das der nachfolgende Text "nachrückt" ?

Heiko

[markus lemcke]

ich kapiere nicht wirklich wo das problem ist?
wenn du zwei memos in ein formular ziehst und du machst sonst gar nichts, kommt innerhalb der memos das popupfenster von windows!!

oder du machst es so:
<pre>
if (( ActiveControl ) is TCustomEdit ) then
TEdit( ActiveControl).pastefromclipboard;
</pre>

dann tut es in allen editierfeldern!

marku

[Frank Reim]

Hi Heiko,
wie wär es denn mit Actions. Delphi bietet doch alles, was man braucht!
Eine ActionList ins Form, DoppelKlick, rechte Maus, neue Standardaktion...
Gruß, Fran

[PM Heiko]

>und du machst sonst gar nichts
Na so einfach ist meine Anwendung nun doch nicht. Mein Problm ist, die Zwischenablage an der Stelle wo der Cursor steht einzufügen .....

@Frank: mit Actionlist habe ich noch nie gearbeitet... Ich werd mal nachlesen...
Heik

[markus lemcke]

mhm... du meinst wenn er nicht am beginn einer zeile steht , sondern mittendrin oder was meinst du?
ich kann dein problem nicht nachvollziehen.
mit strg+v wird es immer an der cursposition eingefügt :

[Frank Reim]

<CODE>
Mein Problm ist, die Zwischenablage an der Stelle wo der Cursor steht einzufügen .....
</CODE>
Genau das können die Standard Actions...
Du brauchs auch nur im Popup - Menu Editor deinem Menüpunkt die Action zuzuweisen. Einfacher geht' s nicht.
Gruß, Fran

[PM Heiko]

@markus: Strg+V, genau DAS will ich über mein PopUp ermöglichen. Nicht mehr!

QFrank: ich sehe es mal nach ....

Danke ihr zwei

Heik

[markus lemcke]

dann stecke ins popup das hier rein:
<pre>
if (( ActiveControl ) is TCustomEdit ) then
TEdit( ActiveControl).pastefromclipboard;
</pre>

gruß

marku