Hallo,
na du kannst zb. eine class function in deiner Edit-Form definieren mit
Angabe des IR_Rahmen als Parameter oder ensprechend einzeln wenn gewünscht.
Als Rückgabewert gibst du einen Boolean zurück (True=ok und übernehmen, False=Werte verwerfen)
Damit es funktioniert sollte der Record in der Edit-Form bekannt sein. Wenn du das nicht
möchtest, dann nimmst du eben die Parameter einzeln, wird aber später wenn das Programm
einmal erweitert werden sollte, schnell unübersichtlich.
in der Edit-Form
Delphi-Quellcode:
type
TEditForm = class
[...]
public
class function Execute(var EditParam:IR_Rahmen):Boolean;
end;
[...]
class function TEditForm.Execute(var EditParam:IR_Rahmen):Boolean;
begin
with TEditForm.Create(Application) do begin
<Editname>.Text := EditParam.Name;
<Editgeraeteaddy>.Text := EditParam.geraeteaddy;
[...]
Result := (ShowModal=mrOK);
if Result then begin
EditParam.Name := <Editname>.Text;
EditParam.geraeteaddy := <Editgeraeteaddy>.Text;
[...]
end;
end;
end;
function TEditForm.FormClose...
begin
if (ModalResult=mrOK) then begin
// Hier die Werte prüfen auf plausibiblität
end;
end;
und in der Hauptform wenn die Daten schon im Record stehen
Delphi-Quellcode:
[...]
if TEditForm.Execute(MyRecord) then begin
// Daten übernehmen
end;
[...]