Ich hätte mir dass so gedacht:
Code: Alles auswählen
Wenn Fensterweite < 400
ÄndereFensterweite(400)
EndeWenn
Ich habe den Code jetzt nur mal so geschrieben, weil ich dann nicht so viel hätte nachdenken sowie schreiben müssen!

Code: Alles auswählen
Wenn Fensterweite < 400
ÄndereFensterweite(400)
EndeWenn
Code: Alles auswählen
Procedure Callback(WindowID,Message,wParam,lParam)
Result = #PB_ProcessPureBasicEvents
Select Message
Case #WM_GETMINMAXINFO
GetWindowRect_(WindowID,r.RECT)
*pMinMax.MINMAXINFO = lParam
*pMinMax\ptMinTrackSize\x=350
*pMinMax\ptMinTrackSize\y=180
*pMinMax\ptMaxTrackSize\x=GetSystemMetrics_(#SM_CXSCREEN)
*pMinMax\ptMaxTrackSize\y=GetSystemMetrics_(#SM_CYSCREEN)
Result = 0
EndSelect
ProcedureReturn Result
EndProcedure
Code: Alles auswählen
SetWindowCallback(@Callback())