formularz jako parametr procedury

0

Witam
Jak przekazać formularz jako parametr procedury?

Pisze procedure, która tworzy kilka CheckBox'ów na wskazanym przez użytkownika Formularzu.

Dodam jeszcze, że ta procedura umieszczona jest w Module nie posiadającym swojego formularza.

0 
procedure Tworz_GroupBoxa(formularz:TForm2;i:integer;Inne_Parametry);
begin
  // cos tam
  GroupBox[i].Parent:=Formularz;
end;

A do modułu gdzie ma być ta procedure muszisz dodać definicje klasy TForm2, i w dodatku wszystkie ewentualne "praenty" muszą dziedziczyć z TForm2 a nie (jak zapewne masz) z TForm3, TForm5.. itd.

0

Dzięki za odpowiedź, ale nie do końca o to mi chodziło. Może źle to przedstawiłem.

Ta procedura ma być uniwersalna ( w twoim wypadku dzialac bedzie tylko z tym jednym formularzem czyli "Form2") .

0

procedure cos(f: TForm); o_O

0

Dzieki

Ja chciałem to zrobic przez "var" tzn.

procedure cos(var f:TForm);

i dlatego sie wszystko pieprz...ło

1 użytkowników online, w tym zalogowanych: 0, gości: 1