PostQuitMessage()

[ChrisGillard]

I want to force my application to quit after a user fails at the login
screen ...
The login form is modal so I was hoping to set the nModalResult in the login
form & detect its valye back in the main form.
Depending on the value I am using PostQuitMessage( n ) ... no effect at
present.
nResult := LoginForm():New( self ):ShowModal()
if nResult <> 1
MsgInfo( str( nResult ) ) .... this works OK
// Want to close the app
PostQuitMessage( 1 ) ... this does nothing ?
endif
Not sure if this is a way to do this, not sure what value n to put in the
message either.
Any thoughts would be appreciated please.
Chris

[Gejza Horvath]

Chris,
try on the msdn http://msdn2.microsoft.com/en-us/library/ms644945.aspx
Gejza Horvath
"Chris Gillard" <chris@bluesquare.co.uk> pí¹e v diskusním pøíspìvku
news:4651d379$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>I want to force my application to quit after a user fails at the login screen ...
>
> The login form is modal so I was hoping to set the nModalResult in the login form &
> detect its valye back in the main form.
>
> Depending on the value I am using PostQuitMessage( n ) ... no effect at present.
>
>
> nResult := LoginForm():New( self ):ShowModal()
>
> if nResult <> 1
> MsgInfo( str( nResult ) ) .... this works OK
> // Want to close the app
> PostQuitMessage( 1 ) ... this does nothing ?
> endif
>
> Not sure if this is a way to do this, not sure what value n to put in the message
> either.
>
> Any thoughts would be appreciated please.
>
> Chris
>
>
>
>

[jfgimenez]

Chris,
read these posts:
http://sailingwithxailer.blogspot.com/2 ... nced-xaile r-techniques-application_27.html
http://sailingwithxailer.blogspot.com/2 ... nced-xaile r-techniques-application.html
I belive this is what you are looking for.
--
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info

[ChrisGillard]

Jose,
I had read this & printed it a couple of weeks ago ... I have used the
tecnhique and is working ok.
Thank you.
Chris
"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote in message
news:4651e069$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Chris,
>
> read these posts:
> http://sailingwithxailer.blogspot.com/2 ... nced-xaile r-techniques-application_27.html
> http://sailingwithxailer.blogspot.com/2 ... nced-xaile r-techniques-application.html
>
> I belive this is what you are looking for.
>
>
> --
> Regards,
>
> Jose F. Gimenez
> http://www.xailer.com
> http://www.xailer.info
>

[ChrisGillard]

Gejza,
Thanks for that ... I must remember msdn.
I will try to understand what it is telling me.
Chris
"Gejza Horvath" <_hsoftkn@nextra.sk> wrote in message
news:[email=4651d7af@ozsrv2.ozlan.local...]4651d7af@ozsrv2.ozlan.local...[/email]
> Chris,
>
> try on the msdn http://msdn2.microsoft.com/en-us/library/ms644945.aspx
>
>
> Gejza Horvath
>
>
> "Chris Gillard" <chris@bluesquare.co.uk> pí¹e v diskusním pøíspìvku
> news:4651d379$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>I want to force my application to quit after a user fails at the login
>>screen ...
>>
>> The login form is modal so I was hoping to set the nModalResult in the
>> login form & detect its valye back in the main form.
>>
>> Depending on the value I am using PostQuitMessage( n ) ... no effect at
>> present.
>>
>>
>> nResult := LoginForm():New( self ):ShowModal()
>>
>> if nResult <> 1
>> MsgInfo( str( nResult ) ) .... this works OK
>> // Want to close the app
>> PostQuitMessage( 1 ) ... this does nothing ?
>> endif
>>
>> Not sure if this is a way to do this, not sure what value n to put in the
>> message either.
>>
>> Any thoughts would be appreciated please.
>>
>> Chris
>>
>>
>>
>>
>
>