Código
//ponte para que a imagem se estabeleça no RxRichEdit
//Insira um RxRichEdit no Form, um ImageList, e um Button,,,
//No ImageList1 insira uma imagem por exemplo um smile do MSN
//No evento OnClick do button1 coloque...
Procedure Tform1.Button1Onclick(Sender: Tobject);
var temp : Tbitmap;//Bitmap Temporario
begin
temp := Tbitmap.create;//Cria a imagem temporaria
imagelist1.GetBitmap(0,temp);//Pega a imagem numero 0 e joga pro Temp
clipboard.assign(temp);//Passa a imagem pro Clipboard
Rxrichedit1.PastFromClipBoard;//Insere a imagem!
end;
//Não se esqueça de declarar a unit Clipbrd na uses...
//Acho q só funciona com a RxRichEdit q faz parte da Rxlib..
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009