Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
ВасильевСА
8 / 8 / 2
Регистрация: 01.12.2015
Сообщений: 176
1

Расстояние между динамически созданными объектами

18.08.2016, 19:21. Просмотров 829. Ответов 3
Метки нет (Все метки)

Всем здравствуйте, помогите пожалуйста между динамически созданными объектами сделать расстояние, никак не могу понять почему они "слипшиеся". Исходник программы прикладываю. С Уважением, форумчанин.
0
Вложения
Тип файла: 7z Shape.7z (371.6 Кб, 5 просмотров)
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.08.2016, 19:21
Ответы с готовыми решениями:

Действия с динамически созданными объектами
Доброго времени суток. Помогите решить проблему. На форме есть кнопка, по нажатию которой создается...

Связь между динамически созданными компонентами (TImage и TLabel)
Здравствуйте! У меня возникла проблема при попытке связи динамически созданных TImage и TLabel....

Работа с динамически созданными компонентами
Добрый вечер. Подскажите, при нажатии на батон у меня создаются батон и 4 эдита, они хранятся в...

Событие Onclick под динамически созданными кнопками.
Привет всем помогите решить проблему. Есть база данных. Считываю по строке из базы данных и...

Перемещение между объектами
Как сделать так, чтобы, предположим, в группе объектов Edit в виде сетки 3х3 или 5х5 можно было...

3
Puporev
Модератор
56610 / 43293 / 29932
Регистрация: 18.05.2008
Сообщений: 102,999
18.08.2016, 19:38 2
Например так.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.FormCreate(Sender: TObject);
var
  x,y,d: Integer;
 
begin
  d:=ClientHeight div 11;
  y:=d;
  for x := 0 to 9 do
    begin
      i := TShape.Create(Self);
      i.Parent := ScrollBox2;
      i.Height := d;
      i.Width := 265;
      i.Left := 8;
      i.Top := y;
      i.Shape := stRoundRect;
      i.Name := 'MyShape' + IntToStr(x+1);
      i.Hint := i.Name;
      i.ShowHint := True;
      i.Cursor := crHandPoint;
      y:=y+2*d;
    end;
end;
1
ВасильевСА
8 / 8 / 2
Регистрация: 01.12.2015
Сообщений: 176
18.08.2016, 19:40  [ТС] 3
Спасибо Вам большое! Для меня это существенная подсказка на будущее!
0
Puporev
Модератор
56610 / 43293 / 29932
Регистрация: 18.05.2008
Сообщений: 102,999
18.08.2016, 19:58 4
Лучший ответ Сообщение было отмечено ВасильевСА как решение

Решение

Кстати там нужно не div 11, a div 21. И вообще подобрать d, или вообще задать разные значения для высоты и просветов.

Добавлено через 10 минут
Например так.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.FormCreate(Sender: TObject);
var
  x,y,h,p: Integer;
begin
  p:=10;
  h:=30;
  ScrollBox2.Height:=10*h+11*p;
  y:=p;
  for x := 0 to 9 do
    begin
      i := TShape.Create(Self);
      i.Parent := ScrollBox2;
      i.Height := h;
      i.Width := 265;
      i.Left := 8;
      i.Top := y;
      i.Shape := stRoundRect;
      i.Name := 'MyShape' + IntToStr(x+1);
      i.Hint := i.Name;
      i.ShowHint := True;
      i.Cursor := crHandPoint;
      y:=y+h+p;
    end;
end;
Кстати в предыдущем коде нужно вместо d:=ClientHeight div 11; написать d:=ScrollBox2.Height div 11;
1
18.08.2016, 19:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.08.2016, 19:58

Компонента с визуальными объектами и связями между ними
Требуется визуально сделать что то вроде связных графов с возможностью добавления узлов...

Обмен данными между двумя объектами Memo
Разработать программу, обеспечивающую обмен данными между двумя объектами Memo, (т.е. текст должен...

Взаимное выполнение действий между 3 и более объектами
Пишу программу для взаимного выполнения действий между 3 и более объектами К примеру за основу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru