NO me funciona
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;
|