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

И откуда мы это такое имеем??? Что за проблема то решается?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 16:01
    #32280961
Deff
Deff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FindComponent, Findproperty
Ну все не буду рассказывать. Ну суть такая что есть несколько компнонентов. Я не знаю есть ли у них "OnClick" или "OnChange". Как узнать то? Но я, в принципе, знаю класс компонента.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 16:32
    #32281023
pkarklin
pkarklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FindComponent, Findproperty
Изврат какой-то, однако, получается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 16:33
    #32281024
olga1999
olga1999
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FindComponent, Findproperty
Мне кажется, что так:
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, 17:16
    #32281078
Cheboor
Cheboor
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FindComponent, Findproperty
Это должно сработать

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

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

или так

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

try
button1.onclick:=prClick;
except
//Опа, этого метода у него нет
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 18:11
    #32281145
anubis
anubis
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FindComponent, Findproperty
Ну если компонент ты уже нашел, то:
Код: 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
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / FindComponent, Findproperty / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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