Message-ID: <3D9F8433.8974C46F@govst.edu>
Date: Sat, 05 Oct 2002 19:30:43 -0500
From: Mauro =?iso-8859-1?Q?Pati=F1o?= <mauro.patino@govst.edu>
X-Mailer: Mozilla 4.7 [en]C-CCK-MCD NSCPCD47  (WinNT; I)
X-Accept-Language: en
MIME-Version: 1.0
Newsgroups: borland.public.delphi.graphics
Subject: Re: Getting a clipboard bitmap into an TImage.Picture...?
References: <3d9f48ed@newsgroups.borland.com>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
NNTP-Posting-Host: 12.251.169.67
X-Trace: newsgroups.borland.com 1033864242 12.251.169.67 (5 Oct 2002 17:30:42 -0700)
Lines: 21
Path: newsgroups.borland.com!not-for-mail
Xref: newsgroups.borland.com borland.public.delphi.graphics:52086

Harry Doldersum wrote:

> I'm using a generated keyboard event to copy the contents of a window or the
> full screen to the clipboard. From there, I want to transport it to a
> TImage.Picture.
>
> Getting the image on the clipboard wasn't a problem, but now I'm stuck while
> trying to get it into the TImage.Picture? I don't understand how to do
> that - can't get it right. Could you please give me some guidance with
> this??  ;-)

uses ClipBrd;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Clipboard.HasFormat(CF_BITMAP) then
  begin
    Image1.Picture.Assign(ClipBoard);
  end;
end;