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

> ВНИМАНИЕ!

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

> Создание объектов
Unconnected
сообщение 7.06.2009 20:04
Сообщение #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 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 21.06.2009 20:15
Сообщение #2


Гость






Странно, не должно быть проблем (на стандартных TPanel/TSpeedButton работает, проверил)... Но попробуй все-таки явно указать везде вместо Self класс твоей формы, может у тебя кнопка лежит на панель на какой-нибудь, и это дает такой результат (кнопка-то нестандартная, панель - тоже, мало ли что там наворотили).

Цитата
Причём до сегодня всё нормально отрабатывало..
Это еще более странно. Значит. рассказывай, что добавлял сегодня, что куда перемещал, может, перенес кнопку на какой-то GroupBox, или еще что-то, связанное с Parent-ом?
 К началу страницы 
+ Ответить 

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


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

 



- Текстовая версия 12.07.2025 20:03
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"