Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Rasmussen
0 / 0 / 0
Регистрация: 19.11.2011
Сообщений: 12
#1

Перестроение компонентов в форме по событию - Delphi

19.10.2012, 19:11. Просмотров 442. Ответов 2
Метки нет (Все метки)

Приветствую, друзья.
Собственно, вот что я имею в виду: нужна форма, в начальном состоянии в которой отображено несколько полей для ввода и кнопка. Так вот, каким образом можно сделать так, чтобы после нажатия этой кнопки компоненты внутри формы менялись на другие, заранее заданные и сохранённые, например, во фрейме?

Извиняюсь, если глупо сформулировал вопрос. TPageControl хорош, но он не подходит.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.10.2012, 19:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перестроение компонентов в форме по событию (Delphi):

Расположение компонентов на форме
Здравствуйте. Поскольку я размещаю компоненты на форме путем его выбора в списке компонентов и нажатия добавить на форму потому что я...

Анимация компонентов на форме
Ребят, нужно чтобы при нажатии кнопки на форму снизу выползал shape. Я пытался сделать через цыкл и свойство shape.Top, но цикл ругается:...

Расположение компонентов на форме
Здравствуйте. Возникла проблема. Делаю свой проект на ноутбуке(1336х768). Компоненты расположенные на форме находятся в положении(рис1)....

Положение компонентов на форме
Добрый день. Располагаю компоненты на форме, программно задаю положение. Все хорошо, но когда ставлю свойство формы autosize - происходит...

Перемещение компонентов по форме
В ранних версия делфи можно было перемещать компоненты по форме с помощью клавиатуры нажав ++ В xe5 че то нет такого,ни кто не знает...

Создание компонентов на форме из DLL
Бьюсь уже несколько дней и без результата( Требуется из функции в DLL создать на указанной форме приложения несколько компонентов. ...

2
Одиночка
3933 / 1858 / 337
Регистрация: 16.03.2012
Сообщений: 3,869
20.10.2012, 20:21 #2
Лучший ответ Сообщение было отмечено Rasmussen как решение

Решение

Вот такой вариант. На форме PageControl, который скрыт. Чисто для удобства работы со своими пакетами компонентов. На каждой странице PageControl-а Panel, на которой находятся нужные компоненты. При создании формы - Panel с 0-й страницы контрола перемещается на форму в нужное положение. При очередном нажатии на кнопку - панель, ранее перемещённая на форму сохраняется на свою страницу PageControl-а, а панель со следующей страницы - выносится на форму.
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
procedure TForm1.FormCreate(Sender: TObject);
Var
  i : Integer;
begin
  PageControl1.TabIndex:=0;
  With PageControl1.ActivePage Do
  For i:=0 To ControlCount-1 Do
  If Controls[i] is TPanel Then
  Begin
    CurPanel:=(Controls[i] as TPanel);
    With CurPanel Do
    Begin
      Parent:=Form1;
      Left:=10; Top:=10;
      Visible:=True;
      Break;
    End;
  End;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  i : Integer;
begin
  //Уберём панель на свою страницу контрола
  With PageControl1.ActivePage Do
  With CurPanel Do
  Begin
    Parent:=PageControl1.ActivePage;
    Left:=0; Top:=0;
    Visible:=False;
  End;
  //Берём панель со следующей страницы контрола...
  If PageControl1.TabIndex=PageControl1.PageCount-1 Then
  PageControl1.TabIndex:=0 Else
  PageControl1.TabIndex:=PageControl1.TabIndex+1;
  With PageControl1.ActivePage Do
  For i:=0 To ControlCount-1 Do
  If Controls[i] is TPanel Then
  Begin
    CurPanel:=(Controls[i] as TPanel);
    With CurPanel Do
    Begin
      Parent:=Form1;
      Left:=10; Top:=10;
      Visible:=True;
      Break;
    End;
  End;
end;
1
Вложения
Тип файла: rar Смена элементов на форме.rar (3.8 Кб, 8 просмотров)
Rasmussen
0 / 0 / 0
Регистрация: 19.11.2011
Сообщений: 12
20.10.2012, 20:46  [ТС] #3
Ух ты, вот это любопытно!
Благодарствую!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2012, 20:46
Привет! Вот еще темы с решениями:

Динамическое создание компонентов на форме
Не получается в событии OnCreate компонента Form1 создать, например, кнопку. procedure TForm1.FormCreate(Sender: TObject); var ...

Взаимное расположение компонентов на форме
Задача, в общем, часто встречающаяся: по определенному событию требуется поменять расположение визуальных компонентов на форме, т.е....

Плавное перетаскивание компонентов по форме
Что нужно настроить в delphi 7 чтобы плавно перемещать компоненты по форме т.е чтобы не 366,176 > 344,176 а по одному "милиметру"...

Программное выравнивание компонентов на форме
Задача программно разместить на форме несколько Memo. Располагаться они должны как клетки на шахматной доске, только они могут быть...


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

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

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