Zitat von
Bigeddie:
Der integer soll eine Bauteilnummer enthalten und das Fenster ist modal
Na dann ist die Sache ganz einfach:
Das Formular bekommt ein
Property BauteilNr.
Delphi-Quellcode:
property BauteilNr:integer read GetBauteilNr write SetBauteilNr;
....
procedure TBauteilForm.SetBauteilNr(Value:integer);
begin
EditBauteil.Text := IntTostr(Value);
end;
function TBauteilForm.GetBauteilNr:integer;
begin
result := StrToInt(EditBauteil.Text);
end;
Der Aufruf sieht dann so aus:
Delphi-Quellcode:
var
frm : TBauteilForm;
begin
frm := TBauteilForm.Create(nil);
try
frm.BauteilNr := XXXX;
if frm.ShowModal = mrOK then
XXXX := frm.BauteilNr;
finally
frm.Free;
end;
end;
XXXX ist deine Variable in dem aufrufenden Formular.