Программирование
Главная » FAQ » Буфер обмена |
procedure TForm1.Cut1Click(Sender: TObject); 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; |