Problem bei Delphi mit Labels, Panels, ...

[Nils_13]

Hi,

ich habe irgendwie ein großes Problem mit Labels, Panels, ... :
  Label1.Caption := Pages.ActivePage.Caption; // Pages = PageControl Das steht in einem Timer-Ereigniss.

Ich benutze das XP-Mainfest.

Das Problem ist, dass bei einer normalen TCaption alles überschrieben wird, das ist hier nicht der Fall.

Das Problem seht ihr auf dem Screenshot (1 wird einfach über die 2 geschrieben):

[R2D2]

Versuch mal, das Label zu aktualisieren.
Label1.update; Wenn das nicht hilft, ist vielleicht das Timer-Intervall zu kurz.

[turboPASCAL]

Timer ? Darf man fragen wozu der gut ist ?

[Nils_13]

Der Timer ist dazu gut, schnell sachen zu aktualisieren.
Es hat mit keinem der Vorschläge zu tun, es tritt so oder so auf.

Egal, habe es mit einer Toolbar gelöst.

[H4ndy]

Zitat von Nils_13:

Der Timer ist dazu gut, schnell sachen zu aktualisieren.

Genau das könnte sein Problem verursachen. Durch die hohe Prozessorbelastung
könnte ein korrektes Neuzeichnen des Controls verhindert werden.

Probiere mal im Timer noch
Application.ProcessMessages; am Ende reinzusetzen.

[Matze]

Zitat von Nils_13:

Der Timer ist dazu gut, schnell sachen zu aktualisieren.
Es hat mit keinem der Vorschläge zu tun, es tritt so oder so auf.

Wäre es so nicht deutlich schneller, besser und eleganter?

Delphi-Quellcode:

procedure TForm1.UpdateLabel;
begin
  Label1.Caption := PageControl1.ActivePage.Caption;
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  UpdateLabel;
end;

// Prozedur, die die Caption der TabSheets ändert
procedure blubb;
begin
  // ...
  UpdateLabel;

[Nils_13]

Danke, werde ich evtl. noch brauchen.

Habe einfach eine Toolbar genommen.