Buttons und Labels aktualisieren

[Privateer3000]

Hello folks,

wenn man jede Menge Buttons und Labels aktualisieren
möchte, muss man zangsläufig diese jedesmal
neu zeichnen oder gibt es da einen anderen Weg.
Im Moment prüfe ich ob der Button oder Label existiert
,wenn ja geb ich ihn frei und erstelle einen neuen.
Bei einer gewissen Menge geht dies sehr langsam
und sieht auch unschön aus

Welche Möglichkeiten gibt es da noch?

Grüße

[toms]

Hallo, was verstehst du unter aktualisieren? Warum müssen sie aktualisiert werden?

[Mikescher]

Ich weiß nicht ob ich dich richtig verstanden habe aber für mich hört es sich so an :

- Du willst zb Label 1 aktualisieren/refreshen/repainten.
- Du machst das so.
- Label1 zerstören / frei geben.
- Label 1 wieder neu createn.

Hab ich das so richtig verstanden ???

Dann wäre das nämlich eine recht (seltsame) Methode;
In diesem Fall könntest du einfach die Repaint- / Refresh Methode benutzen

- Gruß Mikescher

[Privateer3000]

Ja Danke
das war mir klar das dies ne komische variante ist
aber wie wendet man die Refresh methode an ?
Gib mir bitte ein kleines Beispiel?!

[Mikescher]

Label1.Refresh Programmieren ist ja so einfach

[Privateer3000]

Hallo,
das refresh bestünde darin, das
werte aus einer db geholt werden.
Mit diesen Daten werden die Caption,
Farbe des Buttons und Caption des
Labels aktualisert.

Also theoretisch hol ich nun die Werte
und das im Durchlauf das refresh?

Grüße

[rollstuhlfahrer]

Zitat von Privateer3000:

Hallo,
das refresh bestünde darin, das
werte aus einer db geholt werden.
Mit diesen Daten werden die Caption,
Farbe des Buttons und Caption des
Labels aktualisert.
(...)

Welche Datenbank?? Refresh ruft Repaint auf und Repaint sorgt dafür, dass das Control neu auf die Form gezeichnet wird. Hierbei wird auch die Caption neu gezeichnet (ist ja klar). Um Werte aus einer Datenbank zu holen, liest man diese aus und stellt den Wert in Caption. (Dabei wird auch neu gezeichnet)

rollstuhlfahrer

[Privateer3000]

Einige Parameter der Buttons und Labels,
werden aus der db geholt.

Delphi-Quellcode:

if not Assigned(main.form.plbox.findcomponent('plnr'+plid)as TsButton) then begin
   tibut:=TsButton.Create(main.form.plbox); tibut.Parent:=main.form.plbox; tibut.Visible:=True;
   tibut.Name:='plnr'+plid;
   end;

zu lösen versuche ich wie oben
es soll geprüft werden ob die komponente existiert
wenn ja werden nur caption und farbe geändert
wenn nein wird sie neu erstellt.
Aber obiger Source verursacht eine shutzverletzung
Warum?

[rollstuhlfahrer]

prüfe mal, ob main.form.plbox.findcomponent('plnr'+plid) nil ergibt. Dann ist der Button da, ansonsten nicht.

rollstuhlfahrer

[Privateer3000]

Danke
aber funkioniert das mit Assigned nicht
das sollte doch eigentlich gehen!?