ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Delphi MDI + компоненты в режиме Run-Time
   
Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра

Delphi MDI + компоненты в режиме Run-Time
  #1  
Старый 20.05.2010, 15:26
Sams
Участник форума
Регистрация: 18.04.2009
Сообщений: 120
Провел на форуме:
435863

Репутация: 80
По умолчанию Delphi MDI + компоненты в режиме Run-Time
Раньше никогда не было потребности, но вот сейчас понадобился такой прекрасный "режим" как Run-Time, тобишь создание компонентов/окон в уже запущенной программе.

1. Начнём с компонентов:
Создаю я например компонент TEdit вот таким способом

Код:
var
x: TEdit;

procedure TForm1.Button1Click(Sender: TObject);
begin
x := TEdit.Create(self);
x.Parent := Form1;
x.Left := 10;
x.Top := 10;
end;
Если много раз клацать на кнопку, то создаётся много текстовых полей (правда в данной примере они налаживаются друг на друга, то как координаты всегда будут (10; 10), но я проверял, заменив координаты переменными, которые при каждом нажатии увеличивал). И собственно от сюда вытекает вопрос:

Какие имена присваиваются второму, третьему и т.д. полям, ведь я указал имя "x" ( var x: TEdit; ) то есть это имя первого поля, а остальные-то не могут быть названы так же
Я думал, может x[номер поля], но ничего подобного.

---------------------------------------------------------------------------------------------------------

С этим вопросом разобрался, вот ответ:
Цитата:
А конкретнее х будет указывать уже на новый компонент, а к старому ты никак не сможешь обратится, только по имени. Потеряется ссылка на него.(с) GhostOnline
Как положено - разобрался сам, помоги другим. Потому чуток пораскинув мозгами и почитав дополнительную литературу, пришел к выводу, что работать с компонентами не обязательно через массив.
Можно сделать по такой схеме:
1. Создаём компонент.
2. Заносим в объект TList указатель на этот компонент.
3. Для обращения к любому из компонентов вытягиваем указатель из TList.

Таким образом мы не ограничиваемся размером массива.

Покажу на примере (кинем на форму не одну кнопку, а две. Одна будет создавать поля, а другая - поменяет текст в определенном поле):

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a, y: integer;
  ListComp: TList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ListComp := TList.Create;
a := 10;
y := 10;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x: TEdit;

begin
x := TEdit.Create(self);
x.Parent := Form1;
x.Top := y;
x.Left := a;
ListComp.Add(x);
a := a + 20;
y := y + 20;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
TEdit(CompList.Items[2]).Text := 'lol'; //Эта строка меняет текст в третьем текстовом поле. Номер текстового поля указываем в CompList.Items[номер полня] (счет ведется с нуля).
end;

end.
Создаём первой кнопкой несколько полей (больше, чем 3) и клацаем вторую кнопку - меняется содержимое третьего поля.


2. Проблема с дочерними MDI окнами:
1. Создаю основную форму ( Form.Style := fsMDIForm ).
2. Создаю MDI форму ( From.Style := fsMDIChild ).
3. В Project - Options перекидываю MDIchild форму в раздел Available forms.
4. По идее на основной форме нужно создать кнопку с кодом:

Код:
<имя дочерней формы> := TChildForm.Create(Owner);
Но надо как-то связать основную форму с MIDChild. Пробовал прописать в разделе uses модуль с MIDChild, но нихрена не дало

---------------------------------------------------------------------------------------------------------

С этим вопросом тоже разобрался, вот ответ:

Такс, с MDI окнами тоже разобрался.
Создаём две формы - Form1, Form2.
Form1.FormStyle := fsMDIForm;
Form2.FormStyle := fsMDIChild;

В Unit1, в разделе uses дописываем Unit2:
uses
......, Unit2;

На Form1 кидаем две кнопки (первая создаёт окна, вторая меняет заголовок определенного ока):

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Owner);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.MDIChildren[2].Caption := 'Woohoo'; // Номер MDI окна указываем тут MDIChildren[номер окна]
end;
Последний раз редактировалось Sams; 20.05.2010 в 18:20..
 
Ответить с цитированием

  #2  
Старый 20.05.2010, 15:58
GhostOnline
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081

Репутация: 84
По умолчанию
Насчет первого вопроса - x это всего лишь название переменной а не компонента. Название компонента можно установить/прочитать так: x.Name
Насчет второго не скажу, с MDI никогда не работал, ибо не нужно было
Но убери создание, т.к. эта форма у тебя уже в avalable forms значит по идее создается автоматически. Просто "имя дочерней формы".Show или как там для mdi окон

Сорри, ступил.
Значит так, следующий код показал дочернее mdi окно у меня, при том что окно этой формы в avalaible forms:
Form2 := TForm2.Create(self);
Form2.Show;
где TForm2 - класс вторичной формы и свойства выставлены как у тебя
Последний раз редактировалось GhostOnline; 20.05.2010 в 16:06..
 
Ответить с цитированием

  #3  
Старый 20.05.2010, 16:11
Sams
Участник форума
Регистрация: 18.04.2009
Сообщений: 120
Провел на форуме:
435863

Репутация: 80
По умолчанию
Цитата:
Насчет первого вопроса - x это всего лишь название переменной а не компонента. Название компонента можно установить/прочитать так: x.Name
Это немного не то. Например я таким образом создал 5 полей, как мне изменить свойство Text в 4-ом поле?! Ведь имя я указывал только одно - "х".

Цитата:
Сорри, ступил.
Значит так, следующий код показал дочернее mdi окно у меня, при том что окно этой формы в avalaible forms:
Form2 := TForm2.Create(self);
Form2.Show;
где TForm2 - класс вторичной формы и свойства выставлены как у тебя
Это показать лишь одно, а если мне надо создать штук 10 динамично на основе одного класса с одним именем, и получать к ним доступ через свойство MDIChildren[номер]?

----------------------------------------

Добавлено:
В общем насколько я понял, в моём примере, runtime заключается в создании неограниченного количества однотипных объектов имеющих одно общее имя, обращение к которым происходит при помощи определенного свойства имеющего структуру массива.
Последний раз редактировалось Sams; 20.05.2010 в 16:18..
 
Ответить с цитированием

  #4  
Старый 20.05.2010, 16:17
GhostOnline
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081

Репутация: 84
По умолчанию
Цитата:
Это немного не то. Например я таким образом создал 5 полей, как мне изменить свойство Text в 4-ом поле?! Ведь имя я указывал только одно - "х".
Создавая поле, присваивай ему уникальное имя Name и обращайся к нему по имени
procedure TForm1.Button2Click(Sender: TObject);
var x : TEdit;
begin
x := TEdit.Create(self);
x.Name := 'Edit1';
x.Parent := self;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
TEdit(FindComponent('Edit1')).Text := 'I''ve found you!';
end;

Еще раз повторяю: х - название переменной, а не компонента
 
Ответить с цитированием

  #5  
Старый 20.05.2010, 16:21
Sams
Участник форума
Регистрация: 18.04.2009
Сообщений: 120
Провел на форуме:
435863

Репутация: 80
По умолчанию
Цитата:
Еще раз повторяю: х - название переменной, а не компонента
Но ведь ты же обращаешься к компоненту именно через имя этой переменной. Я не полный баран в делфи, да и программирую не первый год, просто никогда не работал с runtime.
 
Ответить с цитированием

  #6  
Старый 20.05.2010, 16:26
GhostOnline
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081

Репутация: 84
По умолчанию
Цитата:
Я не полный баран в делфи, да и программирую не первый год, просто никогда не работал с runtime.
Если так, то почему не заюзаешь обычный массив?
Edits : array of TEdit
Я то подумал у тебя нестандартная задача, и предложил нестандартное решение

ПС я программирую меньше года
 
Ответить с цитированием

  #7  
Старый 20.05.2010, 16:28
Sams
Участник форума
Регистрация: 18.04.2009
Сообщений: 120
Провел на форуме:
435863

Репутация: 80
По умолчанию
Цитата:
Создавая поле, присваивай ему уникальное имя Name и обращайся к нему по имени
procedure TForm1.Button2Click(Sender: TObject);
var x : TEdit;
begin
x := TEdit.Create(self);
x.Name := 'Edit1';
x.Parent := self;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
TEdit(FindComponent('Edit1')).Text := 'I''ve found you!';
end;
Как написано в книге (которую именно сейчас я держу в руках и листаю), создается неограниченное количество МДИ окон с одним именем, а потом обращение к ним происходит через свойство MDIChildren[номер окна]
 
Ответить с цитированием

  #8  
Старый 20.05.2010, 16:31
Sams
Участник форума
Регистрация: 18.04.2009
Сообщений: 120
Провел на форуме:
435863

Репутация: 80
По умолчанию
В случае с компонентами так и делают - создают массив, но мне интересно, делфи шпарит до посинения при нажатии на кнопку текстовые поля, какие тогда у них имена, как к ним обращаться? С массивом всегда успею сделать
 
Ответить с цитированием

  #9  
Старый 20.05.2010, 16:32
GhostOnline
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081

Репутация: 84
По умолчанию
Цитата:
Как написано в книге (которую именно сейчас я держу в руках и листаю), создается неограниченное количество МДИ окон с одним именем, а потом обращение к ним происходит через свойство MDIChildren[номер окна]
Все это делается через обычные динамические массивы

Цитата:
В случае с компонентами так и делают - создают массив, но мне интересно, делфи шпарит до посинения при нажатии на кнопку текстовые поля, какие тогда у них имена, как к ним обращаться? С массивом всегда успею сделать
Блин..
есть переменная например edit
делая так edit := TEdit.Create(self); ты создаешь компонент и эта переменная указыват на этот компонент.
Если ты повторишь эту процедуру - создашь новый компонент и эта переменная будет указывать уже на новый, а старый "потеряется". Откуда дельфе знать, может тебе надоело это поле и ты решил его выкинуть? А вот Name - уникальное, дельфи не даст тебе создать 2 компонента с одним именем. Так что если не хочешь использовать массивы - делай через Name как я тебе написал. Все, вопросов после этого остаться не должно я думаю.
Последний раз редактировалось GhostOnline; 20.05.2010 в 16:37..
 
Ответить с цитированием

  #10  
Старый 20.05.2010, 16:34
Sams
Участник форума
Регистрация: 18.04.2009
Сообщений: 120
Провел на форуме:
435863

Репутация: 80
По умолчанию
Ну тут без создания массива. Создается лишь одна переменная типа TChildForm;
 
Ответить с цитированием
Ответ
Страница 1 из 2 1 2 >



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Литература Delphi Sams С/С++, C#, Delphi, .NET, Asm 2 19.03.2010 19:46
Books PSalm69 Избранное 248 27.10.2009 04:52



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ