XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Text aus der Zwischenablage in ein RichEdit einfügen
declare medit&,e%,exit&,but&
cls
medit& = Create(RichEdit,%HWnd,,5,5,300,-380)
but& = Create(Button,%HWnd,Einfügen,5,Height(%HWnd) - 30,100,25)
exit& = Create(Button,%HWnd,Beenden,110,Height(%HWnd) - 30,100,25)

whilenot e%

    WaitInput

    if GetFocus(exit&)

        e% = 1

    elseif GetFocus(but&)

        Sendmessage(medit&,$302,0,0)
        messagebox(Der Text aus der Zwischenablage wurde eingefügt!,I N F O,4160)

    endif

endwhile

end