I assume PB destroys the dialogbox itself.
Then, it would be a resend

Thanks,
------------------
[email protected]
#Compile Exe #Register None #Dim All #Include "win32Api.inc" Global OldProc As Long CallBack Function DlgProc Select Case CbMsg Case %WM_INITDIALOG: MsgBox "Ok" ' Not happends Case %WM_DESTROY PostQuitMessage 0 End Select Function = CallWindowProc(OldProc, CbHndl, CbMsg, CbWparam, CbLparam) End Function Function PbMain Dim hDlg As Long Dialog New 0, "Test", , , 200, 200, %WS_SYSMENU Or %WS_CAPTION To hDlg OldProc = SetWindowLong (hDlg, %GWL_WNDPROC, CodePtr(DlgProc)) Control Add TextBox, hDlg, 101, "", 10, 10, 180, 15 Dim msg As tagMsg ShowWindow hDlg, 1 UpdateWindow hDlg While GetMessage (msg, %NULL, 0, 0) If IsDialogMessage (hDlg, msg) Then Else TranslateMessage msg DispatchMessage msg End If Wend ' SetWindowLong hDlg, %GWL_WNDPROC, OldProc End Function
We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.
By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.
Leave a comment: