Fremde Anwendung modal starten, Neuzeichnen des eigenen Formulars

[ernschd]

Ok, danke, ich habe es so gelöst:

Delphi-Quellcode:

while WaitForSingleObject(info.hProcess, 50) = Wait_Object_0 do
    Application.ProcessMessages;

Edit
Die Lösung hat nur den kleinen Nachteil, dass die fremde Anwendung nicht mehr modal ist. Ich kann also munter in meinem Hauptformular rumklicken...

[Sir Rufo]

Wie schaltet man die eigene Anwendung in so einen modalen Zustand?

In dem man eine Form modal anzeigt?

[himitsu]

In einem "modalen" Fenster kann man auch rumklicken, wenn die Anwendung richtig läuft.


PS: vorher z.B. Enabled der Form auf False setzen
(oder den/die Button)

[Sir Rufo]

Zitat von himitsu:

In einem "modalen" Fenster kann man auch rumklicken, wenn die Anwendung richtig läuft.


PS: vorher z.B. Enabled der Form auf False setzen
(oder den/die Button)

Natürlich kann man da rumklicken ... und es passiert dort nur das, was ich auch zulasse ... ist ja mein Formular, da kann ich mit machen was ich will ...

[himitsu]

Wollte nur sagen:

Modal bezieht sich nicht auf das Fenster selber, sondern auf andere Fenster der Anwendung ... bin ich "modal", dann sind vorherrige Fenster "Disabled".

[ernschd]

Genau, ich meine damit, dass die fremde Anwendung ganz normal bedienbar sein soll, mein Hauptformular aber so lange nicht, bis die fremde Anwendung wieder beendet wird.
So wie das Verhalten von ShowModal beim Anzeigen eines Formulars (die Hintergrundanwendung ist nicht anklickbar).

[Sir Rufo]

Und was hindert dich jetzt daran ein Formular mit ShowModal aufzurufen, das so lange angezeigt wird, wie die externe Anwendung läuft?

[ernschd]

Ich glaube, wir reden aneinander vorbei:

meine Anwendung (z.B. myApp) soll eine andere Anwendung starten (z.B. secApp). Dabei soll secApp im Vordergrund geöffnet werden, und myApp sichtbar bleiben, aber nicht bedienbar sein, so lange secApp läuft.

Das habe ich mittlerweile auch hinbekommen.

[Sir Rufo]

Wir reden nicht aneinander vorbei, du verstehst mich nur nicht

Stell dir vor, du hast eine TStarteExterneAnwendungForm und die verwendest du wie folgt:

Delphi-Quellcode:

procedure DoRun( const CmdLine, Parameters : string );
var
  LDialog: TStarteExterneAnwendungForm;
begin
  LDialog := TStarteExterneAnwendungForm.Create( nil );
  try
    LDialog.CmdLine := CmdLine;
    LDialog.Parameters := Parameters;
    LDialog.ShowModal;
  finally
    LDialog.Free;
  end;
end;

und diese Form startet jetzt diese externe Anwendung ... und schliesst sich automatisch, wenn die externe Anwendnung beendet wurde.

Wird es jetzt klarer?