20.11.2006, 17:36
общий
это ответ
Здравствуйте, Shurik!
Сделайте следующий обработчик пункта меню:
procedure TForm.PasteClick(Sender: TObject);
const BufLen=10000;
var Buffer:array [0..BufLen-1] of char;
FocusedEdit:TEdit;
begin
if Clipboard.GetTextBuf(Buffer,BufLen)=0
then exit;
if ActiveControl is TEdit then
begin
FocusedEdit:=ActiveControl as TEdit;
FocusedEdit.SelText:=Buffer;
end;
end;