Не работает CopyPaste

← →
Imagination (2014-06-25 13:41) [0]

Привет всем!
Не работает функция копировать в ClipBoard и вставить в ячейку.
Вот код:

procedure TForm1.Button2Click(Sender: TObject);
begin
ClipBoard.Open;
ClipBoard.Assign(Image1.Picture);

App.ActiveDocument.Tables.Item(1).Cell(1,1).Select;
App.Selection.Paste;
ClipBoard.Close;
end;

Почему не работает? Что не так?

← →
sniknik © (2014-06-25 13:48) [1]

вернись к "истокам"
http://delphimaster.net/view/2-1401097358/
первый же пост.

ну и сам же там в [11] посте с "селектионом" работаешь чуток по другому, почему? в разнице глюк.

← →
Imagination (2014-06-25 13:57) [2]

а все же? Почему не работает?

← →
Imagination (2014-06-25 13:58) [3]

я же открыл буфер,скинул туда картинку,потом выделяю ту ячейку куда хочу скинуть ее,скидываю,закрываю буфер...что не так?(((

← →
Imagination (2014-06-25 14:41) [4]

сам разобрался, но теперь такой вопрос - все выполняется ОДНОЙ кнопкой!
выбрал картинку, нажал кнопку, она пошла в буфер и в ячейку 1,1. Выбрал другую картинку, нажал эту же кнопку, картинка в буфер и в ячейку 1,2.
Button1.Tag поставил на 2. Вот код:

case Button1.Tag of
0:
begin
ClipBoard.Assign(Image1.Picture);
App.ActiveDocument.Tables.Item(1).Cell(1,1).Select;
App.Selection.Paste;
EmptyClipBoard;
end;
1:
begin
ClipBoard.Assign(Image1.Picture);
App.ActiveDocument.Tables.Item(1).Cell(1,2).Select;
App.Selection.Paste;
EmptyClipBoard;

Что не так?

← →
Imagination (2014-06-25 14:41) [5]

спасибо sniknik

Не работает CopyPaste Найти похожие ветки