как можно в tbitmap каринку формы вставить?

[TLabel]

как можно в tbitmap каринку формы вставить?
конешно не всю формы.
хотелось бы штобы площадь, которую нужно в bitmap вставеть, можно было указевать в параметров.
надеюс на вашу помощ

[Alex Cones]

Чего? О_о.......

[MyLastHit]

А автор жжет всё-таки)))
Сам прочитай что написал, попробуй понять...

[Stilet]

Автору просто нужен снимок экрана
http://delphiworld.narod.ru/base/display_snap.html
http://delphiworld.narod.ru/base/display_snap2.html
http://delphiworld.narod.ru/base/screen_capture.html
Только координаты придется указывать конкретные, а не всего экрана

[MyLastHit]

Если бы автору нужно было сделать скриншот указаной области на форме - он бы так и сказал...
А ему нужно:

штобы площадь, которую нужно в bitmap вставеть, можно было указевать в параметров.

Автор, одно слово - позор.

[TLabel]

правдо нужен скриншот, я просто неправильно выразився

[asmodey1]

Как сделать BMP снимок с экрана?

Грузин:

var
  Desktopcanvas :TCanvas ;
 BitMap  :TBitMap;
begin
  DesktopCanvas:=TCanvas.Create;
  DesktopCanvas.Handle:=GetDC(Hwnd_Desktop);
  BitMap := TBitMap.Create;
  BitMap.Width := Screen.Width;
  BitMap.Height:=Screen.Height;
  Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
  DesktopCanvas, DesktopCanvas.ClipRect);
  bitmap.SaveToFile('c:\windows\screen.bmp');
 image1.Picture.LoadFromFile('c:\windows\screen.bmp');
end;

*********************************** ******************
Alar:

var 
ScreenDC:HDC; 
Canvas:TCanvas; 
Image1:TImage; 
begin 
ScreenDC := GetDC(0); 
Canvas:=TCanvas.Create(); 
Canvas.Handle:=ScreenDC; 
Image1 := TImage.Create(nil); 
Image1.Width := Screen.Width; 
Image1.Height := Screen.Height; 
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height)); 
ReleaseDC(0,ScreenDC); 
Canvas.Free; 
end;

*********************************** *******************
maxionans:

var
  DC : HDC;
  Bmp : TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    DC := GetDC( 0 );
    Bmp.SetSize( 100, 100 );
    BitBlt( Bmp.Canvas.Handle, 0, 0, 100, 100, DC, 0, 0, SRCCOPY );
    Bmp.SaveToFile( 'c:\test.bmp' );
    ReleaseDC( 0, DC );
  finally
    Bmp.Free;
  end;
end;

[Stilet]

Автор, одно слово - позор.

Все мы были новичками. Прекращай издеваться. Сам то небось не все на свете знаешь.

[Alex Cones]

Все мы были новичками.

Это не ламерство - это неумение выразить свои мысли.

надеюс на вашу помощ

Да и орфография... Хромает на обе ноги.

[MyLastHit]

Все мы были новичками. Прекращай издеваться. Сам то небось не все на свете знаешь.

Я же тоже новичок сравнительно. Но по-моему я пишу внятно, правильно, и ко всему к этому стараюсь хоть чуть-чуть соблюдать правила русского языка.
А автор написал чушь, неправильно, да еще и ко всему этому - в каждом слове по 1-2 ошибки...
С такими успехами вряд ли он сможет написать работоспособную программу... И это не издевка, а факт.
Совет автору: прежде чем нажимать на кнопочку "Отправить", перечитай как минимум 2 раза свое сообщение, поймешь ли ты сам его? Заодно и ошибки пофиксишь, чтобы не было так стыдно...