IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Создание объектов
сообщение
Сообщение #1


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Привет всем.
Вопрос: как можно создать объект в выбранном месте формы? Я пробовал так:


var panel:TSPanel;
begin
panel:=tsPanel.create(self);
panel.Top:=100;
panel.Left:=30;
panel.Height:=50;
panel.width:=50;
panel.show;
end;


И ничего не появляется..


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Мы ничего ничему не присваиваем. Просто выводим окошко с названием компонента...

Цитата
И как это поможет обратиться свойству\методу?
Повторяю: в общем случае обращение к свойству/методу невозможно. Оно становится возможным только, если ты гарантируешь, что вызывать событие будет компонент, у которого ЕСТЬ это свойство, и ты знаешь, каков ТИП этого компонента. Тогда достаточно сделать вот так (для кнопок):
  (Sender as TButton).Caption := 'test';
Но если теперь повесить это же событие на TEdit.OnClick (этого никто не запрещает делать, сигнатура у метода подходящая для OnClick любого компонента), то будет ошибка, так как TEdit нельзя провести к TButton, это разные классы, если повесить на TMemo.OnClick - то же самое, будет ошибка... И даже TLabel, несмотря на то, что там есть Caption, ты обработать не сможешь. У тебя вся функциональность этого события будет ограничена обработкой кнопок...
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Unconnected   Создание объектов   8.06.2009 0:04
Client   добавь //или какая у тя форма   8.06.2009 0:07
Unconnected   Спасибо :)   8.06.2009 0:10
volvo   Panel.Parent := self; Чтоб не гадать, какая форма.…   8.06.2009 0:11
Unconnected   Странная ситуация получается: procedure TForm1.sS…   8.06.2009 0:48
volvo   if panel1=nil then begin // ... end el…   8.06.2009 1:02
Unconnected   Спасибо, работает:)   8.06.2009 1:04
Client   procedure TForm1.SpeedButton1Click(Sender: TObject…   8.06.2009 1:05
Unconnected   И ещё один вопрос, практически по теме... Вот созд…   9.06.2009 0:51
volvo   А Sender на что? Он вообще-то и хранит информацию …   9.06.2009 0:54
Unconnected   :blink: а я и не знал..:( Добавлено через 7 мин.…   9.06.2009 1:08
volvo   У Sender нет свойства Caption, потому что у TEdit-…   9.06.2009 1:22
Unconnected   Непонятно... Вот в этом коде мы чему присваиваем…   9.06.2009 15:31
volvo   Мы ничего ничему не присваиваем. Просто выводим ок…   9.06.2009 16:36
Unconnected   Всё, теперь понял, спасибо за разъяснение:)   9.06.2009 16:55
Unconnected   Сегодня начала появляться ошибка, при создании объ…   21.06.2009 23:53
volvo   Странно, не должно быть проблем (на стандартных TP…   22.06.2009 0:15
Unconnected   Извиняюсь за беспокойство, проблему нашёл, там у и…   22.06.2009 0:28


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 6.09.2025 13:22
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name