[lazarus] QT Loop Problem

[codepunk]

If I comment out the style line the program exits as it should..

Cliff

On Thu, 13 Apr 2000, Shane Miller wrote:
> in CreateParams you are setting
> STYLE := ...
> 
> Does that do a handleneeded which tries to create the handle by calling
> CreateParams and so forth?  Then it loops?
> ---------------------------------------
> Shane Miller
> Take a look at other product/projects of mine below!
> 
> Get paid to surf the net!
> http://alladvantage.com/go.asp?refid=DEX-870
> 
> Get paid to surf the net by clicking here too!!!
> http://epipo.com/sine.asp?dex870
> 
> Home page : http://www.lakefield.net/~smiller
> 
> Auto-IP Publisher : http://www.lakefield.net/~smiller/autoip
> 
> Advanced Clipboard : http://www.lakefield.net/~smiller/advclipboard
> 
> Lazarus : http://www.lazarus.freepascal.org
> 
> ----- Original Message -----
> From: "codepunk" <vbman at pcpros.net>
> To: <lazarus at miraclec.com>
> Sent: Friday, April 14, 2000 1:34 AM
> Subject: [lazarus] QT Loop Problem
> 
> 
> > The loop is in this procedure what is the best way to fix it?
> >
> > What type of base object is params can I place a exit check in it.?
> >
> > Cliff
> >
> > procedure TCustomForm.CreateParams(var Params : TCreateParams);
> > begin
> >   inherited CreateParams(Params);
> >   with Params do
> >   begin
> >     if (Parent = nil) {and (ParentWindow = 0)} then
> >     begin
> >      //    WndParent := Application.Handle;
> >       { TODO : No application handle }
> >       Style := Style and not (WS_CHILD or WS_GROUP or WS_TABSTOP);
> >     end;
> >   end;
> > end;
> >
> > _________________________________________________________________
> >      To unsubscribe: mail lazarus-request at miraclec.com with
> >                 "unsubscribe" as the Subject
> >     archives at http://www.miraclec.com/list_archives/lazarus
> >
> 
> _________________________________________________________________
>      To unsubscribe: mail lazarus-request at miraclec.com with
>                 "unsubscribe" as the Subject
>     archives at http://www.miraclec.com/list_archives/lazarus