![]() |
|
|
|
|
#1
|
|||
|
|||
|
Всем привет. Как нужно вставить код в уже размещенный компонент с помощью кода?
|
|
#2
|
||||
|
||||
|
Если я правильно понял вопрос, то вам нужен хелпер. Это специальный класс, который позволяет интегрировать пользвательские свойства/методы в уже существующий клас. Выглядит это примерно так
|
|
#3
|
|||
|
|||
|
а что за тело программы?
|
|
#4
|
||||
|
||||
|
У вас есть какой-то свой проект. И на одной из форм лежит компонент функционал которого вы хотите улучшить своим кодом. У формы есть модуль, вот в этом модуле и надо размещать код.
|
|
#5
|
|||
|
|||
|
Цитата:
Ия не собираюсь улучшать компонент. Я хочу при нажатии на буттон размещались компоненты, но кнопки переимновать и открыть не работают тк в них не размещен код. Я хочу как то разместить в нем код. Последний раз редактировалось TotKtoNado, 01.01.2011 в 13:38. |
|
#6
|
||||
|
||||
|
Ты имеешь в виду создание компонентов в run time.
На хороший код не рассчитывай, 12 часов дня, 1 число, но все же. Код:
procedure TForm1.Click(Sender: TObject);
begin
ShowMessage('Вы нажали на кнопку.');
end;
...
var
Btn: TButton;
begin
Btn := TButton.Create(Form1);
With Btn1 do begin
parent:=self;
caption:='button';
OnClick := Click;
end; |