Ich habe mir für ein Programm einen Automatismus gebaut welcher alle für das Handbuch benötigten Screenshots selber anfertigt. Mein Problem: Man darf die Screenshots nicht zu früh machen da das Formular dann noch nicht fertig gezeichnet ist. Oder Windows spielt noch seine Einblende-Animation ab und das Fenster ist noch halb durchsichtig, solche Dinge halt.

Was kann man tun? Meine folgende Behelfslösung ist ja das unfeinste was man hätte tun können:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TWinControlHelper.pauseForABit();
const
   loopCount = 50;
var
   loopNo: Integer;
begin
   Repaint();
   for loopNo := 0 to Pred(loopCount) do begin
      TThread.Sleep(10);
      Application.ProcessMessages();
      Application.ProcessMessages();
      Application.ProcessMessages();
   end;
end;

Auf meinem PC sind 20 Durchläufe meist schon zu wenig, aber solche Überlegungen sind ja Quatsch.
Wie macht man es richtig? Gibt es irgendeine schlaue Windows-Botschaft welche das Fenster erhält?

Würde es nicht ausreichen, wenn du dich ans TCustomForm.OnActivate hängst?
Die Aufrufreihenfolge ist ja FormCreate -> FormShow -> FormActivate.
Musst halt mal probieren, ob dein Formular dann schon steht.

Oder im FormActivate einen Timer (10 ms?) anstoßen, im OnTimer Screenshot machen und Timer deaktiveren?

Ich benutze leider schon das OnActivate . Etwas "späteres" kenne ich nicht.

Auf jedes Formular jetzt noch einen Timer zu packen, Events verdrahten und alles ist leider zu viel Aufwand. Bislang bin ich bei jedem Formular im OnActivate nur hingegangen und habe sage nur noch macheScreenshot('Abb. 35') . Und die 10ms sind im Endeffekt dann auch nur geraten.

(Höre mich evtl. undankbar an. Nicht meine Absicht, vielen Dank für die Hilfe!)

Dann schick dir doch in OnActivate einfach eine Windows-Message und mach den Screenshot dort - damit hast Du dann quasi ein OnAfterActivate

Grüße

Zitat von Der schöne Günther:

Auf jedes Formular jetzt noch einen Timer zu packen, Events verdrahten und alles ist leider zu viel Aufwand. Bislang bin ich bei jedem Formular im OnActivate nur hingegangen und habe sage nur noch macheScreenshot('Abb. 35') . Und die 10ms sind im Endeffekt dann auch nur geraten.

Und wenn du es einfach im übergeordneten Formular machst?
Deine ganzen Formulare hast du ja sicherlich nicht von TForm abgeleitet sondern von TGünnisUrsprungAllerDingeForm, oder?

Dann könntest du ganz bequem das machen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TGünnisUrsprungAllerDingeForm.OnTimer(Sender: TObject);
begin
  if Sender is TTimer then
  begin
    TTimer(Sender).Enabled := False;
    ShowMessage('Mache Screenshot!');
// Sender.Free; <- einkommentieren, wenn Owner vom Timer nil anstatt Self ist!
  end;
end;

procedure TGünnisUrsprungAllerDingeForm.FormActivate(Sender: TObject);
var
  LTimer: TTimer;
begin
  LTimer := TTimer.Create(Self);
  LTimer.OnTimer := OnTimer;
  LTimer.Interval := 2000;
  LTimer.Enabled := True;
end;

Oder alternativ das was Lemmy schrieb.

Eine Form ist dann mit rendern fertig, wenn die Anwendung wieder im Idle-Modus ist (wenn wir Animationen jetzt mal aussen vor lassen, das wäre ein völlig anderes Thema).

In TApplicationEvent.OnIdle könnte man dann nach der Action den Screenshot vornehmen.