Как вставить изображение в чужую форму.

← →
ROOT © (2006-09-25 08:59) [0]

Господа есть проблема мне необходимо вставить изображение в чужую форму например в компанент Timage

← →
Сергей М. © (2006-09-25 09:11) [1]

Не получится.
TImage не имеет собственного окна.

← →
@!!ex © (2006-09-25 09:16) [2]

var
Dc:HDC;
begin
DC:=GetDC(Handle);
BitBlt(DC,x,y,width,height,SRCImageDC,0,0,SRCCOPY);
end;

Где handle - Хэндл окна на котором нужно рисовать.
x,y,width,height - позиция изображения.
SRCImageDC - Девайс Контекст рисунка который нужно нарисовать.
Все.

← →
Сергей М. © (2006-09-25 09:26) [3]

> @!!ex © (25.09.06 09:16) [2]

> handle - Хэндл окна на котором нужно рисовать.

У TImage нет окна.

← →
@!!ex © (2006-09-25 09:28) [4]

Сергей М. © (25.09.06 09:26) [3]
Так я ни слова не говорил о TImage. :))
ПРивел пример как рисовать на окнах и все. :))
Вдруг поможет.
Тем более что из вопроса все равно не ясно, какого результата надо добится.

← →
root © (2006-09-25 09:29) [5]

а как передать компаненнту TImage чужого окна TBitmap cо своего окна

← →
root © (2006-09-25 09:31) [6]

точнее зная hwnd компанента чужого окна, как передать ему TBitmap

← →
@!!ex © (2006-09-25 09:33) [7]

Не буду говорить что это не возможно.
Но если и возможно, скорее всего делается через .....

← →
root © (2006-09-25 09:35) [8]

что? и как??

← →
Сергей М. © (2006-09-25 09:38) [9]

> root © (25.09.06 09:29) [5]

> TImage чужого окна
> TBitmap cо своего окна

У окна нет ни TImage ни TBitmap

← →
root © (2006-09-26 12:14) [10]

h := FindWindow(nil,"Форма");
if h <> 0 then
h1:=FindWindowEx(h,0,"TPanel",nil);
if h1<>0 then
begin
bit:=TBitmap.Create;
bit:=Image1.Picture.Bitmap;
DC:=GetDC(h1);
BitBlt(DC,0,1,bit.Width,bit.Height,bit.Handle,0,0,SRCCOPY);
end;

Форму и панель на форме находит а прорисовывать нехочет почему???

← →
Сергей М. © (2006-09-26 12:32) [11]

Потому что оконная ф-ция окна h1 чихала на твои "прорисовки" - она сама этим занимается, по своему собственному алгоритму, и сама решает что и в какой момент рисовать или не рисовать на DC своего окна.

← →
root © (2006-09-26 12:54) [12]

т.е. невозможно прорисовать через функцию h1 окна?
если возможно как это реализовать?

> т.е. невозможно прорисовать через функцию h1 окна?

Кака раз "через нее" и следует рисовать.

> как это реализовать?

Внедрить во вражеское ВАП код своей оконной ф-ции для данного окна.

ВАП???
дай наброски как это делается?

Hook?

непонятно вот код
DC:=GetDC(0);
Ellipse(DC, 0, 0, 200, 200);
выводит элипс на рабочем столе
а вот этот код
DC:=GetDC(0);
BitBlt(DC,0,1,bit.Width,bit.Height,bit.Handle,0,0,SRCCOPY);
невыводит изображение bit.handle
почему???

Может потому что ему DC нужен?? :))
А не хэгдл битмапа? :))
bit.Canvas.handle ??
Хотя не факт что будет работать...

Вернее работать то будет... если все правильно напишеш....

Как вставить изображение в чужую форму. Найти похожие ветки