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

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

Как передать неявно созданный объект в процедуру? [D5, WinXP]

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

Eero ©   (2008-02-22 21:43:00) 

Имеется некая процедура с параметром:
procedure tform1.SomeProc(f:tform);
begin
 some_code;
end;

Где-то в программе я создаю новую форму:

procedure tform1.Button1Click(sender:tobject);
begin
 With tsomeform.create(self) do begin
   showmodal;
   free;
 end;

хочется вовнутрь with..end вставить вызов SomeProc, передав указатель на свежесозданную форму.
Как-нибудь типа так
   showmodal;
   SomeProc(current);
   free;
но что-то не могу найти ничего подобного.
self - указывает на основную форму.
про объявление локальной переменной - знаю, меня интересует именно данная задача.

---

Eero   (2008-02-22 22:20:00) [41]

> короче ты бредишь:
>
> есть у тебя  tfrom1.method...
>
> в рамках tform1 ты исполняешь следуещее


длиннее ты вообще не понял сути вопроса.
я хочу сделать так

procedure tform1.Button1Click(sender:tobject);
begin
With tsomeform.create(self) do begin
  showmodal;
  SomeProcedure(а_сюда_передать_свежесозданную_форму);
  free;
end;

вьехал?

---

Palladin   (2008-02-22 22:12:00) [42]

короче ты бредишь:

есть у тебя  tfrom1.method...

в рамках tform1 ты исполняешь следуещее

procedure tform1.selfmothod;
...
with tform1.crete do
try
 metohod; // будет вызов метода относительно свежесозданного with метода
 self.method; // будт вызов метода относительно объекта в рамках которого исполняется текщий метод selfmethod;
finally
 free;
end;
...

---

Eero   (2008-02-22 22:11:00) [43]

> self указывает не на основную форму, а на объект текущего
> метода

Я в курсе.
"на основную форму" - имелось ввиду в текущем контексте.

По существу вопроса ответить нечего?

---

Palladin   (2008-02-22 22:09:00) [44]

self указывает не на основную форму, а на объект текущего метода

---

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

Наверх