Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Aktion ausführen nachdem Frame sichtbar wurde (https://www.delphipraxis.net/104718-aktion-ausfuehren-nachdem-frame-sichtbar-wurde.html)

guidok 10. Dez 2007 09:29


Aktion ausführen nachdem Frame sichtbar wurde
 
Hmmmm, ich bin grad etwas verwirrt, weil das was eben noch funktionierte, nun nicht mehr klappt.

Folgendes Problem:

Ich habe einen Frame, auf welchem eine Importroutine durchgeführt und visualisiert wird.

Diesen Frame rufe ich in einer Aktion aus dem Hauptformular auf. Das wird hier so gemacht, weil es zwei Arten von Frames gibt, einmal die, die sofort erzeugt werden und im Speicher verbleiben und zu anderen die, die bei Bedarf erzeugt und wieder freigegeben werden.

Delphi-Quellcode:
procedure TdmGlobal.acImportExecute(Sender: TObject);
begin
  if AlwaysCreatedFrame <> nil then AlwaysCreatedFrame.Parent := nil;
  FreeAndNil(TemporaryFrame);
  AlwaysCreatedFrame := fImport;
  with AlwaysCreatedFrame as TfImport do
  begin
   Parent := MainParent;
   Application.ProcessMessages; //<== Das hatte eigentlich mal funktioniert
   ImportDBF;
  end;
end;
Mein Problem ist nun, dass ich dem Frame den Parent zuweise, die Routine ImportDBF startet und der Frame noch nicht angezeigt wird. Bisher hatte das mit dem Application.ProcessMessages irgendwie funktioniert, jetzt aber nicht mehr. Was nu? Wie geht es besser?

iKilledKenny 10. Dez 2007 09:34

Re: Aktion ausführen nachdem Frame sichtbar wurde
 
Ich verwende für solche Aufgaben immer eine TPaintBox, die irgendwo auf dem Frame plaziert ist. In deren OnPaint Event erledige ich dann die Aufgaben.

guidok 10. Dez 2007 10:38

Re: Aktion ausführen nachdem Frame sichtbar wurde
 
Ich bin wohl etwas vernagelt gewesen. Statt Application.ProcessMessages muss ich Update nehmen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:00 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz