Jak podczas działania programu stworzyć komponent TMemo ?
Procedure TForm1.ButtonClick(Sender: TObject);
var
Memo1 : TMemo;
Begin
Memo1 := TMemo.Create(Self);
Memo1.Parent := self;
Memo1.Top := 50;
Memo1.Left := 50;
Memo1.Caption := 'To jest komponent TMemo stworzony dynamicznie';
end;
var
Memo1 : TMemo;
Begin
Memo1 := TMemo.Create(Self);
Memo1.Parent := self;
Memo1.Top := 50;
Memo1.Left := 50;
Memo1.Caption := 'To jest komponent TMemo stworzony dynamicznie';
end;
Materiał dodany przez użytkownika: alphan