Как поместить TCheckBox внутри TRichEdit?
Falk0ner, вс, 06/07/2008 - 15:34.
Для использования следующего примера, необходимо создать новую форму, перетащить на неё TRichEdit (RichEdit1) и создать checkbox (acb) в событии FormCreate().
procedure TForm1.FormCreate(Sender: TObject);
{©Drkb v.3(2007): www.drkb.ru}
var
Acb: TCheckBox;
begin
RichEdit1.Left := 20;
Acb := TCheckBox.Create(RichEdit1);
Acb.Left := 30;
Acb. := 30;
Acb.Caption := 'my checkbox';
Acb.Parent := RichEdit1;
end;
{©Drkb v.3(2007): www.drkb.ru}
var
Acb: TCheckBox;
begin
RichEdit1.Left := 20;
Acb := TCheckBox.Create(RichEdit1);
Acb.Left := 30;
Acb. := 30;
Acb.Caption := 'my checkbox';
Acb.Parent := RichEdit1;
end;
Взято из http://forum.sources.ru
Отправить комментарий