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

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 (Тетрис) 3 931 • TDictionary Custom Sort 6 034 • Fast Watermark Sources 5 839 • 3D Designer 8 650 • Sik Screen Capture 6 158 • Patch Maker 6 598 • Айболит (remote control) 6 585 • ListBox Drag & Drop 5 450 • Доска для игры Реверси 95 387 • Графические эффекты 6 802 • Рисование по маске 5 975 • Перетаскивание изображений 4 975 • Canvas Drawing 5 346 • Рисование Луны 5 072 • Поворот изображения 4 609 • Рисование стержней 3 268 • Paint on Shape 2 510 • Генератор кроссвордов 3 404 • Головоломка Paletto 2 703 • Теорема Монжа об окружностях 3 501 • Пазл Numbrix 2 297 • Заборы и коммивояжеры 2 986 • Игра HIP 1 945 • Игра Go (Го) 1 861 • Симулятор лифта 2 210 • Программа укладки плитки 1 931 • Генератор лабиринта 2 370 • Проверка числового ввода 2 057 • HEX View 2 378 • Физический маятник 2 011

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

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