Копирование кнопкой - ?

[Evgenii]

При помощи клавиш ctrl+c, ctrl+v, например из ячейки можно копировать данные и затем вставить их в другую ячейку. А как сделать чтобы кнопка заменяла нажатие клавиш?

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 ctrl+c;//копирование
end;

[mihali4]

А откуда кнопка узнает, из какой в какую???

[Evgenii]

Из какой-выделяем текст в нужной ячейке. После нажатия на кнопку, focuscontrol на заданной ячейке и вставка.

[mihali4]

Ладно.
Тогда по нажатию на кнопку копируем в глобальную переменную текст выделенной ячейки и устанавливаем глобальный же признак в TRUE.
А в событии выделения ячейки анализируем этот признак и если он установлен, вставляем скопированное из нашей строковой переменной и сбрасываем признак...

[Evgenii]

А само копирование (чтобы кнопка скопировала текст) как сделать?

[mihali4]

var mystr: string;
myflag: boolean;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
mystr:=StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
Label1.Caption:=mystr;//это для проверки
myflag:=True;
end;

[Evgenii]

механизм копирования при нажатии кнопок ctrl+c такой же?

[Gorychev]

Если сильно нужно именно скопировать текст в буфер одмена, то используйте следующую конструкцию:

uses clipbrd;
........
// скопировал текущую ячейку в буфер
clipboard.astext:= DBGrid1.SelectedField.AsString;
.........
// использовал
Label1.Caption:=clipboard.astext;
........

ЗЫ. не забудь добавить clipbrd в раздел uses.

[Evgenii]

вот именно то что нужно) спасибо

[Gorychev]

Хранить данные в буфере не самая лучшая мысль. Как из вестно, буфер место обшедоступное и в любой момент в него могут воткнуть все что угодно...