VPF::MDI form - Форум программистов

rthsobakas

Дата 4.12.2007, 20:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 562
Регистрация: 20.9.2007

Репутация: нет
Всего: -1

вообщем есть форма главная на ней кнопка. Нажимаю на кнопку(при открытой дочереней форме ... на дочерней форме image) и изменяю размеры image. проблема с объявление формы. Как её назвать? Само название формы дочерней frChild. Но кнопка создания новой формы обращается к Child переменной , которая объявлена как child:TfrChild;
Вообщем если кто нить что нить понял подскажите))

lukas

Дата 4.12.2007, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

ну естественно к переменной... а по другому компилятор не проглодит... потому что не знает изначально что у тебя будет форма под таким названием...

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

rthsobakas

Дата 6.12.2007, 14:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 562
Регистрация: 20.9.2007

Репутация: нет
Всего: -1

не ну вот есть стандартный код к примеру

Код


uses uchild;
...
procedure TfrMain.CreateChildForm(const childName : string);
var
  Child: TfrChild;
begin
  Child := TfrChild.Create(Application);
  Child.Caption := childName;
end;

procedure TfrMain.NewChild1Click(Sender: TObject);
begin
  CreateChildForm('Child '+IntToStr(MDIChildCount+1));
end;

Child это же локальная переменная... у меня есть кнопка на главной форме , я её нажимаю типа и размеры на дочерней должны поменяться... А че писать для клика кнопки то

child.width:=child.width+10; не проканает...

lukas

Дата 6.12.2007, 17:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

ну ты можешь давать формам названия... и находить нужную форму по названию... используя Screen...

Код


function FindForm(Name:String):TForm;
  Var
  I:Integer;
begin
for I:=0 to Screen.FormCount do
  if UpperCase(Name)=UpperCase(Screen.Form[i].Name)
   then begin
   Result:=Screen.Form[i];
   exit;
   end;
  Result:=Nil;
end;

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »