Flackern eines Label/TLabel verhindern

[Sir Rufo]

Zitat von Rollo62:

Kann das helfen die Changerate zu vermindern ?

Nein, denn das hier passiert beim Setzen von Caption

Delphi-Quellcode:

procedure TControl.SetText(const Value: TCaption);
begin
  if GetText <> Value then // <- aha
{$IF DEFINED(CLR)}
  begin
    FText := Value;
    Perform(CM_TEXTCHANGED, 0, 0);
  end;
{$ELSE}
  SetTextBuf(PChar(Value));
{$ENDIF}
end;

Somit ist die Überprüfung einfach nur DoppelMoppel und reduziert nichts (bremst nur ein wenig)