Forums

English

Walter

Hello!
have the following trouble:
i want prevent, that into Input Text hineinkopiert go can.
Lösche moreover in my Program the clipboard through clearclip, once the Input whom Focus sustain. the functions.
still shining it nevertheless possible To his, over one other Program a Text (through DDE? ) in this area einzufügen.
is the possible?
How can I the prevent?

XProfan X4

03/14/20 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

« this Posting watts as Solution marked. »

Matthias
Arlt

others Possibility: Edit subclassen and WM_PASTE intercepting

Compile Mark Separation

proc EditSubclass

    parameters edit&, Msg&, wParam&, lParam&
    set("FastMode",1)

    if Msg& = 770''WM_PASTE

        return

    endif

    return external("USER32","CallWindowProcA",owp&,edit&, Msg&, WParam&, LParam&)
    set("FastMode",0)

endproc

declare owp&,edit&
cls
edit& = create("MultiEdit",%hwnd,"",100,30,200,100)
owp&=external("USER32","SetWindowLongA",edit&,-4, ProcAddr(EditSubclass,4))

while 1

    waitinput

wend

Greeting Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

03/15/20 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

p.specht

understand I you correctly.: Text but should furthermore association go can. or?

me falls momentarily only the old boy from BASIC abgeleitete commands Input one

cls:declare x$:print " Text: ";
Input x$
print x$:waitinput:end

one. In XProfan-11.2a can there nothing from the Clipboard reintun. Klappt simply not!

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

03/14/20 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Walter

Yes, one Text should association go can.
It's all right thereby for a multiedit, into too one längerer Text registered go can. though should nothing hineinkopiert go can.
The Clipboard is therefore blockiert.
now Have I seen, there's z.B. a "Clipboardmaster" [...]

the Texts evident self-employed (without the clipboard) in boxes one others Program transportiert.
might over DDE walk (becomes here indeed as Possibility to that Fernsteuern described) - still my Program should itself even against "Fernsteuern" / Text hineinkopieren wehren can.
means Anti-DDE, sozusagen...

XProfan X4

03/14/20 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Matthias
Arlt

others Possibility: Edit subclassen and WM_PASTE intercepting

Compile Mark Separation

proc EditSubclass

    parameters edit&, Msg&, wParam&, lParam&
    set("FastMode",1)

    if Msg& = 770''WM_PASTE

        return

    endif

    return external("USER32","CallWindowProcA",owp&,edit&, Msg&, WParam&, LParam&)
    set("FastMode",0)

endproc

declare owp&,edit&
cls
edit& = create("MultiEdit",%hwnd,"",100,30,200,100)
owp&=external("USER32","SetWindowLongA",edit&,-4, ProcAddr(EditSubclass,4))

while 1

    waitinput

wend

Greeting Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

03/15/20 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Walter

From Subclassing Have I yet unfortunately no idea.

take But same as Anlass, me so To keep busy.
Try I today yet from!

Thank you!

XProfan X4

03/15/20 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Walter

functions fine!
cordial Thanks!

now must I it only yet understand...

XProfan X4

03/15/20 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Matthias
Arlt

this is really right simply. at that Insert sustain the Edit-Control The Message WM_PASTE and the Window-procedure the Edit-Controls reacted then properly hereon. this should in the concrete drop prevented go. means swap we The originale Window-procedure the Edit-Controls integrally simply from, let there The Message WM_PASTE quasi unbehandelt. for any others Edit-Messages clutching then again The originale Window-procedure...

Greeting Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

03/15/20 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Walter

Thank you!

XProfan X4

03/15/20 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

Compile Mark Separation

proc EditSubclass

    parameters edit&, Msg&, wParam&, lParam&
    set("FastMode",1)

    if Msg& = 770''WM_PASTE

        return

    endif

    return external("USER32","CallWindowProcA",owp&,edit&, Msg&, WParam&, LParam&)
    set("FastMode",0)

endproc

in this procedure becomes but the "FastMode" never again shorted, there Yes selbige always to set("FastMode",0) with return leave becomes

XProfan X3
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

03/15/20 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Matthias
Arlt

is correct...the set("FastMode",0) is on this place wirkungslos and entbehrlich. important is Yes only, that set("FastMode",1) necessary is, what against [to the SubClassing] too on another place in the program staid go can...and ggf. too ought to

Greeting Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

03/15/20 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Walter

Since I with whom windows Api-Call none durchblicke, have I meanwhile from the Help a further Version through subclass, subclassproc and Set("WinProc", 0) zustande brought, The ditto functions:

Compile Mark Separation

SubClassProc

    if %sMessage = $0302' WM_PASTE

        Set("WinProc", 0)' windows should these Message not further mind

    endif

ENDPROC

declare me%
cls
me%=Create("MultiEdit",%Hwnd,"",10,50,280,-100)
SubClass me%, 1

while 1

    waitinput

wend

SubClass me%, 0
end

Lt. Help becomes The SubClassProc defaultmäßig in the FastMode called, and so here set("Fastmode",1) entfallen could.

thanks over again on Matthias for Info, that the trouble through Subclassing To solve is!