[lazarus] QT Loop Problem

[Shane Miller]

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
>