Буфер обмена

[dmitriegorovih]

Всем доброго утра! Как скопировать компонент в буфер обмена например, как делает делфи 7 при копирование кнопки?

object Button1: TButton
  Left = 408
  Top = 128
  Width = 75
  Height = 25
  Caption = 'Button1'
  TabOrder = 0
  OnClick = Button1Click
end

[Stilet]

А для чего?

[dmitriegorovih]

А для чего?

Хотелось бы сделать копирование image(oв) из одной программы в другую по нажатию на клавиши ctrl+c и ctrl+v

[Stilet]

Тогда копировать нужно не компонент а сам рисунок на нем.
http://www.delphiworld.narod.ru/_all_articles_.html раздел Буфер обмена - [40]

[dmitriegorovih]

А можно вмести с картинкой копировать и текст? Вот например делфи копирует картинку как текст.
P.S. Просто мне нужно знать местоположение

[Stilet]

Я что непонятно изъяснился? Я все понимаю, читать молодежь до конца не умеет, сам такой, но всеже можно поднапружится, пройти по ссылке выше и найти что-то вроде:http://www.delphiworld.narod.ru/base...clipboard.html
И попробовать, и порадоваться что сам сделал.

[dmitriegorovih]

Теперь понятно ) Но как скопировать изображение вместе с текстом?

Смысл создание темы пока не вижу, но чтоб тема опять поднялась в рейтинге создаю новое сообщение, нашёл в модуле clipbrd вот это

clipboard.SetComponent(image1);

и

clipboard.GetComponent(form1,form1)

при получении компонента вылазет что нет класса Timage в чём моя ошибка?

[_Engine_]

Вот пример из справки Delphi

implementation

uses QClipbrd;
{$R *.xfmDFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
  { copy the button to the clipboard }
  Clipboard.SetComponent(Button1);
  { rename the button which is still on the form }
  Button1.Name := 'OriginalButton';
  { Now retrieve the button from the clipboard }
  { and add it to GroupBox1 }
  { Note that the clipboard button is named Button1, while }
  { the source button has been renamed to 'OriginalButton' }

  Clipboard.GetComponent(Self, GroupBox1);
end;
initialization
  RegisterClasses([TButton]);{ registers the TButton class }
end.

[_Engine_]

Обратите внимание на строчку
RegisterClasses

[dmitriegorovih]

Обратите внимание на строчку
RegisterClasses

Всё теперь понятно
Пытался после получения сделать перемещения image(a) но не чего не получилось
вот код

procedure TForm1.Button2Click(Sender: TObject);
var
t:Tcomponent;
begin
t:=Clipboard.GetComponent(Self, form1);
Timage(t).OnMouseDown:=image1.OnMouseDown;
Timage(t).OnMouseMove:=image1.OnMouseMove;
Timage(t).OnMouseUp:=image1.OnMouseUp;
end;