🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.delphi.language.objectpascal
Article #32413

Re: Non-Modal for from Applet

#32413
From: adem
Date: Sun, 24 Nov 2002 21:13
43 lines
2176 bytes
Hi,

Actually, it turns out that my problem was with the FormStyle :=
fsStayOnTop.

And the reason was: If I raised any exceptions, their messages would show up
*behind* MyForm. A very tricky thing for the user to try to click the OK
button
behind a form :-)

That is what I was hoping to solve --albeit wrongly by making the form
non-modal.

Cheers
Adem

"Robert Kuhlmann" <robert.kuhlmann1@ewetel.net> wrote in message
news:3DE12BC7.9D57EE28@ewetel.net...
> adem schrieb:
> >...
> > It briefly shows up and disappears.. What can I do to make it stay until
> > the user closes it?
> I assume "disappears" doesn't mean it is destroyed, just not visible any
> more?
>
> Then this may help
> > Function CPlApplet(hWndCPL: hWnd; iMEssage: integer; lParam1: longint;
> > lParam2: longint): LongInt Stdcall;
> > Begin
> >   Case iMessage Of
> >     CPL_DBLCLK: Begin {Your code for dblclick handler here}
> >         If Assigned(MyForm) Then MyForm.Show
> >         Else Begin
> >           MyForm := TMyForm.Create(Nil);
>             MyForm.FormStyle := fsStayOnTop; //<<<
> >           MyForm.Show;
> >         End;
> >       End;
> >   End;
> > End;
>
> Bye
> Robert
Technical Details
Message-ID: <3de14666@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-05!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!fu-berlin.de!news.uni-x.net!newsgroups.borland.com!not-for-mail
References: <3de0154e@newsgroups.borland.com> <3DE12BC7.9D57EE28@ewetel.net>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 109d30,f5d1b5cd7e4f9d2c
X-Google-Attributes: gid109d30,public
X-Google-ArrivalTime: 2002-11-24 14:15:38 PST
From: "adem" <adembaba@excite.com>
Newsgroups: borland.public.delphi.language.objectpascal
References: <3de0154e@newsgroups.borland.com> <3DE12BC7.9D57EE28@ewetel.net>
Subject: Re: Non-Modal for from Applet
Date: Sun, 24 Nov 2002 23:13:55 +0200
Lines: 45
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4920.2300
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4920.2300
NNTP-Posting-Host: 212.174.110.106
Message-ID: <3de14666@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1038173798 212.174.110.106 (24 Nov 2002 13:36:38 -0800)
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-05!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!fu-berlin.de!news.uni-x.net!newsgroups.borland.com!not-for-mail