Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Одинаковые элементы интерфейса при помощи классов, Тупой вопрос по классам 
:(
    Опции темы
Newo
Дата 7.7.2009, 23:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 24.12.2008

Репутация: нет
Всего: нет



Уже в трех самоучителях прочитал главу про классы, так и не нашел ничего нужного, одна сухая теория...

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

Помогите, пожалуйста. Заранее спасибо
PM MAIL   Вверх
mr.Anderson
Дата 8.7.2009, 00:06 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128



Подожди. Любой элемент интерфейса, если я правильно понимаю, о чем ты (кнопка, меню и т.п.), уже является классом сам по себе. Если ты хочешь просто его продублировать (так?), то я делал просто созданием нового такого же класса и копированием нужных свойств из одного в другой. К примеру, допустим, у тебя есть кнопка (TButton). И у нее есть Caption, который ты хочешь скопировать во все такие же объекты. Тогда мы можем написать функцию дублирования кнопки, к примеру, так:
Код

function DuplicateButton(Source: TButton): TButton;
begin
  Result := TButton.Create(nil);
  Result.Parent := Source.Parent;
  Result.Caption := Source.Caption;
end;

И эта функция вернет нам созданную кнопку, с ней мы уже можем поступить так, как нам угодно.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Newo
Дата 8.7.2009, 00:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 24.12.2008

Репутация: нет
Всего: нет



Да, именно это я и имел в виду
Спасибо!
PM MAIL   Вверх
CodeMonkey
Дата 8.7.2009, 01:41 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89



...а ещё есть такой метод Assign...


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
mr.Anderson
Дата 8.7.2009, 12:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128



CodeMonkey, да, есть. А если я не хочу копировать все свойства? Я привел пример для копирования только некоторых, чтобы был понятен механизм копирования.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Newo
Дата 8.7.2009, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 24.12.2008

Репутация: нет
Всего: нет



Цитата(CodeMonkey @ 8.7.2009,  01:41)
...а ещё есть такой метод Assign...

Можно чуть по-подробнее?
PM MAIL   Вверх
mr.Anderson
Дата 8.7.2009, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128



Этот метод иногда удобен при копировании объектов. Я пока еще толком не понял смысла его работы, к примеру, скопировать с его помощью кнопку в кнопку у меня не получилось. Но я его использовал при копировании свойств класса TStrings, к примеру, так:
Код

procedure CopyListBox(CopyTo: TListBox);
begin
  CopyTo.Items.Assign(ListBox1.Items);
end;

А вообще, его работа описана, к примеру, тут: http://256bit.ru/Delphi7/Glava2/Index4.html .


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
CodeMonkey
Дата 8.7.2009, 19:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89



Да, мой косяк, для контролов Assign не реализован.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0564 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.