Скачать: CL | DM;

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

← →
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.

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

Спасибо.

---

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

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

---

← →
777 ©   (2002-11-20 23:51) [10]

> 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.


---

← →
skirdov ©   (2002-11-21 00:46) [12]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c