~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.FormCreate(Sender: TObject) ;
var
Acb: TCheckBox;
begin
RichEdit1.Left := 20;
Acb := TCheckBox.Create(RichEdit1) ;
Acb.Left := 30;
Acb.Top := 30;
Acb.Caption := 'my checkbox';
Acb.Parent := RichEdit1;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» How to comment out large amount of source code
« How to translate a virtual-key to ASCII code

