Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > MDI form

Автор: rthsobakas 4.12.2007, 20:21

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

Автор: lukas 4.12.2007, 21:18

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

Автор: rthsobakas 6.12.2007, 14:57

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

Код


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

ну ты можешь давать формам названия... и находить нужную форму по названию... используя 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;