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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ссылка на форму, как установить ссылку с form5  на form1? 
:(
    Опции темы
lamka
  Дата 21.9.2002, 03:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
во-первых, извиняюсь за ошибки, допущенные в предыдущем топики - буду знать.
во-вторых, мне нужна помощь по следующему:
:withstupid как установить ссылку, например, form5 - на процедуру формы1 (form1)? То есть, мне надо чтобы в form5 выполнилась процедура в form1... как это осуществить plz..?
Благодарю за ответ!
PM MAIL   Вверх
RA
Дата 21.9.2002, 04:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


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

Репутация: 14
Всего: 115
Я не понял как понять
Цитата
чтобы в form5 выполнилась процедура в form1


Ну да фиг с ней, если нужная процедура в форме 5 а ты хошь её запустить из Формы 1 то для начала  после строки "implementation"
напиши: "uses Unit5;"

А потом просто

procedure TForm1.Button1Click(Sender: TObject);
begin
Form5.MyCoolProcedure;
end;
PM   Вверх
Vit
Дата 21.9.2002, 04:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Твоя процедура должна быть описана в interface секции, тогда просто:

Описание процедуры:
Код

unit Unit1;

interface

Procedure MyProcedure;

implementation

Procedure MyProcedure;
begin
 //doing something
end;

end.


Вызов процедуры:

Код

unit Unit2;

interface

implementation

Uses Unit1;

Procedure MyProc;
begin
 MyProcedure;
//или если процедура с таким же исенем встречается в других модулях то можно вызывать указывая имя модуля:
 Unit2.MyProcedure;

end;

end.


Если тебе надо вызвать метод объекта (например формы) то это будет выглядеть немного не так.

В описании метода ты должен поставить его как Public:

Код

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
 private
 public
   Procedure MyMethod;
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.MyMethod;
begin
//do something
end;

end.


Вызов из другого модуля:
Код

unit Unit2;

interface

implementation

Uses Unit1;

Procedure MyProc;
begin
 Form1.MyMethod;
end;

end.



--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
lamka
  Дата 21.9.2002, 04:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
все понятно - thx!
PM MAIL   Вверх
Mikel
Дата 21.9.2002, 20:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
Цитата(lamka @ 20.9.2002, 21:35)
все понятно - thx!

Я надеюсь, про правила форумов тебе тоже понятно, а то буду поступать, как Vit и ещё переименовывать твои "?" "Вопрос"


--------------------
...so remember, it's better to burn out than to fade away
PM MAIL ICQ   Вверх
lamka
Дата 21.9.2002, 21:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Mikel @ 21.9.2002, 13:43)
Цитата(lamka @ 20.9.2002, 21:35)
все понятно - thx!

Я надеюсь, про правила форумов тебе тоже понятно, а то буду поступать, как Vit и ещё переименовывать твои "?" "Вопрос"

так вроде же щас нормально написал и тему и описание... или все равно плохо?
PM MAIL   Вверх
Wowa
Дата 21.9.2002, 21:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
Group Icon


Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

Репутация: нет
Всего: 290
Цитата(lamka @ 21.9.2002, 12:51)
так вроде же щас нормально написал и тему и описание... или все равно плохо?

Сейчас все Ок.
PM WWW   Вверх
Mikel
Дата 21.9.2002, 23:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
www.borland.xportal.ru/forum
вот там он "наворочал" :D . Уже исправлено.


--------------------
...so remember, it's better to burn out than to fade away
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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