Суббота, 23.06.2018, 07:02
Приветствую Вас Гость
Меню сайта


Копилка для дальнейшего развития ресурса.
 
Форма входа
Интересное
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Программирование на Delphi.

Программирование

Главная » FAQ » Буфер обмена

procedure TForm1.Cut1Click(Sender: TObject);

begin
  SendMessage (ActiveControl.Handle, WM_Cut, 0, 0);
end;


procedure TForm1.Copy1Click(Sender: TObject);
begin
  SendMessage (ActiveControl.Handle, WM_Copy, 0, 0);
end;

procedure TForm1.Paste1Click(Sender: TObject);
begin
  SendMessage (ActiveControl.Handle, WM_Paste, 0, 0);
end;