Mega Code Archive

 

Categories / Delphi / Forms

 

[] Bütün formun panoya resim olarak kopyalama

Codec By GeNiUS ! genius@turkiye.com bütün formu panoya kopyalar procedure TForm1.Button2Click(Sender: TObject); //uses clipbrd Var Image : TImage; BitMap : TBitmap; Begin Image:=TImage.Create(Self); BitMap:=TBitMap.Create; BitMap.Width:=ClientWidth; BitMap.Height:=ClientHeight; BitBlt(BitMap.Canvas.Handle, 0, 0, ClientWidth, ClientHeight, GetDC(Handle), 0, 0, SRCCOPY); Image.Picture.Graphic:=BitMap; Clipboard.Assign(Image.Picture); BitMap.Free; Image.Free end;