Головна сторінка
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.164 c
8-1094823919
debuger
2004-09-10 17:45
2004.12.12
Контраст і Яскравість.


1-1101889207
pomashok
2004-12-01 11:20
2004.12.12
mouse_event


1-1101310313
Frozzen
2004-11-24 18:31
2004.12.12
звільнення пам'яті


1-1101838448
Єрмак
2004-11-30 21:14
2004.12.12
Підказка ТІЛЬКИ в StatusBar


1-1101582815
Herkules-A
2004-11-27 22:13
2004.12.12
NMSMTP1.PostMessage.Body.Text перехід на наступну рядок





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