VPF::Form1 - Форум программистов

slavonX86

Дата 7.3.2006, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Как зделать чтобы не дописывать перед компонентами Form1, если процедура находится в другом модуле !?

Только не таким способом
With Form1 do
Begin
...
End;

Samhein

Дата 7.3.2006, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Башзэфашовец

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

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

напиши эту процедуру в нужном разделе

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

Знаю форум наизусть, но писать еще боюсь

Демо

Дата 7.3.2006, 21:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Цитата(slavonX86 @ 7.3.2006, 21:47

)

Только не таким способом

Form1 - Объект класса TForm1.

В Object Pascal для обращения к полям и методам объекта есть только 2 варианта:

1. MyObject.MyMethod
2. with MyObject do MyMethod; end;

Поэтому по-другому не получится.

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

MIX55

Дата 7.3.2006, 22:01 (ссылка)

(нет голосов)

Загрузка ...

много работы

Профиль
Группа: Awaiting Authorisation
Сообщений: 208
Регистрация: 23.10.2005
Где: Здесь

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

поместить процедуру в модуль в котором она используется

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

Hарод, а как в дельфи писать паскалевские проги....?*********************************************Жизнь слишком коротка, чтобы писать на Assembler'e

former

Дата 7.3.2006, 22:47 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

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

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

Подключи к этому модулю Unit Form1 и используй, например:

Код


Form1.Edit1.Text:='Текст';

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Sunvas

Дата 12.3.2006, 02:22 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

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

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

Попробовать можно еще и так:

Код


procedure TForm2.Button1Click(Sender: TObject);
var edit1:tedit;
begin
edit1:=form1.Edit1;
edit1.Text:='Новый текст';
end;

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

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