[Neftali [Germán.Estévez]]

Otra opción sería capturar el mensaje del repintado del form (tipo WM_PAINT o similar) y en ese punto "repintar" el texto. De esa forma te aseguras que sólo se pinta cando es necesario, ni más ni menos veces.


En la parte privada del form defines:

Código Delphi [-]
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;

Y la implementación:

Código Delphi [-]
procedure TForma.WMPaint(var Message: TWMPaint);
begin
  inherited;
  // aquí llamas al procedimiento de repintar el texto
  ...
end;

De esta forma siempre que al form le llegue el mensaje de Repintarse, justo después volverá a repintar el texto.