Копирование в буфер обмена

procedure CopyButtonClick(Sender: TObject);
begin
  if ActiveControl is TMemo then
    TMemo(ActiveControl).CopyToClipboard;
  if ActiveControl is TDBMemo then
    TDBMemo(ActiveControl).CopyToClipboard;
  if ActiveControl is TEdit then
    TEdit(ActiveControl).CopyToClipboard;
  if ActiveControl is TDBedit then
    TDBedit(ActiveControl).CopyToClipboard;
end;

procedure PasteButtonClick(Sender: TObject);
begin
  if ActiveControl is TMemo then
    TMemo(ActiveControl).PasteFromClipboard;
  if ActiveControl is TDBMemo then
    TDBMemo(ActiveControl).PasteFromClipboard;
  if ActiveControl is TEdit then
    TEdit(ActiveControl).PasteFromClipboard;
  if ActiveControl is TDBedit then
    TDBedit(ActiveControl).PasteFromClipboard;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 385 • TDictionary Custom Sort 6 420 • Fast Watermark Sources 6 202 • 3D Designer 9 159 • Sik Screen Capture 6 536 • Patch Maker 6 942 • Айболит (remote control) 6 923 • ListBox Drag & Drop 5 803 • Доска для игры Реверси 96 856 • Графические эффекты 7 138 • Рисование по маске 6 447 • Перетаскивание изображений 5 308 • Canvas Drawing 5 675 • Рисование Луны 5 385 • Поворот изображения 4 924 • Рисование стержней 3 509 • Paint on Shape 2 767 • Генератор кроссвордов 3 637 • Головоломка Paletto 2 937 • Теорема Монжа об окружностях 3 742 • Пазл Numbrix 2 468 • Заборы и коммивояжеры 3 150 • Игра HIP 2 110 • Игра Go (Го) 2 040 • Симулятор лифта 2 403 • Программа укладки плитки 2 096 • Генератор лабиринта 2 557 • Проверка числового ввода 2 244 • HEX View 2 567 • Физический маятник 2 182

Копирование в буфер обмена

Похожие по теме исходники