XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Task löschen
declare titel$,h%
clearlist
addwindows
let titel$ = @listbox$(Task löschen:,7)

ifnot @equ$(titel$,)

    let h% = @findwindow(titel$)

    if h%

        @sendmessage(h%,16,0,0)

    endif

endif

end

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Task löschen
declare titel$,h%
clearlist
addwindows
let titel$ = @listbox$(Task löschen:,7)

if (titel$ <> )

    let h% = @findwindow(titel$)

    if h%

        @sendmessage(h%,16,0,0)

    endif

endif

end