Solved

Showing Open Forms of Application in Quick launch

Posted on 2003-12-02
1
183 Views
Last Modified: 2010-04-05
I have an application that has several forms.  I want to show the forms that are open in the windows toolbar at the bottom of the screen.  Can some one give me a hint on how to do that?
0
Comment
Question by:mcmahling
1 Comment
 
LVL 8

Accepted Solution

by:
gmayo earned 125 total points
Comment Utility
Try this:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowLong(Form1.Handle, GWL_EXSTYLE, GetWindowLong(Form1.Handle,GWL_EXSTYLE) or WS_EX_APPWINDOW);
  Form1.Show;
end;

Obviously replace Form1 with whatever form you want to show.

Geoff M.
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now