редактор компонентов

[Rik]

Сообщение от devi409

Уважаемые, вот я имею компонент TMyPanel. Можно какнить настроить для него что бы его свойство Caption имело свойство Visible.
Что для этого нужно сделать?

А смысл, ненадо Caption, стерите его. Если так нужно прятать Caption, нужно переписывать компонент или, если позволяет код компонента создать наследника. Не знаю, что там у вас внутри, я бы переписал компонент так:

TMyPanel = class(....)
private
FVisibleCaption: Boolean;
FCaption: TCaption;
protected
procedure SetVisibleCaption(Value: Boolean);
function GetCaption: TCaption;
public
published
property VisibleCaption: Boolean read FVisibleCaption write SetVisibleCaption;
property Caption: TCaption read GetCaption write FCaption;
end;

......................

procedure TMyPanel.SetVisibleCaption(Value: Boolean);
begin
if FVisibleCaption <> Value then
begin
FVisibleCaption := Value;
Invalidate;
end;
end;

function TMyPanel.GetCaption: TCaption;
begin
Result := '';
//Проверяем, можно ли отображать Caption, если нет, вместо Caption вернется пустая строка
if FVisibleCaption then Result := FCaption;
end;

Второй вариант, преписываем функцию отрисовки компонента, там так-же добавляем свойство VisibleCAption.
Первый вариант может оказаться малость вшивеньким... Когда TWriter перед сохранением компонента в поток запросит свойство Caption, при наличии VisibleCaption = False, свойство вернет пустую строку и сохранится пустая строка, хотя реально в самом свойстве Caption есть текст.

[devi409]

спасибо большое. разобрался все сделал.