Detektering af kopiering/indsætning TEdit

Har du prøvet med TEdit's onChange handler? Den burde gøre det du ønsker.

Ja, men jeg skal gerne kunne kende forskel på indsæt fra clipboard/tastatur-

Ideen er, at jeg har en Edit med ES_NUMBER (tillader kun indtastning af 0-9).

Pga. en fejl i Windows kan man imidlertid godt kopiere fx et h ind fra clipboardet.

Jeg skal så gerne kunne fange paste-eventen og hvis indholdet af clipboardet ikke er et tal, annullere den inden TEdit ændres (hvorfor onchange ikke dur, da den udføres efter TEdit er ændret).

Jeg har fundet ud af at ctrl+c svarer til tegnet #22, hvorfor jeg i KeyPress
har skrevet:

if Key = #22 then
  ...
    Key = #0;

Dette virker imidlertid kun, hvis man indsætter vha. ctrl+v, ikke ved hjælp af højreklik, og det er dér problemet er.

/Hallandsen

Måske lave din egen popup menu og styre "paste" den vej? Så kan du tilgå klippebordet manuelt og sortere fæle ting fra.

Hmm ... en lidt "dirty" løsning. Popupmenuens sprog/layout skulle jo gerne følge operativsystemets ...

/Hallandsen

Prøv at kikke på:
SetClipboardViewer
ChangeClipboardChain
WM_DRAWCLIPBOARD
WM_CHANGECBCHAIN

^ Kom lige i tanke om noget andet.

Hvis man nu i TEdit.OnContextPopup fandt en ikkegyldig værdi i Clipboard.AsText, kunne man måske disable Sæt ind-muligheden i genvejsmenuen, men ved ikke lige, hvordan det skal gøres?

/Hallandsen

Glem min kommentar det er jo til når man sætter text ind i clipboard og ikke når man trækker det ud. Jeg har brugt det til at få et program til automatisk at hente tekst fra clipboard når der kopieres text ind i clipboard.

Men prøv at kikke på WM_PASTE

An application sends a WM_PASTE message to an edit control or combo box to copy the current content of the clipboard to the edit control at the current caret position. Data is inserted only if the clipboard contains data in CF_TEXT format.

Denne her er lidt lo-tech, men måske kan du bruge den:
  http://delphi.about.com/od/delphitips2007/qt/disable_ctrl_v.htm

Har set en mere "professionel" løsning så jeg søger videre.

Der var selvfølgelig også dette forslag:
  http://www.swissdelphicenter.ch/torry/showcode.php?id=1403

Både WM_PASTE og http://www.swissdelphicenter.ch/torry/showcode.php?id=1403 ser ud til at kunne bruges, men har nogen en ide om, hvordan man kan disable "Sæt ind"/"Paste" i TEdit's genvejsmenu?

(

Skal vel gøres i OnContextPopup efter
if Clipboard.HasFormat(CF_TEXT) then
  if TryStrToInt(Clipboard.AsText, J) then
    ShowMessage('Et eller andet stykke kode til at enable Paste i contextmenuen')
  else
    ShowMessage('Et eller andet stykke kode til at disable Paste i contextmenuen');

)

REM // ' # ; <!-- /* (* { HALLANDSEN } *) */ -->

Du kan evt. bruge Application.OnMessage og undertrykke den der, men det er alt andet end kønt og man kan virkelig sløve programmet i den procedure. Ved ikke lige hvordan man fanger den på komponentniveau.

Lukker dette spørgsmål og starter et nyt om fjernelse af Paste i TEdit's genvejsmenu.

kroning, hrc < Læg et svar

/Hallandsen

.

Svar