Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.24;
Скачать: CL | DM;

Вниз

Clipboard   Найти похожие ветки 

 
saxon ©   (2002-10-11 15:52) [0]

Уважаемые!
Подскажите как запретить вставку данных из сабж?


 
Ketmar ©   (2002-10-11 16:53) [1]

вопрос переадресован главному дворнику Мухосранска.

Satanas Nobiscum! 11-Oct-XXXVII A.S.


 
saxon ©   (2002-10-11 17:29) [2]

что это значит? :))
мне бы решение проблеммы ...


 
Song ©   (2002-10-11 17:33) [3]

WM_COPY


 
saxon ©   (2002-10-14 15:42) [4]

Все было бы хорошо если бы не следующее:
Есть форма, на ней лежит TDBEdit в нем поле с типом Integer.
Свойство DisplayFormat="#".
С клавиатуры все нормально - только цифры!!!
А когда вставляеться из Clipboard, то что там есть - все пихает.
Как это победить???
Заранее благодарен!!!!!!!!


 
AL2002 ©   (2002-10-14 16:18) [5]

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if ((Key = ord("V")) and (ssCtrl in Shift)) then begin
if Clipboard.HasFormat(CF_TEXT) then
ClipBoard.Clear;
Memo1.SelText := "Delphi is RAD!";
key := 0;
end;
end;


 
saxon ©   (2002-10-14 16:29) [6]

Это я давно видел и оно не подойдет
1 - можно вставить и мышкой
2 - можно вставить Shift+Insert
3 - и еще много чего можно

мне кажеться что то надо принципиально другое :))
неужели такие проблеммы у меня первого ?


 
AL2002 ©   (2002-10-14 16:35) [7]

>saxon © (14.10.02 16:29)
Тогда событие OnChange


 
saxon ©   (2002-10-14 17:01) [8]

Так конечно можно
но согласитесь какаято фигня получаеться.
Хоть ты компонент перекомпили с изменениями :)


 
saxon ©   (2002-10-14 17:06) [9]

а еще хлчеться сохранить старое значение
и тут получаеться в некоторых случаях зацикливание :(


 
AL2002 ©   (2002-10-14 17:21) [10]

>saxon © (14.10.02 17:06)
Дык, можно ж проверять, сколько было сразу введено символов. Если больше двух, то делать Undo.



Страницы: 1 вся ветка

Текущий архив: 2002.10.24;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
7-78689
Vald2000
2002-08-19 13:09
2002.10.24
эмуляция принтера .


14-78655
sancho
2002-10-04 21:38
2002.10.24
Help для RxLib


14-78633
sancho
2002-10-03 18:54
2002.10.24
Однополчане, подкиньте идею!


1-78362
Krez
2002-10-14 15:31
2002.10.24
Добавление компонента


3-78206
Termik
2002-10-03 11:15
2002.10.24
Shared memory realm does not exists