Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 02.08.2010
Сообщений: 32

превратить много функций в одну...

03.08.2010, 17:50. Показов 994. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вот вопрос, к примеру я хочу создать свою функцию, в которую прописать функции к примеру, Спрятать один обьект, показать другой, и тд. Т.е. если прописать любому обьекту Object.MyFuncktion, дать этому обьекту функции Hide,show и тд разом.

Даже не представляю как такое осуществить, помогите...
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
03.08.2010, 17:50
Ответы с готовыми решениями:

Много действий на одну кнопку
Здравствуйте! Есть такое задание: решить уравнение по схеме горнера, уравнение любой степени. Есть таблица, и пользователь сам ее...

Поместить в одну dll много кода
Есть простой код: procedure TForm1.Button1Click(Sender: TObject); begin ...

Нужно использовать одну форму много раз. Как скрывать компоненты?
то есть мне надо 1 форму использовать много раз! вот как работать с свойством Visible в Delphi

7
 Аватар для Ztrel
508 / 227 / 42
Регистрация: 14.11.2009
Сообщений: 371
03.08.2010, 17:56
Хм. Может вам нужна не функция, а процедура? Тогда все очень просто...


Delphi
1
2
3
4
5
6
7
Procedure TForm1.MyProc (Sender: TObject);
begin
 
MyObject.Hide; MyObject2.Show;
// И т.д...
 
end;
Добавлено через 2 минуты
Не забудьте только ее объявить в разделе объявления процедур формы... Это наверху, где поочередно описываются компоненты формы... Грубо говоря, вот тут:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
// Вот тут и надо объявить вашу процедуру.
procedure MyProc (Sender: TObject); // Вот и объявили...
  private
    { Private declarations }
  public
    { Public declarations }
  end;
Добавлено через 1 минуту
Да и в программе ее объявлять будет даже проще...

Delphi
1
MyProc(Sender);
В любом месте...
1
0 / 0 / 0
Регистрация: 02.08.2010
Сообщений: 32
03.08.2010, 18:03  [ТС]
спасибо вам большое буду разбираться
0
 Аватар для Ztrel
508 / 227 / 42
Регистрация: 14.11.2009
Сообщений: 371
03.08.2010, 18:04
Вперед к новым свершением!
0
0 / 0 / 0
Регистрация: 02.08.2010
Сообщений: 32
03.08.2010, 18:13  [ТС]
чтото не получается у меня с процедурой сработать...
Delphi
1
2
3
4
5
6
7
Procedure TForm1.My (Sender: TObject);
begin
 
Image1.Hide; Image3.Hide;
 
 
end;
вызывать теперь ее как можно поподробнее?.. в паскале все просто... а тут...
0
 Аватар для Vas-e-na
420 / 417 / 79
Регистрация: 21.06.2010
Сообщений: 1,362
03.08.2010, 19:43
ваша функция должна срабатывать на событие или просто нужен её вызов в коде программы???
0
0 / 0 / 0
Регистрация: 02.08.2010
Сообщений: 32
03.08.2010, 19:51  [ТС]
Вообще было бы хоро и то и то, но приоритетнее первое. Со вторым я уже разобрался...
0
 Аватар для Vas-e-na
420 / 417 / 79
Регистрация: 21.06.2010
Сообщений: 1,362
03.08.2010, 20:44
тогда тебе нужно:
1. Выбрать объект на форме (или же саму форму) на событие которого ты хочешь вызывать свою процедуру
2. На вкладке События (второй таб Свойства) выбрать интересующее тебя событие и дважды кликнуть
(после этого автоматически сгенерируется тело процедуры - это и есть та процедура которая будет выполнятся при этом событии)
3. Пиши в тело процедуры всё что хочешь чтобы выполнялось на событие...

Добавлено через 1 минуту
PS хороший совет - почитайте литературу, там написано намного больше чем я смогу здесь изложить и мне не надоест при этом печатать...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
03.08.2010, 20:44
Помогаю со студенческими работами здесь

Очень много функций, что делать?
В программе порядка 50 массивных функций, сейчас они находятся в отдельном модуле? Это вообще нормально или необходимо засунуть их в dll?...

Переопределить одну из функций helper
Как сделать чего-то такого: interface type TStringHelper = record helper(TStringHelper) for string function ToInteger:...

Упрощение функций или объединение их в одну
Есть 2 функции: function ElseConnect(url: String): Boolean; var hSession, hURL: HInternet; bResult : Boolean; Buffer :...

Две Windows 7 превратить в одну
Всем привет! Вот моя история. Стояла заводская Windows 7 (x64) Домашняя базовая и куча полезных фич от Sony для бука VAIO. Среди...

Как проще всего превратить запросом одну запись в набор?
Добрый день! Подскажите, пожалуйста, как сделать следующий запрос. Есть таблица MS Access 2000: Начало_выпуска - целое...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 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-код на мобильном. Вращайте камеру одним пальцем,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru