Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2004.12.12;
Завантажити: [xml.tar.bz2];

Вниз

Заборона вставки з буфера в Edit Знайти схожі гілки


Manfred8   (2004-11-26 14:02) [0]

Намагаюся визначити обробник
Procedure WMPaste (var MSG: TMSG); message WM_Paste;

Procedure TEditPassengerForm.WMPaste (var MSG: TMSG);
починати
showmessage ( "Бо Нефіг");
end;

Чи не котить :( У нього навіть не потрапляє



Юрий Зотов ©   (2004-11-26 14:10) [1]

> Чи не котить :( У нього навіть не потрапляє

Природно. Ви ж перехоплюєте повідомлення, надіслане ФОРМІ, а не Edit "у.



Manfred8   (2004-11-26 14:14) [2]

а не підкажіть як його у edita перехопити?



jack128 ©   (2004-11-26 14:29) [3]

Manfred8 (26.11.04 14: 14) [2]
Написати спадкоємця від TEdit. Або від TCustomEdit



Manfred8   (2004-11-26 14:34) [4]

> Написати спадкоємця від TEdit. Або від TCustomEdit
:) Фігня питання, зробимо



Sash ©   (2004-11-26 14:38) [5]

чи не простіше буде властивість ReadOnly в True поставити?



cae ©   (2004-11-26 14:44) [6]

Або ось так:
TForm1 = class (TForm) ........... Edit1: TEdit; procedure FormCreate (Sender: TObject); private {Private declarations} SaveWindowProc: TWndMethod; procedure NewWindowProc (var Message: TMessage); public {Public declarations} end; procedure TForm1.NewWindowProc (var Message: TMessage); begin if Message.Msg = WM_PASTE then ShowMessage ( "нізя!") else SaveWindowProc (Message); end; procedure TForm1.FormCreate (Sender: TObject); begin SaveWindowProc: = Edit1.WindowProc; Edit1.WindowProc: = NewWindowProc; end;



jack128 ©   (2004-11-26 14:45) [7]

Sash © (26.11.04 14: 38) [5]
А хіба завдання - зробити Edit read only ??



Manfred8   (2004-11-26 14:47) [8]

Завдання дозволяти вводити токо букви латиниці, виконана, але поганий тестер вставляє туди з буфера і говорити що ай я яй :) Убити його звичайно можна але не спортивно



Sash ©   (2004-11-26 14:50) [9]

відповідав за сабжу, всієї проблеми не послухав, перепрошую



Юрий Зотов ©   (2004-11-26 14:59) [10]

> Manfred8 (26.11.04 14: 02)

Навздогін.

> Procedure WMPaste (var MSG: TMSG); message WM_Paste;

Тут потрібно TMessage, а TMsg - це дещо інше.



TUser ©   (2004-11-26 15:07) [11]


> Завдання дозволяти вводити токо букви латиниці, виконана, але
> Нехороший тестер вставляє туди з буфера і говорити що
> Ай я яй :) Убити його звичайно можна але не спортивно

А ти OnChange у едіта обробляй - і він обломиться



Manfred8   (2004-11-26 15:39) [12]

yES. Зробив так вліз в вихідні і дописав до Edit

procedure WMPaste (var Msg: TWMPaste); message wm_Paste;

procedure TRzCustomEdit.WMPaste (var Msg: TWMPaste);
ПОЧАТИ
SHOWMESSAGE ( "Бо нєфіг");
END;

працює :)



TUser ©   (2004-11-26 15:41) [13]


> Зробив такий спосіб вліз в вихідні

Виліз терміново. Чи не міняй генофонд. Просто напиши свого спадкоємця



Юрий Зотов ©   (2004-11-26 15:49) [14]

> Manfred8 (26.11.04 15: 39) [12]

І тепер у всіх наступних програмах Ви отримаєте "Бо нєфіг".

Бо нєфіг.



Manfred8   (2004-11-26 16:46) [15]

Навіщо у всіх наступних, я зробив копію і виправляв її, вона лежить разом з проектом :)

Спадкоємця це правильно, струму чет Дельфах глючить, не знаходить TDesigner при спробі реєстрації компанента, а переставляти влом.



TUser ©   (2004-11-26 16:53) [16]


> Спадкоємця це правильно, струму чет Дельфах глючить, не знаходить
> TDesigner при спробі реєстрації компанента, а переставляти
> Влом.

пишеш

unit unit1;

TMyEdit = class (TCustomEdit)
громадськість
procedure WmChar (...); message ...
end;

було
Form1: TForm1;
Edit1: TMyEdit;

реалізація

procedure TMyEdit.WmChar (...);
починати
ShowMessage ( "Poshel v jopy, tester!");
end;

procedure TForm1.FormOnCreate ();
починати
Edit1: = TMyEdit.Create (Application);
with Edit1 do begin
Top: = ...
Left: = ...
Parent: = Self;
end;
end;



KSergey1   (2004-11-26 17:23) [17]

Подивіться цю гілку

http://delphimaster.net/view/1-1101363417/



TUser ©   (2004-11-26 17:24) [18]

Точніше -WmPaste, звичайно



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2004.12.12;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.87 MB
Час: 0.095 c
4-1098867565
GuestTM
2004-10-27 12:59
2004.12.12
Як відловити ACCESS VIOLATION ...


14-1101157384
OneFragLeft
2004-11-23 00:03
2004.12.12
Комп'ютер і Здоров'я.


3-1100407007
чорний
2004-11-14 07:36
2004.12.12
Помилка при спробі зміни властивості ADOConnection


14-1101379739
церква
2004-11-25 13:48
2004.12.12
"З днем ​​народження" по-болгарськи


1-1101746383
Df
2004-11-29 19:39
2004.12.12
if, then, else on RichEdit





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська