Winowed components

[JoanM]

Превед всем!
Подскажите, есть ли какой способ windowed-компоненты сделать nonwindowed или наоборот?
Например, поверх TMemo поместить TImage.
Просто SendToFront не получается.

[Airou]

Тоже мучал этот вопрос, на что мне посоветовали TImage поместить на TPanel.

[JoanM]

А если TImage прозрачный?
Получается, будет видно и серый фон панели

[JoanM]

Как же сделать? Можно изменить компонент TImage на windowed?

Подскажите!

[Airou]

Если найдешь способ, то отпиши мне в личку плз.

[alexBlack]

Не объясните зачем это может понадобиться ?
Ведь Image будет перекрывать Memo. Как же с ним после этого работать ?

В принципе можно и без панели.

Самый простой вариант. Бросаем TMemo, TImage на форму.
Делаем:

   Image1.Transparent := true;
   Image1.Parent := Memo1;
   Image1.align := alClient;

С Transparent = true картинка становится фоном Memo, c false - поверх Memo. Единственная неприятность - картинка стирается при работе с Memo. т.е. этот вариант можно использовать для Memo только для просмотра.

Можно при изменениях Memo переустанавливать владельца Memo

procedure TForm1.Memo1Change(Sender: TObject);
begin
   image1.Parent := nil;
   image1.Parent := Memo1;
end;

но тогда изображение будет дергаться из-за перерисовки.

Можно пойти по другому пути. Создать свой компонент - наследник TWinControl, который будет отображать Image1. Окну можно придать любую форму, в т.ч. и по контуру рисунка. Тогда этот компонент сможет лечь поверх Memo.

[Airou]

Мне лично это нужно было для установки рисунка так чтобы часть рисунка была на Memo1 например, а другая часть на Form1.

[JoanM]

А никто не пробывал поискать компоненты в инете на подобие этого, что описал alexBlack? Если кто знает сцылку, напишите плз!

[alexBlack]

Про компоненты не знаю, не искал, но если надумаете делать сами, почитайте Создание непрямоугольных форм в Delphi.

[JoanM]

Я непрямоугольные формы уже давным-давно умею делать.