Una clase al ClipBoard

[bustio]

Hola!!!

Mi duda es la siguiente..: Tengo una objeto de tipo una clase que yo defino, y quiero que cuando le de el clasico CRTL + C sobre su nombre en algun componente que lo muestre, vaya el objeto completo al ClipBoard.. y luego... al darlre CRTL + V este vuelva a una lista de tipo TLIST.

Agradeceria cualquier sugerencia..

GRACIAS!

[delphi.com.ar]

Podrías utilizar los métodos SetComponent y GetComponent del objeto Clipboard.

Saludos!

[bustio]

Hola y gracias por responder a mi pregunta, pero tengo que decirte que tu solucion no me ayuda de mucho. Cuando trato de pasar mi clase de tipo TNOTE(que hereda de TOBJECT) me dice que un TNOte no es un TComponent. Probe con hacerle un casting a mi TNOTE pero me da una excepcion a la hora de insertarla en el CLipBoard.
No tendran otra sugerencia por ahi debajo de la manga por casualidad???
Aqui les mando el codigo para si alguien tiene una idea de como hacer esto.. bueno. agradezco cualquier sugerencia!

GRACIAS!!!


procedure TFrmMain.AddToClipBoardClick(Sender: TObject);
Var
ClipBoard : TClipBoard;
NoteToClipBoard : TNote;
begin
ClipBoard := TClipboard.Create;
If NotesList.FindNote(ListNotes.Items.Strings[ListNotes.ItemIndex], NoteToClipBoard) = True Then
Begin
ClipBoard.SetComponent(TComponent(NoteToClipBoard));
End;
end;