| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

3 простых вопроса

Страницы:   < 1 2 >

Kostafey ©   (2007-04-20 16:29:00) 

По одному вопросы задавать уже мало буду сразу по 3.
Все примеры работают, я только хотел уточнить их корректность.

1) Если необходимо выполнить ряд действий по работе с компонентами формы
только 1 раз при создании, то корректно ли будет писать:

procedure TForm1.FormCreate(Sender: TObject);
begin
 inherited;
 //необходимые операции


2) Если необходимо, чтобы модальная форма возвращала строку, то можно ли писать как:

//Вызов из другой формы:
 TextString:=Form2.ShowWithParams;

//Метод Form2:
function TForm2.ShowWithParams:string;
begin
 ShowModal;
 if ModalResult = mrOk then
   Result := 'Some string'
 else
   Result := 'Other string';
end;


3) Работа с компонентами формы из другого Unit:

procedure SetSubjectFields(SenderForm: TForm; SenderDataSource: TDataSource);
begin
 with DataModule1 do begin
   (SenderForm.FindComponent('DBEditLookTipSubject') as TDBEdit).DataSource :=
     SenderDataSource;
...


---

Ega23   (2007-04-20 16:41:00) [21]

> А как иначе работать с компонентами формы если они еще не
> созданы?


Ну-ка ответь, что такое inherited

---

Kostafey   (2007-04-20 16:39:00) [22]

> нахрен тебе тут inherited?????

А как иначе работать с компонентами формы если они еще не созданы?
Или на момент создания формы они уже созданы ?


> Можно, почему нет.

Как раз в этом я больше всего сомневался. Спасибо.


> Что-то я не понял...


Компонент  DBEditLookTipSubject (тип TDBEdit) есть в одной ворме, но его ведь нет в другой.
Конечно можно подключить в Uses, но это нужно делать в interface.

---

Johnmen   (2007-04-20 16:38:00) [23]

1) да. inherited; лишнее
2) да. только форма ничего не "возвращает"
3) да. только FindComponent может закончиться безуспешно...

---

Ega23   (2007-04-20 16:33:00) [24]

> procedure TForm1.FormCreate(Sender: TObject);
> begin
>  inherited;
>  //необходимые операции
>


нахрен тебе тут inherited?????


> 2) Если необходимо, чтобы модальная форма возвращала строку,
>  то можно ли писать как:


Можно, почему нет.


> 3) Работа с компонентами формы из другого Unit:


Что-то я не понял...

---

Страницы:   < 1 2 >

Наверх