Modales Fenster wird nicht angezeigt

[Bernd Wurm]

Hallo,

ich lasse einen Prozess in einem modalen Fenster laufen, der durch das Ereignis onshow sofort gestartet werden soll. Welcher Prozess gestartet werden sollen, lege ich vor dem showmodal in einer Variablen fest. Wenn ich nun showmodal aufrufe, wird zwar der Prozesse ordnungsgemäß ausgeführt aber das Formular wird nicht angezeigt. Ich konnte das Problem nur mit einen Timer lösen und den Start des Prozesses über diese Komponente ausführen.

<PRE>
1. Variante: Formular wurde nicht gezeichnet

procedure TForm1.FormShow(Sender: TObject);
begin
if donloadart=dBestellungen then
begin
ProcedureAufruf;
end;
end;

2. Variante: Formular wurde gezeichnet

procedure TForm1.FormShow(Sender: TObject);
begin
if donloadart=dBestellungen then
begin
Timer1.Enabled:=True;
exit;
end;
end;
</PRE>

Gibt es hier nicht eine eleganter Lösung?

Gruß Bernd

[Bernd Schulz]

Hallo!<br>
Versuch mal ein Application.processmessages VOR deinem Procedure Aufruf.<br>
BYE BERN

[Sigbert Engelhardt]

<PRE>
procedure TForm1.FormShow(Sender: TObject);
begin
Postmessage(WM_ProcedureAufruf,0,0);
end;
</PRE&gt

[Bernd Wurm]

Hallo,

danke Für die Antworten. Application.processmessages hatte ich auch schon versucht. Mit dem Postmessage(Handle,WM_ProcedureAufruf,0,0) hat es dann funktioniert