A um tempo atrás estava querendo colar figuras num dbImage e o colega s3c forneceu o seguinte código:
uses ClipBoard;
procedure TForm1.DBImage1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #22) and Clipboard.HasFormat(CF_PICTURE) then
begin
DBImage1.Picture.Assign(Clipboard);
DBImage1.Stretch := true;
DBImage1.Refresh;
end;
end;
Obs: O picture será um TBitmap; se quiser modificá-lo p/ Jpeg(menor espaço), também é possível.
Atualmente tenho um programa que apresenta uma figura num Image1 e gostaria de que o usuário ao clicar na imagem e em seguida fizesse CTRL + C mandasse a figura (existem bmp e jpeg) para o clipboard para que com CTRL + V ele pudesse copiar, por exemplo no word.
Alguém poderia me dizer como fazer isto. Tentei adaptar o código, mas não consegui.
Pergunta
Paulo Nobre
Prezados Colegas
A um tempo atrás estava querendo colar figuras num dbImage e o colega s3c forneceu o seguinte código:
Atualmente tenho um programa que apresenta uma figura num Image1 e gostaria de que o usuário ao clicar na imagem e em seguida fizesse CTRL + C mandasse a figura (existem bmp e jpeg) para o clipboard para que com CTRL + V ele pudesse copiar, por exemplo no word.
Alguém poderia me dizer como fazer isto. Tentei adaptar o código, mas não consegui.
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados