On 19/11/2012 14:44, Martin wrote:
On 19/11/2012 12:17, Eric Kom wrote:
On 19/11/2012 13:07, Michael Schnell wrote:
On 11/19/2012 11:01 AM, Eric Kom wrote:
the Connection procedure is declared as a private
This makes no difference at all.
("private" is just a visibility attribute and has no influence on
the functionality whatsoever. Please read the docs on the Object
Pascal language.)
Please did know a link that can send me to Object Pascal Language guide?
This isn't so much about object programming, but about event driven
programming.
Events are processed one by one. Your "Tfrmform1.Connection" is one
event. All other events are only processed, when this
returns/finishes. (or when you call Application.ProcessMessages)
"StatusBar.SimpleText := 'My name is Tux'; "
Does store the new caption, but not yet paint it. It triggers a paint
event, that will be processed later.
During the sleep no events are processed, so nothing is painted to the
screen.
You could call Application.ProcessMessages before the sleep. But
*warning*, this can get messy. During a Application.ProcessMessages
your event ("Tfrmform1.Connection") can be triggered and called again,
like this:
StatusBar.SimpleText := 'My name is Tux';
Application.ProcessMessages;
StatusBar.SimpleText := 'My name is Tux';
Application.ProcessMessages
// ... and maybe called again ...
sleep(100);
StatusBar.SimpleText := 'am ready';
sleep(100);
StatusBar.SimpleText := 'am ready';
Thanks for all Martin, it's works
StatusBar.SimpleText := 'My name is Tux';
StatusBar.Update;
sleep(2000);
StatusBar.SimpleText := 'am ready';
I will try the hard code also
You can also try
StatusBar.Update;
This will (or should) do an immediate paint (do NOT call paint directly!)
Also note: during a sleep your app does not react. If a user resizez
the window, it will not paint. So if you put is longer sleeps, your
app will become none responsive to the user.
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
Kind Regards
Eric Kom
System Administrator - Metropolitan College
_________________________________________
/ You are scrupulously honest, frank, and \
| straightforward. Therefore you have few |
\ friends. /
-----------------------------------------
\
\
.--.
|o_o |
|:_/ |
// \ \
(| Kom | )
/'\_ _/`\
\___)=(___/
2 Hennie Van Till, White River, 1240
Tel: 013 750 2255 | Fax: 013 750 0105 | Cell: 078 879 1334
[email protected] | [email protected]
www.kom.za.net | www.kom.za.org | www.erickom.co.za
Key fingerprint: 513E E91A C243 3020 8735 09BB 2DBC 5AD7 A9DA 1EF5
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
