Assistent-Probleme

[WM_CLOSE]

OK: ich glaube ich habe dich falsch verstanden. Du hast also 2 Exen?
Dann Rate ich dir mal nach "Programm starten und auf beenden warten" zu suchen.

Ich dachte, du hättest 2 Formulare in einer Anwendung, sorry.

Oder soll der Assistent das Hauptprogramm starten? Dann schau dir ShellExecute oder CreateProcess an

[Dunkelbunt27]

Danke, ich suche, kein Problem =D

EDIT1:
Ich habe nun doch nur 1ne Exe, kann also dienen Vorschlag probieren,..... Zum Glück, das andere klang etwas komplizierter...

[WM_CLOSE]

[ot]
Das mit dem Bearbeiten hat offensichtlich keinen Sinn
[/ot]

Zitat:

Assistent:=TAssistent.Create(Application); // muss ich Application ersetzen?
try
TAssistent.ShowModal;
finally
TAssistent.Free;
end;

Du solltest

TAssistent.ShowModal; durch Assistent.ShowModal ersetzen, denn du willst ja die Instanz (Assistent)und nicht die Klasse (TAssistent)

[Dunkelbunt27]

Okay, momentan sieht es so aus:

Projekt-Quelltext

Delphi-Quellcode:

  Application.Initialize;
  Application.MainFormOnTaskbar := True;

  Assistent:=TAssistent.Create(Application); 
  try
  Assistent.ShowModal;
  finally
  Assistent.Free;
  end;

  Application.CreateForm(TAssistent, Assistent);
  Application.CreateForm(THauptprogramm, Hauptprogramm);
  Application.Run;

Fortsetzen Button

Delphi-Quellcode:

 self.ModalResult:=mrOk;
  self.Close;

Abbrechen-Button
ModalResult:=mrCancel Es startet ohne Fehler, aber wnen ich auf Fortsetzen klicke, dann schließt sich der Assistent und öffnet sich erneut...
wie kann ich statt 2x dem Assistenten das Hauptprogramm starten?

[himitsu]

Zitat von Dunkelbunt27:

aber wnen ich auf Fortsetzen klicke, dann schließt sich der Assistent und öffnet sich erneut...
wie kann ich statt 2x dem Assistenten das Hauptprogramm starten?

Zitat:

Application.CreateForm(TAssistent, Assistent);

Du startest den Zweiten doch selber. Also beschwer dich blos nicht darüber.

[Dunkelbunt27]

Ihr seid genial!


für alle dies interessiert:

Delphi-Quellcode:

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Assistent:=TAssistent.Create(Application);
  try
  Assistent.ShowModal;
  finally
  Assistent.Free;
  end;
  //Application.CreateForm(TAssistent, Assistent);
  Application.CreateForm(TSchreibmaschine, Schreibmaschine);
  Application.Run;

Danke!

Edit:
Bei der Gelegenheit würde ich gerne noch verstehen, was ich eigentlich mache:

Es wird also nach dem Initalisieren der Assistent manuel gestartet und dann mit ShowModal gesendet, wenn er geschlossen wird, oder?
Löst deshalb Application.CreateForm(THauptprogramm, Hauptprogramm); erst nach dem Weiterklicken aus?
Das:

Delphi-Quellcode:

  self.ModalResult:= mrOk;
  self.Close;

bewirkt was?
ModalResult:=mrCancel; und was das?

Wäre nett wenn jemand das kurz erläutern könnte =D Danke

[DeddyH]

Die Hilfe kann das ja wohl am Besten: http://docwiki.embarcadero.com/VCL/d...Form.ShowModal. Da siehst Du auch, dass das Close nach der Zuweisung von mrCancel nichts bringt, da das Formular sowieso geschlossen wird.