Hi All,
I created a form. I placed a TTimer on this form and a label. The code is like
this
procedure TMainForm.ShowNotification(Msg:String; time:Cardinal);
var
MessageForm:TMessageChildForm;
begin
MessageForm:=TMessageChildForm.Create(Self);
MessageForm.Show;
MessageForm.Visible:=True;
MessageForm.Label1.Caption:=Msg;
MessageForm.Timer1.Interval:=time;
MessageForm.Close;
end;
and the call is
ShowNotification('Creating directories',5000);
I assume this is 5 seconds but when I run the app it goes faster then that like
not even 1 sec. Anything worng with the code above
Thanks
Lefti
----------------------------------------
> Date: Fri, 14 Dec 2007 18:00:33 +0200
> From: [EMAIL PROTECTED]
> To: [email protected]
> Subject: Re: [lazarus] showmessage or similar that closes without a prompt
>
> On 14/12/2007, Lee Jenkins wrote:
>
>> ShowWaitMessage(sMsg, true);
>> // ... do some work
>> ShowWaitMessage('', false);
>
>
> I was going to add that to tiOPF, but I see it already has something
> like that. :-) Amazing, after 5 years I still find new things in
> tiOPF.
>
> [tiDialogs.pas]
>
> procedure tiProcessing(const AMessage : String);
> procedure tiEndProcessing;
>
>
>
> Regards,
> - Graeme -
>
>
> _______________________________________________
> fpGUI - a cross-platform Free Pascal GUI toolkit
> http://opensoft.homeip.net/fpgui/
>
> _________________________________________________________________
> To unsubscribe: mail [EMAIL PROTECTED] with
> "unsubscribe" as the Subject
> archives at http://www.lazarus.freepascal.org/mailarchives
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
