Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
ВнизПодскажите, как передать параметры форме Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c