Форум: "Начинающим";
Текущий архив: 2015.12.20;
Скачать: [xml.tar.bz2];
ВнизНе работает 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
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2015.12.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.001 c