Перейти к содержанию
Fire Monkey от А до Я
  • 0

Не получается программно создать компонент в runtime


Виктор

Вопрос

На примере image, но не получилось не с одним...

Image:=TImage.Create(FForder);
Image.Parent:=FForder.ScrollBox1;
Image.Name:='Image'+inttostr(Count);
Image.Visible:=True;
Image.Height:=200;
Image.Width:=200;
Image.Position.X:=Count*WCount;
Image.Position.Y:=Round(Count/WCount)*200;
Image.Bitmap.LoadFromFile(FForder.Memo1.Lines[Count-1]);

Пробовал и с кнопкой и с label

Button:=TButton.Create(FForder);
Button.Parent:=FForder;
Button.Visible:=True;
Button.Height:=200;
Button.Width:=200;
Button.Position.X:=200;
Button.Position.Y:=200;
Button.BringToFront;
Button.Text:='sdf';
Button.Name:='Button'+inttostr(Count+2);
Button.Align:=TAlignlayout.alClient;
FForder.ScrollBox1.Repaint;

Не появляется компонент на форме и все тут... Я уже даже растягивание поставил, что бы точно убедиться что он не создается за пределами формы. 

Вопрос. Подскажите пожалуйста, что я делаю не так?

Ссылка на комментарий

Рекомендуемые сообщения

  • 0
  • Модераторы

1. Пожалуйста, оформляйте посты по правилам.

2. Вот такой код, у меня работает отлично (на Windows 7):

var
  MyImage: Timage;
begin
  MyImage:=TImage.Create(Form1);
  MyImage.Parent:=Form1.ScrollBox1;
  MyImage.Name:='Image45';
  MyImage.Visible:=True;
  MyImage.Height:=200;
  MyImage.Width:=200;
  MyImage.Position.X:=150;
  MyImage.Position.Y:=150;
  MyImage.Bitmap.LoadFromFile('MyImage.png');

Для кнопки, тоже рабочий код:

Не понял зачем вы перерисовываете ScrollBox1, кнопку ведь на Форме создаёте.

var
  Button: TButton;
begin
  Button:=TButton.Create(Form1);
  Button.Parent:=Form1;
  Button.Visible:=True;
  Button.Height:=200;
  Button.Width:=200;
  Button.Position.X:=200;
  Button.Position.Y:=200;
  Button.BringToFront;
  Button.Text:='sdf';
  Button.Name:='Button45';//+inttostr(Count+2);
//Form1.ScrollBox1.Repaint;
Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...