procedure TForm1.FormDblClick(Sender: TObject);
var formRng:HRGN; h:hwnd;
begin
formRng:=CreateEllipticRgn(2,2,50,75);
Image1:=TImage.Create(Form1);
with Image1 do begin
Parent:=Form1; Name:='Image1';
Left:=(100); Top:=(100);
AutoSize:=true;
end;
setWindowRgn([COLOR=red]form1.Image1.Handle[/COLOR] ,formRng,true); {ВОТ ЭТО И НЕ ПРОКАТЫВАЕТ, Т.К. Handle ТО НЕТТТТТТТ}
Image1.Picture.Bitmap.LoadFromResourceName Instance,'r');
Image1.Visible:=true;
end;
Hwnd
Я изменяю форму image на эллиптическую, для чего создаю элл. облость formRng, а затем по ней видоизменяю сам image. Это прокaтывает если image был создан заранее на форме, а не в самой программе. См. листинг - мне нужен дескриптор image1, как его взять. Может кто предложет реализ. все это по другому.
Код:
Цитата:
Originally posted by StranikS
Я изменяю форму image на эллиптическую, для чего создаю элл. облость formRng, а затем по ней видоизменяю сам image. Это прокaтывает если image был создан заранее на форме, а не в самой программе. См. листинг - мне нужен дескриптор image1, как его взять. Может кто предложет реализ. все это по другому.
Я изменяю форму image на эллиптическую, для чего создаю элл. облость formRng, а затем по ней видоизменяю сам image. Это прокaтывает если image был создан заранее на форме, а не в самой программе. См. листинг - мне нужен дескриптор image1, как его взять. Может кто предложет реализ. все это по другому.
а если использовать hwnd формы?
Код:
procedure TForm1.FormDblClick(Sender: TObject);
var formRng:HRGN; h:hwnd;
begin
formRng:=CreateEllipticRgn(2,2,50,75);
Image1:=TImage.Create(Form1);
with Image1 do begin
Parent:=Form1; Name:='Image1';
Left:=(100); Top:=(100);
AutoSize:=true;
end;
setWindowRgn([COLOR=red]Handle[/COLOR], formRng,true);
Image1.Picture.Bitmap.LoadFromResourceName Instance,'r');
Image1.Visible:=true;
end;
var formRng:HRGN; h:hwnd;
begin
formRng:=CreateEllipticRgn(2,2,50,75);
Image1:=TImage.Create(Form1);
with Image1 do begin
Parent:=Form1; Name:='Image1';
Left:=(100); Top:=(100);
AutoSize:=true;
end;
setWindowRgn([COLOR=red]Handle[/COLOR], formRng,true);
Image1.Picture.Bitmap.LoadFromResourceName Instance,'r');
Image1.Visible:=true;
end;