Hey Leute,
wenn ich in einer Procedure mehrmals die Caption eines Labels ändern möchte, werden die Änderungen erst nach Abschluss der Procedure angezeigt.
Ich weiß, dass man irgendwie dafür sorgen konnte, dass Änderungen sofort angezeigt werden, aber ich weiß nicht mehr wie (hab schon seit 'ner halben Ewigkeit kein Delphi mehr programmiert) und weiß auch nicht wirklich wonach ich da Googlen soll
.
Könnt ihr mir da vielleicht auf die Sprünge helfen, bitte?
Beispiel (Label = lblLots):
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TfrmMain.calcLots();
var sHTML : string;
objRegEx : TRegEx;
objMatch : TMatch;
begin
lblLots.Caption := '...'; sHTML := GetPage('https://www.google.de/search?q='+edRisk.Text+'.'+edRiskDecimal.Text+'%20'+edAccountCurrency.Text+'%20to%20'+edQuotedCurrency.Text);
objRegEx := TRegEx.Create('', []);
objMatch := objRegEx.Match(sHtml, '\>(.*)\<');
if objMatch.Success then
begin
lblLots.Caption := 'Ergebnis und so';
end
else
lblLots.Caption := 'ERROR';
end; |
Danke schonmal
Vielen Dank!