Hello everyone,
I created two programs and later decided to merge them into one program. That was no problem, I just included the second programs forms and files in the first programs project files through the IDE.
The problem is, when the second form is shown, it refuses to relinquish focus. That is, the second form is on top of the first form and if I click the first form's button in the task bar, it does not come to the front like it should.
Details:
I used setwindow to make the second form show in taskbar.
SetWindowLong(self.Handle,
I've tried setting the parent to zero as well as not setting it at all (just going with default).
//self.ParentWindow := 0;
Project Options correctly identifies the first form as the main form for the project.
reddarin
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
Thanks PapaBeer72 but that does not resolve the problem.
It should, because I've seen that in my search to resolve it and I've tried it so I'm glad to see it again as a solution.
Perhaps one of the files is corrupted that the compiler generates? I've tried rebuilding the probject (as opposed to just compiling it) and that doesn't change the problem either.
reddarin
Hi,
Try this (it's working fine for me):
type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure CreateParams(var Params:TCreateParams); override;
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.CreateParams(var Params:TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;
And call the form using Form2.Show; only.
Regards, Geo
Ah, by the way, I just left the skeleton procedure as created by the IDE:
procedure TfrmMainWB.CreateParams(va
begin
inherited;//<-- left off CreateParams(Params);
end;
...and added your two lines:
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
reddarin
Business Accounts
Answer for Membership
by: PapaBeer72Posted on 2003-05-10 at 15:01:45ID: 8501818
Hi,
Try code like this for the second form. And don't use the ShowModal method but Show of the second form.
procedure TForm2.FormCreate(Sender: TObject);
var
StyleEx: LongInt;
begin
StyleEx := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, StyleEx or WS_EX_APPWINDOW);
end;
Good Coding,
PapaBeer72