XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Eingabezeile: Text markieren
-----------------------------------------------------------------------
Text in einem Editcontrol selektieren          (P)Fairware,Freeware....
(c) 1998 Richard Maurukas
-----------------------------------------------------------------------
window 0,0-640,480
Settruecolor 1
cls rgb(0,0,128)
declare ende%,edit&
let edit&=createedit(%hwnd,123.    Die 2 ist selektiert,20,20,220,20)
setfocus(edit&) Erst den Focus setzen
sendmessage(edit&,$00B1,1,2)
bei Wparam = 0 und
bei Lparam =-1 wird der gesamte Text markiert.
waitkey
end