[lmikle]

Возник такой вопрос.
Хочется сделать, что бы TEdit, лежащий на TTabSheet, был прозрачный, т.е. имел тот же цвет фона, что и TTabSheet, на котором он лежит. Причем хочется сделать это с обычным TEdit.

Собственно, проблема в том, что при вкл. темах цвет TTabSheet'а другой, нежели в момент разработки или при выключенных темах.

Delphi 7.

Собственно, пока ничего лучшего, чем запрос цвета у менеджера тем, я не нашел, но что-то меня в этом решении смущает. Например, если программу запускают на Win2000, то там просто нужной Dll не будет.

Есть у кого еще идеи (кроме использования сторонних компонент)?

[YVitaliy]

А ParentColor TEdita не помогает? (Нет возможности изменить цветовую схему чтобы проверить).

[lmikle]

Нет, не помогает, т.к. в режиме разработки и отображения он разный (ParentColor просто выставляет св-во Color у компонента).

Собственно, идея заключается в том, что бы настроить TEdit так, как будтро бы это TLabel, но есть возможность 1) прокрутить текст, что бы увидеть его весь и 2) выделить кусок/весь и скопировать в буффер обмена. Сейчас сделал обычным контролом, но смотрится "не айс".

[angvelem]

Мне похожую задачу пришлось решать для TrackBar-а. Использовал CreateParams контрола.
Можно ещё испробовать Edit1.RecreateWnd в OnActivate формы, тогда контрол видит готовые цвета.

[lmikle]

Угумс, попробую.
А не подскажешь, как использовать CreateParams при статически создаваемых контролах? Что-то то ли я торможу, то ли чего не знаю...

[angvelem]

Для TrackBar-а

Код:

  TTrackBar = class(ComCtrls.TTrackBar)
    procedure CreateParams(var Params: TCreateParams); override;
  end;
...
procedure TTrackBar.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  // код
end;

Для Edit-а аналогично.

P.S. Форум затормозил и прошло 2 сообщения.

[lmikle]

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

P.S. Форум затормозил и прошло 2 сообщения.

Это поправил.

Понятно. Это создание своего компонента. Хотелось обойтись без этого, только стандартным TEdit. Ладно, у меня все-равно используется devEx, посмотрю, может там уже готовое есть...