Das Zeichnen des Formulars muss syncronisiert werden.
Ich nutze dazu in meinem Framework jetzt einen Thread. Das funktioniert in den ersten Tests perfekt.
Das Formular muss keineswegs synchronisiert werden. Allerdings scheint es so, dass zum Zeitpunkt der Events noch nicht alles fertig berechnet ist oder Events verschluckt werden (warum auch immer, ist halt komisch).
Das das mit dem Thread funktioniert hat eine andere Ursache
TThread.Synchronize wartet bis der MainThread im Idle Zustand ist. In den Idle Zustand geht der MainThread dann, wenn es für den nichts mehr zu tun gibt ... ausser auf Events/Messages zu warten. Erreichen kann man das auch mit einem Timer (der Thread ist da schon besser, aber mir geht es darum zu zeigen, dass es nichts mit Synchronisieren zu schaffen hat).
Hier mal eine ganz billige Demo mit einem
TStringGrid
(
Align:=alClient
) und im
OnResize
Event lassen wir uns die
ClientWidth
ausgeben. (Das Panel ist nur als Container für die beiden Labels gedacht).
Dabei sieht man, dass der Wert beim EventAufruf dem endgültigen Wert (TimerEvent) hinterher hinkt.
Delphi-Quellcode:
unit Main_ViewU;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Grid,
FMX.Layouts, FMX.ListBox;
type
TForm1 =
class( TForm )
StringGrid1 : TStringGrid;
Panel1 : TPanel;
Label1 : TLabel;
Label2 : TLabel;
Timer1 : TTimer;
procedure StringGrid1Resize( Sender : TObject );
procedure Timer1Timer( Sender : TObject );
private
public
end;
var
Form1 : TForm1;
implementation
{$R *.fmx}
procedure TForm1.StringGrid1Resize( Sender : TObject );
begin
Timer1.Enabled := False;
Label1.Data := StringGrid1.ClientWidth;
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer( Sender : TObject );
begin
Timer1.Enabled := False;
Label2.Data := StringGrid1.ClientWidth;
end;
end.
Trotz dieser Erkenntnis ist dieses Verhalten in meinen Augen fehlerhaft ... evtl. sollte ich mal einen
QC Eintrag verfassen (oder vorher danach suchen
)