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

Вниз

вопрос.   Найти похожие ветки 

 
oleg_teacher ©   (2007-06-06 17:48) [0]

На форме есть два компонента мемо.
В контекстном меню прописаны пункты вызова диалога изменения размера шрифта (пункт1) и цвета шрифта (пункт2).
Как сделать так, чтобы настройки применялись только к тому мемо, в котором был вызов контекстного меню.


 
Bora_ru ©   (2007-06-06 17:52) [1]

На том мемо, на котором находится фокус


 
clickmaker ©   (2007-06-06 18:03) [2]

http://delphimaster.net/view/1-1181129428/&web=1

может, хватит уже из пустого в порожнее переливать?


 
oleg_teacher ©   (2007-06-06 18:04) [3]

тоесть использовать свойство Focused
if memo1.Focused then ...
на 2 компонента это пройдет.
а если 122 компонента то очень много строчек кода нужно писать
а нельзя ли както упростить?


 
Плохиш ©   (2007-06-06 18:07) [4]

Кто просил настю личико показать? Любуйтесь теперь на это ...


 
sniknik ©   (2007-06-06 18:10) [5]

> а нельзя ли както упростить?
if ActiveControl is TMemo then
 TMemo (ActiveControl ).Focused


 
Плохиш ©   (2007-06-06 18:23) [6]

PopUpMenu знает по ком его вызвали и радостно желающим об этом сообщает...


 
Bora_ru ©   (2007-06-06 18:33) [7]

Браво Плохиш!



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

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

Наверх




Память: 0.45 MB
Время: 0.042 c
2-1184208569
a.sitkin
2007-07-12 06:49
2007.08.12
Открыть книгу Exel и запустить в ней макрос


2-1184222024
Девушка
2007-07-12 10:33
2007.08.12
QvantumGrid поймать символ


2-1184735926
Boga
2007-07-18 09:18
2007.08.12
Архивирование папки


15-1184597966
TStas
2007-07-16 18:59
2007.08.12
Длинные ветки в поболталовке


2-1184870250
bagos
2007-07-19 22:37
2007.08.12
крашенный stringgrid





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