PageControl: Änderung Tabsheet-Inhalt ohne Sprung dorthin?

[triangulum]

Salü,

Anwendung hat PageControl mit 8 TabSheets.

Wenn nun in TabSheet1 ein Button geklickt wird, löst das Ereignis eine Contentänderung im TabSheet5 aus. Ein Frame wird TabSheet5 hinzuugefügt und angezeigt.

Nun wird dann aufgrund dieser Änderung auch TabSheet5 angezeigt, und nicht TabSheet1.

Wenn man am Ende des Eventhandler eingibt

Delphi-Quellcode:

PageControl1.ActivePageIndex := 0;

kehrt er zwar zu TabSheet1 zurück, aber ein unschönes Flimmern ist noch zu sehen (da der Sprung dorthin ja stattfand, nur sofort Rückkehr).

Wie kann man einstellen, dass die Änderung des Inhalts von TabSheet5 vollkommen im Hintergrun verläuft, und wir bei TabSheet1 stehenbleiben? TabSheet5 nur dann sehen, wenn wir draufklicken?

[mkinzler]

Wie greifst du auf die Elemente des anderen Tabsheets zu?

[triangulum]

Jedes TabSheet enthält einen Frame. Alle Elemente sind in dem jeweiligen Frame zusammengefasst.

Die Frames sind in getrennten Dateien gespeichert. Anfangs werden sie den jew. TabSheets zugewiesen

Delphi-Quellcode:

Application.CreateForm(TSigmaPFrame, SigmaPFrame);
SigmaPFrame.Parent := TabSheet4;
CreatedFrames[3] := true;

später können sich jedoch Komponenten der Frames dynamisch ändern (direkt durch Programmcode).

Dann will ich nicht, dass er, wenn ich auf TabSheet1 bin und Komponenten im TabSheet5 sich ändern, automatisch im PageControl das TabSheet5 auswählt. Er soll die Änderung im Hintergrund ausführen und mich auf TabSheet1 lassen.

[mkinzler]

Nein ich meine im Eventhandler.

[triangulum]

Delphi-Quellcode:

Procedure TCalculationFrame.CalcButtonAltClick(Sender: TObject);
begin

<bla bla>

  HauptF.ShowFrame5(self);
  HauptF.PageControl1.ActivePageIndex := 0
end;

CalculationFrame "klebt" auf TabSheet1, Frame5 auf TabSheet5.

Der CalcButton befindet sich auf CalculationFrame. Die Änderung durch ShowFrame5 betrifft dann Frame5.

Delphi-Quellcode:

Procedure THauptF.ShowFrame5(Sender: TObject);
Begin
 Frame5.FormCreate(Sender);
 StatusHistory;
 Frame5.Show;
End;

[Jürgen Thomas]

Ich kann nicht wirklich helfen; aber vielleicht habe ich eine passende Idee, sodass ein Fachmann die Suche an der richtigen Stelle startet:

Bei Datenbank-Controls gibt es DisableControls/EnableControls, damit genau so ein Flackern verhindert wird.

Unter NET gibt es für alle WinControls die Methoden SuspendLayout/ResumeLayout.

Ich dachte, dass mit Invalidate dies ebenfalls erreicht werden könnte. Aber das ist wohl zu einfach gedacht.

Vielleicht bringen Euch diese Gedanken weiter. Jürgen

[Hawkeye219]

Hallo triangulum,

bei zur Laufzeit erstellten Komponenten ist der Aufruf der Methode Show in der Regel überflüssig. Vielleicht hilft es auch hier, auf diesen Aufruf zu verzichten.

Gruß Hawkeye

[raiguen]

Zitat:

Zitat von Hawkeye219

...
bei zur Laufzeit erstellten Komponenten ist der Aufruf der Methode Show in der Regel überflüssig. Vielleicht hilft es auch hier, auf diesen Aufruf zu verzichten...

Genau das ist der 'Knackpunkt' ;-)

Zitat:

Zitat von triangulum

Delphi-Quellcode:

Procedure TCalculationFrame.CalcButtonAltClick(Sender: TObject);
begin
<bla bla>
  HauptF.ShowFrame5(self);  //aufruf zur Erstellung des Frames IST OKAY
  HauptF.PageControl1.ActivePageIndex := 0
end;

CalculationFrame "klebt" auf TabSheet1, Frame5 auf TabSheet5.

Der CalcButton befindet sich auf CalculationFrame. Die Änderung durch ShowFrame5 betrifft dann Frame5.

Delphi-Quellcode:

Procedure THauptF.ShowFrame5(Sender: TObject);
Begin
 Frame5.FormCreate(Sender);
 StatusHistory;
 Frame5.Show; //<<---- DAS bringt dir sofort den Tab5 in Vordergrund!! 
End;

Schmeiß die Zeile Frame5.Show raus und schon wird im Stillen bzw Hintergrund der Frame erstellt ;-)

[triangulum]

jou dank an alle, es war tatsächlich Show ... :wink: