setparent | 易学教程

Problems in Showmodal after assigning to Setparent(..)

阅读更多关于 Problems in Showmodal after assigning to Setparent(..)

问题 I created two application MainApps and SubApps, the SubApps has a modal type dialogbox such as login/logout form etc. and its working fine. After I attach it to the MainApps, the Modal Dialog box shows like normal box form. It behaves like "DIALOG.SHOW" instead of "DIALOG.SHOWMODAL"; I am using delphi compiler SubApps buttonclick; begin with TfrmDialog.Create(Self, dtLogout) do try iMsgResult := ShowModal; finally Free; end; if iMsgResult = mrOk then begin dmVoca.FHomeworkXMLDoc.Active :=

GUI freeze when using Windows::SetParent on QApplication

阅读更多关于 GUI freeze when using Windows::SetParent on QApplication

问题 It is about the communication two Qt programs under Windows. One program, let's call him Client, The other program, called Server. The situation: I want to place the Client inside a QWidget of the server. Windows already supplies some nice methods for removing the decoration (border,title bar etc..) and change the parent of a window so repainting, resizing, window activation is all taken care by Windows. When I start my Client using a QProcess I wait for it to be launched, so that there is a

Problems in Showmodal after assigning to Setparent(..)

阅读更多关于 Problems in Showmodal after assigning to Setparent(..)

I created two application MainApps and SubApps, the SubApps has a modal type dialogbox such as login/logout form etc. and its working fine. After I attach it to the MainApps, the Modal Dialog box shows like normal box form. It behaves like "DIALOG.SHOW" instead of "DIALOG.SHOWMODAL"; I am using delphi compiler SubApps buttonclick; begin with TfrmDialog.Create(Self, dtLogout) do try iMsgResult := ShowModal; finally Free; end; if iMsgResult = mrOk then begin dmVoca.FHomeworkXMLDoc.Active := False; //Disabled Double Login dmVoca.tmrDoubleLogin.Enabled := False; ................ end; end; MainApps

How to shell to another app and have it appear in a delphi form

阅读更多关于 How to shell to another app and have it appear in a delphi form

In Delphi I've used ShellExecute for years to launch (and optionally wait for) other applications. Now though, I need to have one of these applications appear in one of my Delphi app forms. I've tried the code below as a simple test to open notepad (which it does) and to display the result within PAnel1 on my form (which it doesnt). Can some kind person put me on the right track? Thanks var Rec : TShellExecuteInfo; wnd : HWnd; const AVerb = 'open'; AParams = ''; AFileName = 'Notepad.exe'; ADir = ''; begin FillChar(Rec, SizeOf(Rec), #0); Rec.cbSize := SizeOf(Rec); Rec.fMask := SEE_MASK

How to shell to another app and have it appear in a delphi form

阅读更多关于 How to shell to another app and have it appear in a delphi form

问题 In Delphi I've used ShellExecute for years to launch (and optionally wait for) other applications. Now though, I need to have one of these applications appear in one of my Delphi app forms. I've tried the code below as a simple test to open notepad (which it does) and to display the result within PAnel1 on my form (which it doesnt). Can some kind person put me on the right track? Thanks var Rec : TShellExecuteInfo; wnd : HWnd; const AVerb = 'open'; AParams = ''; AFileName = 'Notepad.exe';