Не получается сграбить в Bitmap визуальный компонент

← →
Step[B.M.] © (2004-03-23 01:48) [0]

Братва, подсобите, очень прошу. Спасибо.

← →
TUser © (2004-03-23 07:51) [1]

Слышь браток, заюзай крутую Билли-функцию BitBlt. Щас все реальные пацаны так делают ...
procedure TForm1.Button1Click(Sender: TObject); var sdc:hDC; b:TBitMap; h:hWND; begin try h:=form1.Handle; sdc:=GetDeviceContext(h); b:=TBitMap.Create; b.Width:=button1.Width; b.Height:=button1.Height; if not BitBlt(b.Canvas.Handle,0,0,b.Width,b.Height,sdc,button1.Left,button1.Top,SRCCOPY) then showMessage("error"); Image1.Picture.Assign(b); finally releasedc(form1.Handle,sdc); b.Free; end; end;

Спасибо, братан, выручил.

Не получается сграбить в Bitmap визуальный компонент Найти похожие ветки