Depending on the component class you are popping up, you may not have to
create a sub class.
For example, if it is a list box, you might be able to get away with
creating it as usual and then doing this:
SetWindowLong(MyListBox.Handle, GWL_STYLE,
(Style or CS_SAVEBITS or WS_POPUP) and
(not (WS_VISIBLE or WS_CHILD)));
MyListBox.RecreateWnd;
Or something along those lines.
Phil.
----- Original Message -----
From: "Mark Derricutt" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Tuesday, February 13, 2001 11:33 AM
Subject: RE: [DUG]: Floating windows...
> So as well as creating my TMyComboThing, I create a subclass of the comp I
> wanna drop down (in my case a TListView) and override CreateParams, and
> create that.
>
> Then to pop it up, I just .visible := true/false it?
>
> Sounds fairly simple... Assuming I've got it right..
>
>
> --On Monday, February 12, 2001 4:32 PM +1300 Max Nilson <[EMAIL PROTECTED]>
> wrote:
>
> > procedure TDropDownPanel.CreateParams(var Params: TCreateParams);
> > begin
> > inherited CreateParams(Params);
> > with Params do
> > Style := (Style or CS_SAVEBITS or WS_POPUP) and
> > (not (WS_VISIBLE or WS_CHILD))
> > end;
> >
> > This creates an initially invisible panel that is configured to do the
> > popup thing later on. The SAVEBITS is to speed things up when you close
> > the panel back up again.
> >
> > Cheers, Max.
> >
> >
>
> -------------------------------------------------------------------------
> > -- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED]
> > with body of "unsubscribe delphi"
>
>
>
> --
> There are exceptions, I'm sure, but the Windows 2000 on-line community
> seems to have, in general, the moral and spiritual qualities of your
> average porn site. (c) Bryan Pfaffenberger, Linux Journal, Jan 2001.
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
