Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

Broadcast() не работает ((. Что я делаю не так?   Найти похожие ветки 

 
Magedon ©   (2012-02-11 17:50) [0]

Доброе время суток.
Есть надобность отправить сообщение своим контролам.

В форме делаю


var
 MsgReadOnly:TMessage;
begin
 ...
 MsgReadOnly.Msg := DI_ReadOnlyStateChanged;
 if dmMain.ReadOnly  then
   MsgReadOnly.WParam := 1
 else
   MsgReadOnly.WParam := 0;
 MsgReadOnly.LParam := LongInt(Self);
 MsgReadOnly.Result := 0;
 Self.Broadcast(MsgReadOnly);
end;


Во фрейме, который я положил на TabSheet главного PageControl-a на этой же форме:


...
procedure DIReadOnlyStateChanged(var Message: TMessage); message DI_ReadOnlyStateChanged;
...
procedure TframeTexts.DIReadOnlyStateChanged(var Message: TMessage);
begin
 ReadOnly := Message.WParam = 1;
end;


Ну и в общем модуле


const
  DI_ReadOnlyStateChanged = WM_User + 100;


И вот не доходит эта мессага до фрейма.
Что я сделал не так?


 
Dimka Maslov ©   (2012-02-11 18:01) [1]

1. Use Broadcast when you want to send the same message to each of the child controls contained within the windowed control. Specify the message to be passed as the value of the Message parameter.

2. Вассал моего вассала - не мой вассал. Контрол моего контрола - не мой контрол.

Раз Фраме лежит на ТабСхеете главного ПагеКонтрола - форме он никто и рассылать ему броадкасты она не обязана.


 
Magedon ©   (2012-02-11 19:01) [2]

Спасибо.
Но как же разослать месагу всем контролам своим?
Самому писать чтоле процедурку, в которой обходить Controls и каждому рекурсивно посылать месагу?

Неужели нет ничего стандартного?


 
Омлет ©   (2012-02-11 19:11) [3]

Пусть фрейм перешлет сообщение своим детям.


 
Dimka Maslov ©   (2012-02-11 19:27) [4]


> Неужели нет ничего стандартного?


нет



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

Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.062 c
2-1330269660
Незнающий усталости
2012-02-26 19:21
2013.03.22
Как задать фокус ячейки?


15-1329458550
coward
2012-02-17 10:02
2013.03.22
FreeSoft AV


2-1331964246
hursand
2012-03-17 10:04
2013.03.22
Pdf format


6-1264768116
RGaysin
2010-01-29 15:28
2013.03.22
TIdIrc русские символы


15-1338741213
М
2012-06-03 20:33
2013.03.22
Личная информация.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский