Einzelnen Beitrag anzeigen

BerleFreund

Registriert seit: 30. Jan 2019
3 Beiträge
 
#1

Problem mit Rückgabewert bei ShowModal

  Alt 17. Mär 2021, 11:51
Hallo zusammen,

ich habe ein kleines Testprogramm für ShowModal geschrieben.
Form1 startet über einen Timer beim Programmstart ein ShowModal.
In Form1 ist nur ein Label welches den Rückgabewert aus ShowModal anzeigen soll.
In Form2 (ShowModal) sind nur die beiden Button "OK" und "Abbrechen". Den beiden
Butten ist beim ModalResult "mrOk" bzw. "mrCancel" zugewiesen. Jeder der beiden
Button beendet Form2.

Egal welchen der beiden Button ich drücke, in Form1 wird immer die gleiche Rückmeldung
ausgegeben.

Hier die beiden Units :

Delphi-Quellcode:
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  gestartet : boolean;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.FormCreate(Sender: TObject);
begin
  gestartet := false;
  Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if gestartet then
    Form1.Timer1.Enabled := false;

  if Form2.ShowModal = mrOK then
    Label1.Caption := 'Hurra ! Es Funktioniert !'
  else
  begin
    Label1.Caption := 'Negative Rückmeldung';
  end;
end;

end.
Delphi-Quellcode:
unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;

    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

uses unit1;

procedure TForm2.FormCreate(Sender: TObject);
begin
  gestartet := true;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.Close;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  Form2.Close;
end;

end.

Wo liegt mein Fehler ? Kann mir jemand einen Hinweis geben ?

Vielen Dank schon mal im Voraus.
BerleFreund
  Mit Zitat antworten Zitat