ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / FindComponent, Findproperty
7 сообщений из 7, страница 1 из 1
FindComponent, Findproperty
    #32280929
Фотография Deff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deff
Участник
Имея строку "Button1.OnClick = prClick". Надо обратится к свойству "OnClick" и присвоить "prClick".
Ну как компонент найти понятно (FindComponent).
А как найти проперти у этого компонтента.
...
Рейтинг: 0 / 0
01.10.2003, 15:48
| Ответить | Цитировать | Написать  
FindComponent, Findproperty
    #32280935
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pkarklin
Участник
"Button1.OnClick = prClick".

И откуда мы это такое имеем??? Что за проблема то решается?
...
Рейтинг: 0 / 0
01.10.2003, 15:51
| Ответить | Цитировать | Написать  
FindComponent, Findproperty
    #32280961
Фотография Deff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deff
Участник
Ну все не буду рассказывать. Ну суть такая что есть несколько компнонентов. Я не знаю есть ли у них "OnClick" или "OnChange". Как узнать то? Но я, в принципе, знаю класс компонента.
...
Рейтинг: 0 / 0
01.10.2003, 16:01
| Ответить | Цитировать | Написать  
FindComponent, Findproperty
    #32281023
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pkarklin
Участник
Изврат какой-то, однако, получается.
...
Рейтинг: 0 / 0
01.10.2003, 16:32
| Ответить | Цитировать | Написать  
FindComponent, Findproperty
    #32281024
olga1999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
olga1999
Участник
Мне кажется, что так:
uses typinfo;
Var
PropInfo:PPropInfo;
PropInfo:=GetPropInfo(Components .ClassInfo,'OnClick');
if PropInfo<>Nil then
SetMethodProp(Components),'OnClick',Form1.onCreate);

Form1.OnCreate, COmponents - твой метод, твой компонент в массиве Components (или по FindComponent)
...
Рейтинг: 0 / 0
01.10.2003, 16:33
| Ответить | Цитировать | Написать  
FindComponent, Findproperty
    #32281078
Cheboor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cheboor
Гость
Это должно сработать

//если элемент - кнопка, то вполне логично, что у него есть такое свойство

if (button1 is Tbutton) then button1.onclick:=prClick;

или так

//пробуем, если нет - то ничего не произойдет... кроме delphi ext (но его увидишь только ты, на этапе работы под ide

try
button1.onclick:=prClick;
except
//Опа, этого метода у него нет
end;
...
Рейтинг: 0 / 0
01.10.2003, 17:16
| Ответить | Цитировать | Написать  
FindComponent, Findproperty
    #32281145
anubis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
anubis
Гость
Ну если компонент ты уже нашел, то:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
  if IsPublishedProp(Button1, 'OnClick') then
  begin
    M.Data := Self;
    M.Code := Self.MethodAddress('NewClickHandler');
    if M.Code <> nil then
    begin
      SetMethodProp(Button1, 'OnClick', M);
    end;//if
  end;//if


метод NewClickHandler должен быть Published.
...
Рейтинг: 0 / 0
01.10.2003, 18:11
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / FindComponent, Findproperty
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]