VPF::Блокировка копирования текста не в это приложение

A5uKa

Дата 1.6.2009, 20:40 (ссылка)

(нет голосов)

Загрузка ...

TЋ♥s F1rȜ iƧ BurȠiƞg

Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: 2
Всего: 16

в общем название темы её полностью раскрывает.

Тот же RichEdit

Но текста там много smile

и надоеда юзер хочет копировать его от туда туда же, но
нельзя вынести этот текст за пределы RichEdit smile

Пусть в ручную списывает smile

Да , это важно smile

пока стоит блокировка на ctrl c и ctrl x ...

если разрешить юзеру копировать нужна какая-то магия с clipboard, думаю иначе никак...

taiven

Дата 2.6.2009, 00:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 302
Регистрация: 30.6.2008

Репутация: 3
Всего: 9

Ну, можно сделать, что-то вроде

Код


//---------------------------------------------------------------------------

#include <vcl.h>
#include <Clipbrd.hpp>

#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TClipboard *TrueClipboard;

AnsiString MyClipboard;
AnsiString CurTrueClipboardText;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    MyClipboard = "";
    TrueClipboard = new TClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CopyMenuItemClick(TObject *Sender)
{
    MyClipboard = RichEdit1->SelText;
    CurTrueClipboardText = TrueClipboard->AsText;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PasteMenuItemClick(TObject *Sender)
{
    if(CurTrueClipboardText == TrueClipboard->AsText)
        RichEdit1->SelText = MyClipboard;
    else
        RichEdit1->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    delete TrueClipboard;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Shift.Contains(ssCtrl) && Key == VK_INSERT)
    {
        Key = 0;
        CopyMenuItemClick(Sender);
    }
    else if(Shift.Contains(ssShift) && Key == VK_INSERT)
    {
        Key = 0;
        PasteMenuItemClick(Sender);
    }
}
//---------------------------------------------------------------------------

т.е. назначаем каждому пункту меню соответсвующий ShortCut(ctrl+c-копировать, ctrl+v-вставить...), и выставляем у формы значение KeyPreview в true(чтобы можно было перехватить ctr+insert, shift+insert, и shifе+del). Для "Вырезать" , вызываем CopyMenuItemClick(Sender); и отчищаем выделенный текст, плюс перехватываем shift+del... Ну и соответсвенно, перед тем как что-то копировать , проверяем есть ли выделенный текст.

Это сообщение отредактировал(а) taiven - 2.6.2009, 00:13

A5uKa

Дата 2.6.2009, 00:35 (ссылка)

(нет голосов)

Загрузка ...

TЋ♥s F1rȜ iƧ BurȠiƞg

Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: 2
Всего: 16

Спасибо ... Я думаю это то, что надо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »