Imports StdCtrls, Forms
Class MyForm
Inherits TForm
Private Memo As TMemo
Sub New(Owner As TComponent)
Me = MyBase.Create(Owner)
Top = 100
Left = 200
Caption = "MyForm"
Memo = New TMemo(Me)
Memo.Parent = Me
Memo.Width = 100
Memo.Align = "alClient"
End Sub
End Class
Dim F As MyForm = New MyForm(NULL)
F.Show
using StdCtrls, Forms
class MyForm: TForm {
private TMemo Memo;
void MyForm(Owner) {
this = base.Create(Owner);
Top = 100;
Left = 200;
Caption = "MyForm";
Memo = new TMemo(this);
Memo.Parent = this;
Memo.Width = 100;
Memo.Align = "alClient";
}
}
MyForm F = new MyForm(NULL);
F.Show();
program Demo;
uses
StdCtrls, Forms;
type
TMyForm = class(TForm)
private
Memo: TMemo;
public
constructor Create(Owner: TComponent);
end;
constructor TMyForm.Create(Owner: TComponent);
begin
inherited;
Top := 100;
Left := 200;
Caption := 'MyForm';
Memo := TMemo.Create(Self);
Memo.Parent := Self;
Memo.Width := 100;
Memo.Align := 'alClient';
end;
var
F: TMyForm;
begin
F := TMyForm.Create(nil);
F.Show;
end.