Send data til ny form
Hvordan sender jeg data til en form jeg viser med ShowModal()?Jeg opretter en form som indeholder nogle indtastningsfelter. De skal indeholde en standardværdi som kommer fra Parent framen.
Her er hvad jeg gør:
Procedure MyForm.EditButton(Sender: TObject);
begin
if (RemoteEdit.ShowModal = mrOK) then
begin
Caption := RemoteEdit.Edit1.Text;
LabelCaption := RemoteEdit.Edit2.Text;
Size := RemoteEdit.Edit3.Text;
end;
end;
Felterne Edit1 - 3 skal altså sættes med en bestemt værdi når formen vises. Det skal være variable værdier, så de kan ikke bare kodes ind med object inspectoren.
