Это может быть сделано путем добавления OnDrawBackground событие к компоненту, например, так:
procedure TForm3.SpTBXTabControl1DrawBackground(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; const PaintStage: TSpTBXPaintStage;
var PaintDefault: Boolean);
begin
if (PaintStage = pstPrePaint) then
begin
PaintDefault := False;
end;
end;
Вам также необходимо добавить SpTbxSkins формам интерфейс использует.
Это даст вам следующий вид:
Я хотел бы предложить, что, хотя вы удалить границу из-под контроля ТМето вместо границы вкладки, поскольку это обеспечит лучшее «Смотри и Feel» к тому, что вы пытаетесь сделать.
Хорошо, только я вижу белую рамку сейчас. http://shot.qip.ru/008s9h-3QODkgRBy/. Могу ли я увеличить заметку немного по x/y? – Prog1020
Добавлен 'CurrentSkin.PaintBackground (ACanvas, ARect, skncDock, sknsNormal, true, false);', лучше. – Prog1020
@Alextp - Рад, что вы получили отсортированную белую границу – Tim