Я пытаюсь создать TCustomRichEdit с несколькими кнопками скорости над ним. Как я могу выполнить это поведение? Высота компонента должна быть равна кнопкам + RichEdit.
[B][I][U]
+-------+
|A1REdit|
| |
+-------+
В настоящее время у меня есть следующий код:
private
FBoldButton: TSpeedButton;
constructor TA1RichEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FBoldButton := TSpeedButton.Create(Self);
FBoldButton.Parent := Self;
end;
destructor TA1RichEdit.Destroy;
begin
FreeAndNil(FBoldButton);
inherited;
end;
Это рисует кнопку скорости на RichEdit (поскольку RichEdit является родителем), мне нужно, чтобы кнопка была выше RichEdit. RichEdit не рисует себя так, как должен после этого фрагмента кода.
TToolbar
звучит как правильное решение для меня. Но вы не можете использовать richedit в качестве родителя панели инструментов (или кнопок). Вам нужен другой контейнер, например. панель плюс панель инструментов (alTop), а затем расширенное редактирование (alClient). - person David Heffernan   schedule 12.06.2012