Как поместить TCheckBox в TRichEdit

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как поместить TCheckBox в TRichEdit

Для использования следующего примера, необходимо создать новую форму, перетащить на неё TRichEdit (RichEdit1) и создать checkbox (acb) в событии FormCreate().

procedure TForm1.FormCreate(Sender: TObject);
var
  Acb: TCheckBox;
begin
  RichEdit1.Left := 20;

  Acb := TCheckBox.Create(RichEdit1);
  Acb.Left := 30;
  Acb.Top := 30;
  Acb.Caption := 'Delphi World is COOL !!!';
  Acb.Parent := RichEdit1;
end;