XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Button: Prüfung, ob Button losgelassen wurde
Prüft ob ein Button losgelassen wurde während der Mauszeiger noch auf in zeigt (ja = 1 sonst 0)
ist das der fall wird 1 zurückgegeben und der Focus wird auf das übergebene Handle gesetzt
Befehl: ButtonUp(Handle&)  Handle& steht für Fenster oder Dialog (Übergeordnet)
end
Def ButtonUp(1) @Equ(@If(Equ(%Lastmessage,514),1,@If(Equ(%Lastmessage,512),SetFocus(@&(1)),0)),1)
Beispiel:
....

ElseIf @GetFocus(Button_1&)

If ButtonUp(Dialog_4&)

    auszuführende Aufgaben

EndIf