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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.10.2024, 05:23   #1
АНАТОЛИЙ249
Пользователь
 
Регистрация: 05.02.2007
Сообщений: 93
По умолчанию Динамическое создание Панелей

Здравствуйте всем.
Вопрос создаю динамически несколько панелей 1,2,3,4,5 .
Cвойство ALIGN у них у всех=alleft ,но располагаются они не правильно.
Отображаются они зеркально по чему то 5,4,3,2,1.
Что делаю не так.?
Было такое ,но не помню что надо дописать ,что бы было нормальное расположение.
Делаешь свойство у панелей =Altop, тоже самое ,последняя созданная панель выше чем первая ,первая самая низкая.
Спасибо.
Код:

  Type
  TPanelprd=record
  Panelp:TPanel;
  IMG:Timage;
  Count:integer;
  labms:Tlabel;
  labotms:Tlabel;
  LabkCB:Tlabel;
  id:integer;
  end;


    Type
  TPanelprm=record
  Panelm:TPanel;
  IMG:Timage;
  Count:integer;
  labSN:Tlabel;
  labMRG:Tlabel;
  id:integer;
  end;


Type
  TPanelNASPunkt=record
  Panel:TPanel;
  IMG:Timage;
  Count:integer;
  PanelPRD:array[0..10] of  TPanelprd;
  PanelPRM:array[0..10] of  TPanelprm;
  naznsp:string;
  end;


var
count:integer;
      PanelNASPunkt:array[0..10] of  TPanelNASPunkt;



procedure TForm4.addPanel(Nasp:string);
begin
 PanelNASPunkt[count].Panel:= TPanel.Create(scrollbox1);
  PanelNASPunkt[count].Panel.Parent:=scrollbox1;
 PanelNASPunkt[count].Panel.name:='Panel'+inttostr(count);
 PanelNASPunkt[count].Panel.visible:=true;
 PanelNASPunkt[count].Panel.Align:=alleft;
PanelNASPunkt[count].Panel.Width:=350;
 PanelNASPunkt[count].Panel.visible:=true;
 PanelNASPunkt[count].Panel.Bevelinner:=bvLowered;
 PanelNASPunkt[count].Panel.BevelWidth:=2;
 PanelNASPunkt[count].count:=count;
inc(count);

Последний раз редактировалось АНАТОЛИЙ249; 14.10.2024 в 05:33.
АНАТОЛИЙ249 вне форума Ответить с цитированием
Старый 14.10.2024, 13:24   #2
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,840
По умолчанию

есть подозрение, что они создаются с 1 по 5, но нумерация сдвигается с X на X+1 позицию. в итоге самая первая созданная панель в конце имеет номер 5.
уничтожаются динамические объекты с последнего до первого по списку.
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 16.10.2024, 09:53   #3
АНАТОЛИЙ249
Пользователь
 
Регистрация: 05.02.2007
Сообщений: 93
По умолчанию

NetSpace, Вообще не понятно, имя панелей так же от 1 до 5 ,но расположены не в том порядке ,если я не делаю ALLeft ,а делаю сам что у PanelNASPunkt[count].Panel.left:= PanelNASPunkt[count].Panel.left+350 , то тогда панели располагаются в нормальном порядке 1,2,3,4,5.
Проблема что то с ALLEFT.
АНАТОЛИЙ249 вне форума Ответить с цитированием
Старый 17.10.2024, 15:05   #4
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,840
По умолчанию

я динамически создавал только Image и указывал их положение на форме программы, в них загружал рисунки. проблем с расположением не было.
что тут у вас и почему - трудно сказать.
есть какой-то второй (пусть даже и корявый) способ их потом поставить на нужное место?
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа. Delphi 7: Есть 10 панелей с вопросами и 10 панелей с ответами ,ответы и вопросы загружаются из файла,перемешиваются... Kolya23 Помощь студентам 5 05.10.2015 21:57
Динамическое создание dll Serezzza C# (си шарп) 4 23.08.2013 11:11
Динамическое создание romanzi Общие вопросы Delphi 1 24.08.2011 12:20
Создание панелей с заголовком Homer_J_Simpson Общие вопросы по Java, Java SE, Kotlin 3 05.12.2009 10:42
Динамическое создание массива Juggernaut Общие вопросы Delphi 3 20.05.2009 15:13