Глюк при создании компонента динамически

@CybSys · Регистрация: 05.02.2011

Студворк — интернет-сервис помощи студентам

При формировании таблицы в двах столбцах (m и h) динамически создаются компоненты edit. Но после формирования и щелчке мышкой по другим ячейкам снова создается жтот компонент, см видео. что такое и как это поправить?

@volvo · 10.12.2012, 15:05

Сообщение от CybSys

как это поправить?

Создавать компонент правильно.

Поскольку кода ты не привел, я его тоже приводить не буду...

@CybSys · 10.12.2012, 15:11 **[ТС]**

сорри, код таков:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 for i := 1 to CountTestsInSeries do  begin
        MainForm.StringGrid1.Cells[0, i]:=IntToStr(i);
     edit:= Tedit.Create(MainForm.StringGrid1);    //  создаем компоненты едит
     edit.Parent:= MainForm.StringGrid1;
            edit.Name:='editM'+IntToStr(i);
            edit.Top:=25*(i);
            edit.Left:=405;
            edit.Width:=100;
            edit.Height:=25;
            //edit.Text:='';
 
      edit:= Tedit.Create(MainForm.StringGrid1);    //  создаем компоненты едит
      edit.Parent:= MainForm.StringGrid1;
             edit.Name:='editH'+IntToStr(i);
            edit.Top:=25*(i);
            edit.Left:=505;
            edit.Width:=100;
            edit.Height:=25;
            //edit.Text:='';
      end;

@DaMortum · 10.12.2012, 15:19

Эдиты создаются относительно координат сетки. Прокрутка при этом никак не учитывается.

@CybSys · 10.12.2012, 16:28 **[ТС]**

прокрутка не учитывается.

Добавлено через 15 минут
а как учесть прокрутку?

Добавлено через 41 минуту
как тогда едиты привязать к конкретному столбцу?

@DaMortum · 10.12.2012, 16:55

Сообщение от CybSys

а как учесть прокрутку?

как тогда едиты привязать к конкретному столбцу?

Мне вот тоже интересно. Кстати, зачем это всё нужно?

@CybSys · 10.12.2012, 17:02 **[ТС]**

Сообщение от DaMortum

Мне вот тоже интересно. Кстати, зачем это всё нужно?

в ходе работы таблица в программе будет заполняться (автоматически, первые 3 колонки), после этого, пользоватеть вводит массу и длину, и заполняются остальные колонки.

@DaMortum · 10.12.2012, 17:04

Сообщение от CybSys

в ходе работы таблица в программе будет заполняться (автоматически, первые 3 колонки), после этого, пользоватеть вводит массу и длину, и заполняются остальные колонки.

Почему нужны именно эдиты, можно ведь вводить данные прямо в сетку.

@CybSys · 10.12.2012, 17:17 **[ТС]**

Сообщение от DaMortum

Почему нужны именно эдиты, можно ведь вводить данные прямо в сетку.

Дада, у stringGrid-a есть что то для ввода, но поленился разобраться. Может тогда подскажете как?

@DaMortum · 10.12.2012, 17:27

Сообщение от CybSys

Дада, у stringGrid-a есть что то для ввода, но поленился разобраться. Может тогда подскажете как?

Динамически создавать кучу эдитов не поленился, а там всего-то нужно в инспекторе объектов в опциях выставить goEditing в true.

@CybSys · 10.12.2012, 17:33 **[ТС]**

ага, разобрался немного, сам спросил сам ответил
свойство Option.onEditing:= true
но мне надо стобы не во все ячейки можно было вводить значения а только в определенные.

Добавлено через 5 минут
чуть опередил.
"но мне надо стобы не во все ячейки можно было вводить значения а только в определенные."- и с этим вроде разобрался )

@DaMortum · 10.12.2012, 17:48

Сообщение от CybSys

и с этим вроде разобрался )

Интересно как?
Можно, например, в событии OnSelectCell написать:

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if (ACol = 3) or (ACol = 4) then //Номера колонок
    StringGrid1.Options := StringGrid1.Options + [goEditing]
  else
    StringGrid1.Options := StringGrid1.Options - [goEditing];
end;

Или так:

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if (ACol = 3) or (ACol = 4) then
    CanSelect := true
  else
    CanSelect := false;
end;

@CybSys · 10.12.2012, 17:50 **[ТС]**

Pascal
1
2
3
4
5
6
7
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if (ACol = 3) or (ACol = 4) then //Номера колонок
    StringGrid1.Options := StringGrid1.Options + [goEditing]
  else
    StringGrid1.Options := StringGrid1.Options - [goEditing];

Вот так и сделал один в один )

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@CybSys 0 / 0 / 0 Регистрация: 05.02.2011 Сообщений: 20

	Глюк при создании компонента динамически 10.12.2012, 15:00. Показов 1082. Ответов 12 Метки нет (Все метки) При формировании таблицы в двах столбцах (m и h) динамически создаются компоненты edit. Но после формирования и щелчке мышкой по другим ячейкам снова создается жтот компонент, см видео. что такое и как это поправить? 0

@DaMortum 251 / 156 / 31 Регистрация: 07.10.2012 Сообщений: 401
	10.12.2012, 15:19
	Эдиты создаются относительно координат сетки. Прокрутка при этом никак не учитывается. 0

@CybSys 0 / 0 / 0 Регистрация: 05.02.2011 Сообщений: 20
	10.12.2012, 16:28 [ТС]
	прокрутка не учитывается. Добавлено через 15 минут а как учесть прокрутку? Добавлено через 41 минуту как тогда едиты привязать к конкретному столбцу? 0

@CybSys 0 / 0 / 0 Регистрация: 05.02.2011 Сообщений: 20
	10.12.2012, 17:33 [ТС]
	ага, разобрался немного, сам спросил сам ответил свойство Option.onEditing:= true но мне надо стобы не во все ячейки можно было вводить значения а только в определенные. Добавлено через 5 минут чуть опередил. "но мне надо стобы не во все ячейки можно было вводить значения а только в определенные."- и с этим вроде разобрался ) 0