Einzelnen Beitrag anzeigen

hoika
Online

Registriert seit: 5. Jul 2006
Ort: Magdeburg
6.683 Beiträge
 
Delphi XE4 Professional
 
#3

AW: Parameterrückgabe von Form an aufrufenden Prozess

  Alt 8. Mär 2019, 18:13
Hallo,
das SuchForm über eine lokale Variable erzeugen, starten, warten und fertig.

Delphi-Quellcode:
unit2

type
  TSuchForm = class(TForm)
    public
      ItemNr: Integer;
  end;


unit1

procedure TForm1.Suche;
var
  Frm: TSuchForm;
  ItemNr: Integer;
begin
  ItemNr:= 0;

  Frm:= TSuchForm.Create(Self);
  try
    if Frm.ShowModal=mrOK then
    begin
      ItemNr:= Frm.ItemNr;
    end;
  finally
    Frm.Free;
  end;

  if ItemNr=0 then
  begin
    Exit;
  end;

end;
Heiko
  Mit Zitat antworten Zitat