Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не работает CopyPaste [D7, XP]

Imagination © (2014-06-25 13:41:00)
Привет всем!
Не работает функция копировать в 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;

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

Imagination (2014-06-25 14:41:00) [1]
сам разобрался, но теперь такой вопрос - все выполняется ОДНОЙ кнопкой!
выбрал картинку, нажал кнопку, она пошла в буфер и в ячейку 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:00) [2]
спасибо sniknik

Imagination (2014-06-25 13:58:00) [3]
я же открыл буфер,скинул туда картинку,потом выделяю ту ячейку куда хочу скинуть ее,скидываю,закрываю буфер...что не так?(((

Imagination (2014-06-25 13:57:00) [4]
а все же? Почему не работает?

sniknik (2014-06-25 13:48:00) [5]
вернись к "истокам"
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1401097358&n=18
первый же пост.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »