Подскажите, как передать параметры форме

← →
skirdov © (2002-11-20 20:22) [0]

У меня имеется модуль Unit1, в котором описана форма. Имеется также модуль Unit2, в котором описана функция, в теле которой имеется вызов формы. Как передать форме параметры? А очень надо...

← →
skirdov © (2002-11-20 21:32) [1]

Не ужели никто не знает? Не верю! :)

← →
Song © (2002-11-20 21:34) [2]

Какие параметры надо передавать?

← →
skirdov © (2002-11-20 21:56) [3]

Например:
- заголовок;
- Информацию о том, какие кнопки на форме должны быть разрешены, а какие запрещены и пр.

Да вообще, любые параметры...

← →
777 © (2002-11-20 22:07) [4]

implementation
uses Unit1;

← →
skirdov © (2002-11-20 22:18) [5]

To: 777

Такая строка есть, но я не совсем понял как это помогает передать параметры...

← →
777 © (2002-11-20 22:23) [6]

А какие параметры?
Что не работает?

← →
Anatoly Podgoretsky © (2002-11-20 22:24) [7]

Полностью помогает, теперь ты можешь "передавать" любые параметры, но так как ты не показываешь вызов формы то трудно что либо сказать

← →
skirdov © (2002-11-20 23:13) [8]

To: Anatoly Podgoretsky и всем остальным, кто еще не спит.

Примерно, это выгладит так:

Модуль с процедурой:
Unit Unit2;
...
implementation
uses unit1
...
...
procedure Proc1;
var cCaption: string;
begin

cCaption := "Заголовок окна";
fmForm := TfmForm.Create (application);
fmForm.ShowModal;
end.

Модуль с описанием формы.
Unit Unit1
implementation
uses Unit2;
...
{Описание формы}
procedure tFmFormFormCreate (...);
begin
...
Caption := cCaption; {cCaption объявлена в Unit2. На эту строку ругается компилятор. Говорит, что cCaption не определена}
end;
end.

Я понимаю что здесь что-то не правильно. Ну как передать параметры, подскажите!

Спасибо.

Какой вообще механизм передачи параметров форме?

> var cCaption: string;

ето же ЛОКАЛЬНАЯ переменная

← →
wssg (2002-11-21 00:17) [11]

2skirdov

А так нельзя ?
Модуль с процедурой: Unit Unit2; ... implementation uses unit1 ... ... procedure Proc1; var cCaption: string; begin cCaption := "Заголовок окна"; fmForm := TfmForm.Create (application); fmFrom.Caption : =cCaption; fmForm.ShowModal; end.

To wssg.
Ты просто гений! Большое спасибо!

Подскажите, как передать параметры форме Найти похожие ветки