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

Вниз

WinProc = метод класса. Как?   Найти похожие ветки 

 
П7   (2005-10-06 03:03) [0]

Доброго времени суток, Мастера!
Хочется сделать некий класс, аля TForm, только попроще и под свои нужды. Естественно без юзания TForm и Forms.pas.
Всё вроде бы понятно, кроме того, как назначить создаваемому окну (точнее классу окна) обработчик не обычной процедурой, а методом данного класса.
Ковырялся в модуле Forms.pas, но так и не разобрался. Как-то там всё это очень хитро сделано.
Помогите разобраться, пожалуйста.


 
Джо ©   (2005-10-06 03:33) [1]

MakeObjectInstance


 
Джо ©   (2005-10-06 03:39) [2]

Схема такая:

TCustomForm = class (...)
FClientInstance: TFarProc;
...
procedure ClientWndProc(var Message: TMessage); // этот метод класса будет оконной процедурой
...
end;
...
// при создании окна
FClientInstance := Classes.MakeObjectInstance(ClientWndProc);
FDefClientProc := Pointer(GetWindowLong(FClientHandle, GWL_WNDPROC));
...
/// при уничтожении окна
if FObjectInstance <> nil then Classes.FreeObjectInstance(FObjectInstance);

Дальнейшие подробности - см. модуль Forms.pas, метод procedure TCustomForm.CreateWnd (пример выдернул именно оттуда).



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

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

Наверх




Память: 0.44 MB
Время: 0.035 c
14-1132554332
Жук
2005-11-21 09:25
2005.12.11
Музыка из Цивилизации 4


2-1132769705
Plotnick
2005-11-23 21:15
2005.12.11
FormatFloat


2-1132786223
Mischa_M
2005-11-24 01:50
2005.12.11
Как считать файл по битам ?


1-1131979438
*Beginner*
2005-11-14 17:43
2005.12.11
Перетаскивание из TShellTreeV iew


14-1132404609
Гость101
2005-11-19 15:50
2005.12.11
Куда написать чтобы закрыли программу





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский