Jak oprogramować onChange?

0

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

1

Edit2.Text:=(Sender as TEdit).Text;

1 użytkowników online, w tym zalogowanych: 0, gości: 1