Jak przepisać z Edit1, który jest tworzony podczas programu i przepisać do Edit2 ?
procedure TForm1.Button1Click(Sender: TObject);
begin
with TEdit.Create( Form1 ) do
begin
Parent := Form1;
Left := 50;
Top := 60;
Text := 'hello, world';
Name := 'Edit1';
OnChange := zmianaEdycji;
Visible := True;
end;
end;
procedure TForm1.zmianaEdycji(Sender: TObject);
var combo : TComboBox;
begin
Edit2.Text:=Edit1.Text; - co tu wpisać aby było poprawnie
end;
Dziękuje, pozdrawiam