XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
markierten Text aus einem MultiEdit in die Zwischenablage kopieren
declare medit&,e%,exit&,but&
cls
medit& = Create(MultiEdit,%HWnd,,5,5,300,-380)
SetText medit&,Das ist ein Test zum Kopieren von Text aus einem MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit MultiEdit.
Bitte Text markieren und den Ausschneiden-Button anklicken!
but& = Create(Button,%HWnd,Kopieren,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&,$301,0,0)
        messagebox(Der markierte Text wurde in der Zwischenablage kopiert!,I N F O,4160)

    endif

endwhile

end