TModalResult

[Maik81SE]

Moin zusammen,

Ich spiele Gerade mal wieder mit dem https://wiki.lazarus.freepascal.org/TTaskDialog

Nach diesem Bsp will ich mir einen Dialog aufbauen.
Soweit auch alles IO, aber aus einem mir unerklärlichen Grund wird das ModulResult entweder nicht gesetzt oder übergeben.

Hier die Procedure, welche ich entsprechend aufgebaut habe.

Code: Alles auswählen

procedure tform1.vergangen_itemclick(sender :tobject);
var
  a                                         : Byte;
begin
  For a := 0 to 9 do begin
    if (FileExists(Set_FileName(Tages_Ausloese.PConst.fExt + PathDelim +
                         	Tages_Ausloese.fYear.Benutzer + PathDelim +
                                IntToStr(Tages_Ausloese.fYear.Yaer),
                                Tages_Ausloese.PConst.fProg, false, false))) then begin
      with Jahr_DLG do begin
        with TTaskDialogButtonItem(Buttons.add) do begin
          Caption            := IntToStr(Tages_Ausloese.FYear.Yaer);
          ModalResult        := Tages_Ausloese.fYear.Yaer;		<--- Setzt ModalResult mit entsprechendem Jahr.
          end;
        end;
      dec(Tages_Ausloese.FYear.Yaer);
      end;
    end;
  if Jahr_DLG.Execute then begin
    Caption := IntToStr(ModalResult);
    if ModalResult = 2022 then begin
      Day.ItemUser                               := Tages_Ausloese.fBenutzer.Name + ' ' + Tages_Ausloese.fBenutzer.Lastname;
      StatusBar1.Panels.Items[0].Width           := StatusBar1.Canvas.TextWidth(Tages_Ausloese.PConst.fFilename)+20;
      StatusBar1.Panels.Items[0].Text            := Tages_Ausloese.PConst.fFilename;
      Caption                                    := Prog_Caption + IntToStr(ModalResult);
//      Caption                                    := Prog_Caption + IntToStr(Tages_Ausloese.fYear.Yaer) + '. Benutzer: ' + Day.ItemUser;
      ReloadItem.Click;
      end;
  end;
end;

im Gegensatz zu dem Beispiel, habe ich das TTaskDialog auf dem Formular fest definiert.

Da ModalResult ja laut Definition Werte von low(Integer) bis high(Integer) enthalten kann, sollte es ja nominell problemlos möglich sein, Werte größer 2020 zu verwenden.

[Zvoni]

1) Bist du dir sicher, dass es YAER heisst?
2)

Dialog is shown with the Execute() method, and if this returns True, property ModalResult has ModalResult of the pressed button:

ModalResult of standard button (mrOK, mrCancel, mrYes etc)

Wieso setzt du Modalresult auf einen EIGENEN Integer?!?!?!?!?
Vor allem, wenn dieser dann "überschrieben" werden kann

Benutz ne eigene Form-Variable und gut ist

[Maik81SE]

Wieso setzt du Modalresult auf einen EIGENEN Integer?!?!?!?!?
Vor allem, wenn dieser dann "überschrieben" werden kann

Da dies die Dateinamen meiner Anwendung sind

Benutz ne eigene Form-Variable und gut ist

Dafür steht mein Type TAusloese

[Mathias]

Ich spiele Gerade mal wieder mit dem https://wiki.lazarus.freepascal.org/TTaskDialog

Toter Link.

Nachtrag, im Zitat geht er, aber im ersten Post nicht.
Wieso auch immer.

[Michl]

Soweit auch alles IO, aber aus einem mir unerklärlichen Grund wird das ModulResult entweder nicht gesetzt oder übergeben.

Du greifst auf zwei verschiedene Modalresults zurück.

Hier setzt du TTaskDialogButtonItem(Buttons.add).ModalResult:

Code: Alles auswählen

      with Jahr_DLG do begin
        with TTaskDialogButtonItem(Buttons.add) do begin
          Caption            := IntToStr(Tages_Ausloese.FYear.Yaer);
          ModalResult        := Tages_Ausloese.fYear.Yaer;		<--- Setzt ModalResult mit entsprechendem Jahr.
          end;

Hier fragst du tform1.ModalResult ab:

Code: Alles auswählen

  if Jahr_DLG.Execute then begin
    Caption := IntToStr(ModalResult);
    if ModalResult = 2022 then begin

Aus genau diesem Grund ist es besser, with nicht zu nutzen und den Bezeichner immer komplett zu schreiben.

[Maik81SE]

Moin @ll.

Hab das die Tage auf einer anderen Art elegant gelöst.
Habe mir dabei auch mal den Aufwand für die kommenden 20 Arbeitsjahre gemacht und für mich entschieden, das ich nur auf <> 0 abfrage.

Ergebnis.
Jahr_DLG komplett raus und alles nur in dem Ereignis verwendet.
Leider brauchte ich am Ende auch noch eine globale Variablen, da der TTaskDialog am Ende des Ereignisses entsorgt wird.

EDIT: 18:17
Hier hab ich mal die entsprechende Procudre.

Code: Alles auswählen

procedure tform1.vergangen_itemclick(sender :tobject);
var
  a                                         : Byte;
begin
  with TTaskDialog.Create(self) do try
    MainIcon                                := tdiInformation;
    CommonButtons                           := [tcbCancel];
    For a := 0 to 9 do begin
      if (FileExists({$ifdef Windows}
                     Tages_Ausloese.PConst.fExt + PathDelim + Tages_Ausloese.fYear.Benutzer + PathDelim + IntToStr(Tages_Ausloese.fYear.Yaer)
                     {$else ifdef}
                     Set_FileName(Tages_Ausloese.PConst.fExt + PathDelim +
                                  Tages_Ausloese.fYear.Benutzer + PathDelim +
                                  IntToStr(Tages_Ausloese.fYear.Yaer),
                                  Tages_Ausloese.PConst.fProg, false, false){$endif})) then begin
        with TTaskDialogButtonItem(Buttons.add) do begin
          Caption            := IntToStr(Tages_Ausloese.FYear.Yaer);
          ModalResult        := Tages_Ausloese.fYear.Yaer;
          end;
        dec(Tages_Ausloese.FYear.Yaer);
        end;
      end;
    if Execute then begin
      Current_Jahr                               := ModalResult;
      if ModalResult <> mrCancel then begin
        ReloadItem.Click;
        end;
      end;
  finally
    Free;
  end;
end;

Sicher werdet Ihr euch jetzt Fragen, warum ich hier mit der Current_Jahr arbeite.
dies ist dem geschuldet, da ich in dem ReloadItem meine Klassen einmal in die Ablage P werfe und neu aufbaue.