Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Nach Button.Click Progressbar starten!!!??
Virtual Entertainment - Mi 18.09.02 18:36
Titel: Nach Button.Click Progressbar starten!!!??
Hi,
Wie kann ich, wenn ein Button gedrückt wird, veranlassen, dass eine Progressbar anfängt zu laufen und ich in der kompletten Form nix mehr anklicken kann, ausser abzuwarten.
Dat ganze soll einfach nur nen Ladevorgang simulieren!
Wichtig ist, das es erst geschieht nachdem der Button gedrückt wurde!!!! :?
Christian S. - Mi 18.09.02 19:05
Hi!
Wenn Du den Ladevorgang wirklich nur
simulieren willst, kannst Du das so lösen:
im OnClick-Ereignis des Buttons:
Quelltext
1:
2:
3:
| progressbar1.Position:=progressbar1.Min;
form1.enabled:=false;
timer1.enabled:=true; |
dann einen Timer und im OnTimer-Ereignis:
Quelltext
1:
2:
3:
4:
5:
6:
| if progressbar1.Position < progressbar1.Max then
progressbar1.Position:=progressbar1.Position+1 else
begin
form1.Enabled:=true;
timer1.Enabled:=False;
end; |
Ach ja, beim Timer muss am Anfang (im Object Inspector) Enabled=false sein!
MfG,
Peter
P.S.: Habe ich das mit dem Simulieren wirklich richtig verstanden?????
Virtual Entertainment - Mi 18.09.02 21:54
:D Perfekt! Genau sowat wollte ich haben. Vielen Dank!
Funktioniert exakt so, wie ich es haben wollte!!!!!!!
Prima.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!