Ich brauch eine Mischung zwischen Show und ShowModal

[gsh]

Hi DPler

Also ich hab in meinem projekt ein Hauptfenster und wenn man da jetzt eine aktion ausführt dann will ich das ein zweites kleines Fenster angezeigt wird wo der fortschritt von der Aktion dargestellt wird. Nun hab ich aber das Problem das man wenn ich das Formular mit schow anzeige man zur Hauptform zurück klicken kann und unter umständen fehler verursachen könnte, aber wenn ich es mit ShowModal aufrufe dann wartet er solange bis ich es wieder schliesse und das ist auch sehr ungut.

Also brauch ich einen Mittelweg das der code zwar weiter ausgeführt wird man aber nicht zum Hauptformular zurück klicken kann.

PS: Die ganze Aktion in einen Thread auszulagern wäre sehr komplitziert und aufwändig

[alzaimar]

Geht nicht Hauptformular.Enabled := False?

[Flare]

Reicht es, wenn das 2. Formular StayOnTop ist?

Aber ansonsten wäre ein Thread wirklich die Lösung und so umständlich ist das echt nicht.


Flare

[gsh]

Zitat:

Zitat von alzaimar

Geht nicht Hauptformular.Enabled := False?

stimmt danke. an das enabled hab ich gar nicht getacht
Hab des jetzt so gelöst und des funkt super:

Delphi-Quellcode:

procedure TfrmFortschritt.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frmHaupt.Enabled := true;
end;

procedure TfrmFortschritt.FormShow(Sender: TObject);
begin
  frmHaupt.Enabled := false;
end;

Zitat:

Zitat von Flare

Reicht es, wenn das 2. Formular StayOnTop ist?

Aber ansonsten wäre ein Thread wirklich die Lösung und so umständlich ist das echt nicht.

ne hätte nicht gereicht ... außerdem wäre es für mich nicht eine sehr schöne lösung gewesen
und in meinem Fall ist des ganze in einem Thread bzw. in mehere Threads einzubauen eher schwieriger gewesen

Trotzdem danke :cheers:

[Flare]

Zitat:

Zitat von gsh

ne hätte nicht gereicht ... außerdem wäre es für mich nicht eine sehr schöne lösung gewesen

Hätte ja sein können, dass du wirklich nur ein einfaches Anzeigefenster haben möchtest was immer zu sehen ist...


Flare

[alzaimar]

Zitat:

Zitat von gsh

... außerdem wäre es für mich nicht eine sehr schöne lösung gewesen
und in meinem Fall ist des ganze in einem Thread bzw. in mehere Threads einzubauen eher schwieriger gewesen

DAS glaube ich nicht. :mrgreen: Vor allen Dingen, weil Du ein Anzeigefenster benötigst...

[hoika]

Hallo

Delphi-Quellcode:

function TForm_PEP__Main.LoadData: Boolean;
var
  FrmStatus  : TForm_Status;
  WindowList : Pointer;
begin
  Result:= False;

  try
    FrmStatus:= CreateStatusForm;

    try
     { to make form "semimodal" }
      WindowList:= DisableTaskWindows(frmStatus.Handle);
      try
        // Formular anzeigen
        FrmStatus.Show;

        // Schleifenverarbeitung
        Repeat
         { 6957, "Daten werden geladen"
           6958, "Bitte haben Sie einen Moment Geduld" }
          FrmStatus.iCaption := 6957;
          FrmStatus.iInfo    := 6958;

          // Nachrichtenverarbeitung zulassen
          Application.ProcessMessages;
       // hier passiert das wichtige

          Result:= InternalLoad(FrmStatus);

          break;
        // bis Verarbeitung fertig oder Benutzerabbruch
        until False;
      finally
        // Semi-Modalität aufheben
        EnableTaskWindows(WindowList);
        // Fenster verstecken
        FrmStatus.Hide;
      end;
    finally
      // Fenster wieder freigeben
      FrmStatus.Free;
    end;
  except
  end;
end;  { LoadData }

Heiko

[NaPsTeRforever]

wie genau muss ich das genza verwenden?!

Habe eine procedure die ca. 5-10 sec läuft, in der Zeit würde ich gerne einen wait-screen anzeigen lassen!

Bei der function kommen bei mir Fehler:
Undefinierter Bezeichner: 'CreateStatusForm'
Undefinierter Bezeichner: 'iCaption'
usw

[hoika]

Hallo,

ahhhh, meins !!!


FrmStatus:= CreateStatusForm;

einfach nen
FrmStatus:= TFrmStatus.Create(Self)

oder

FrmStatus:= TFrmStatus.Create(NIL)


TFrmStatusist das "Info"-Form.
Das kann z.B. auch sowas wie nen Progressbar haben ...


iCaption ist ein property

property iCaption: Integer
write SetCaption

SetCaption
Caption:= LoadString(XXX)


das macht es einfacher, eine Info als String-Ressource
im Caption anzuzeigen.
Es kapselt nur das LoadString



Heiko

[NaPsTeRforever]

hmm ich verstehe nur Bahnhof :D

Ich habe eine procedure die einige listviews mit Werten füllt, dauert einige Sekunden!
In der Zeit würde ich gerne ein Ladescreen anzeigen, ist das mit deiner function möglich und wenn ja wie genau :D