Wenn man nur ein kleines Programm hat und keine Buttons
usw. abfragt, kann man das Schließen-Kreuz (X) ja mit
%Key = 2 oder ~wm_close abfragen.
Ich habs unten im Code mal beim Subclassing gemacht :
Code
$H Messages.ph
SubClassProc
Declare line&, befehl%
If SubClassMessage(GridBox&, 516)
line& = @GetCurSel(GridBox&)
Case line& > -1 : MessageBox("Zeile Nr. : " + Str$(line& + 1) + "gewählt !", "Info", 0)
Set("WinProc", 0)
ElseIf SubClassMessage(dlg&, ~wm_close)
Set("WinProc", 0)
DestroyWindow(dlg&)
End
EndIf
EndProc
var dlg&=Create("Dialog",%hwnd,"",10,10,700,300)
var GridBox&=Create("GridBox", dlg&, "Spalte 1;2;140;Spalte 2;2;140;Spalte 3;2;140;Spalte 4;2;140;NR;0;100", 0, 20, 20, width(dlg&)-40, height(dlg&)-70)
AddString(GridBox&,"10 | 20 | 30 | 40 | 1")
AddString(GridBox&,"100 | 200 | 300 | 400 | 2")
AddString(GridBox&,"1000 | 2000 | 3000 | 4000 | 3")
AddString(GridBox&,"10000 | 20000 | 30000 | 40000 | 4")
SubClass dlg&, 1
SubClass GridBox&, 1
while 1
waitinput
wend
'SubClass dlg&, 0
'SubClass GridBox&, 0
end
Alles anzeigen
Kann man das generell so machen ?
Oder muß ich davon ausgehen, daß ich Windows irgendwann
mal den Boden unter den Füßen wegziehe.
Ich meine damit, ob mein Programm dann 'sauber' beendet wird,
bzw. XProfan sich darum kümmert ?