Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2008, 15:05   #1
Chainic
 
Регистрация: 28.05.2008
Сообщений: 5
Вопрос ActiveX с параметрами

Добрый день.
Вот столкнулся с проблемой написания ActiveX. Нажно написать компонент который бы мог получать и принимать значение переменной.
Сделать это пока не получилось. Нашол несколько статей как это примерно сделать на Delphi. Сделал все, но не получилось. Чувствую что-чтото пропустил, но никак не уловлю.
Последовательность моих действий была следущая:
New -> Other -> ActiveX -> Active Form
Задаю свойства по умолчанию.
Дальше постаил кнопку. По нажатию написал изменение переменной.
(Как эту переменную дальше передать не знаю).
Потом View -> Type Library -> IActiveFormX
Пробывал добавлять как метод так и свойство. Ни то ни то не могу увидеть в вызывающей программе программе.
Вижу только некорые свойства создаваемые Вудзрш (AutoSize, color, ...)
Что я делаю неправильно?
Chainic вне форума Ответить с цитированием
Старый 28.05.2008, 15:50   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Пробывал добавлять как метод так и свойство. Ни то ни то не могу увидеть в вызывающей программе программе.
А это возможно потому что не зарегистрировал ты компонент.
Там в Type Library есть кнопка регистрации (иконка реестра нарисована) и кнопка обновления. Вот один раз регаешь, потом только обновляешь.

А еще - для свойств создай внутреннюю переменку вот пример:
Код:
  public
    { Public declarations }    v:integer;
......................................
function TActiveFormX.Get_Perem1: Integer;
begin
 result:=v;
end;

procedure TActiveFormX.Set_Perem1(Value: Integer);
begin
  v:=value;
end;

procedure TActiveFormX.Button1Click(Sender: TObject);
begin
v:=10;
end;
Тогда должно работать
I'm learning to live...

Последний раз редактировалось Stilet; 28.05.2008 в 15:52.
Stilet вне форума Ответить с цитированием
Старый 28.05.2008, 16:25   #3
Chainic
 
Регистрация: 28.05.2008
Сообщений: 5
По умолчанию

Спасибо большое.
У меня получилось.
Chainic вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запуск exe с параметрами Altera Общие вопросы Delphi 2 26.02.2008 21:25
Функции с числовыми параметрами Hostlman Помощь студентам 5 22.12.2007 22:21
Функции с числовыми параметрами Hostlman Общие вопросы Delphi 2 21.12.2007 20:19
Приложение с параметрами RoadTrain Общие вопросы Delphi 3 08.05.2007 15:37