(Resolvido) Dúvida em Procedure Publica..

[mlskull]

Ola,

Gente eu to com um pequeno problema..

Tipo criei uma procedure publica no form1 (pai (_index)) e quero usala no form2 (filho).

Essa procedure cria StringGrids.

procedure T_index.CriaStringGrid(Cod, Esq, Cima: Integer);
begin
  SG[Cod]             := TStringGrid.Create(nil);
  SG[Cod].Parent      := Self;
  SG[Cod].ColCount    := 3;
  SG[Cod].Name        := 'sg_' + IntToStr(Cod);
  SG[Cod].Left        := Esq;
  SG[Cod].Top         := Cima - 100;
  SG[Cod].Height      := 140;
  SG[Cod].Width       := 178;
  SG[Cod].FixedCols   := 0;
  SG[Cod].Cells[0,0]  := 'CÓD';
     SG[Cod].Cells[1,0]  := 'DIA';
  SG[Cod].Cells[2,0]  := 'JOGO';
  SG[Cod].ColWidths[0]:= 30;
  SG[Cod].ColWidths[1]:= 30;
  SG[Cod].ColWidths[2]:= 95;
//--------- Cria a Descrição da Tabela...
  TL[Cod]             := TLabel.Create(nil);
  TL[Cod].Parent      := Self;
  TL[Cod].Name        := 'tl_' + IntToStr(Cod);
  TL[Cod].Left        := Esq;
  TL[Cod].Top         := Cima-118;
  TL[Cod].Width       := 178;
  TL[Cod].Height      := 18;
end;

Depois eu chamo ela no Form2

FOR x := 1 TO 10 DO BEGIN // Cria 10 StrinGrids em seus devidos lugares.
    l_localX := l_localX + 6;

                           _index.CriaStringGrid(x, l_localX, l_localY);

    l_localX := l_localX + 181;
    IF x MOD 5 = 0 THEN BEGIN
     l_localY := l_localY + 180;
     l_localX := 0;
    END;
  END;

l_localX = Horizontal

l_localY = Vertical

Dá tudo correto, cria as stringgrids e etc,...

Mas em vez de criar no Form2, ela cria as stringgrids no Form1

Editado Dezembro 16, 2009 por Jonathan Queiroz

[Jhonas]

Dá tudo correto, cria as stringgrids e etc,...

Mas em vez de criar no Form2, ela cria as stringgrids no Form1

coloque a rotina no evento OnCreate do Form2

abraço

[mlskull]

Resolvido...

Criei uma nova Unit para colocar as 'funções'.

o código fico +/- isso..

Unit =

unit Gr_funcoes; 

interface 
    uses 
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
      Dialogs, StdCtrls, DB, ADODB, Grids, Menus; 
      procedure CriaStringGrid(Cod, Esq, Cima: Integer; l_janela : TWincontrol); 
implementation 
    uses Index,Form2; 

procedure CriaStringGrid(Cod, Esq, Cima: Integer; l_janela : TWincontrol); 
begin 
  SG[Cod]             := TStringGrid.Create(l_janela); 
  SG[Cod].Parent      := l_janela; 
  SG[Cod].ColCount    := 3; 
  SG[Cod].Name        := 'sg_' + IntToStr(Cod); 
  SG[Cod].Left        := Esq; 
  SG[Cod].Top         := Cima - 100; 
  SG[Cod].Height      := 140; 
  SG[Cod].Width       := 178; 
  SG[Cod].FixedCols   := 0; 
  SG[Cod].Cells[0,0]  := 'CÓD'; 
    SG[Cod].Cells[1,0]  := 'DIA'; 
  SG[Cod].Cells[2,0]  := 'JOGO'; 
  SG[Cod].ColWidths[0]:= 30; 
  SG[Cod].ColWidths[1]:= 30; 
  SG[Cod].ColWidths[2]:= 95; 
//--------- Cria a Descrição da Tabela... 
  TL[Cod]             := TLabel.Create(l_janela); 
  TL[Cod].Parent      := l_janela; 
  TL[Cod].Name        := 'tl_' + IntToStr(Cod); 
  TL[Cod].Left        := Esq; 
  TL[Cod].Top         := Cima-118; 
  TL[Cod].Width       := 178; 
  TL[Cod].Height      := 18; 
end; 

end.

Form2 =

procedure TFomr2.FormCreate(Sender: TObject); 
Var 
x : Integer; 
Begin 
  l_localY := 180; 
  FOR x := 1 TO 10 DO BEGIN 
    l_localX := l_localX + 6; 
   CriaStringGrid(x, l_localX, l_localY,SELF); 
    l_localX := l_localX + 181; 
    IF x MOD 5 = 0 THEN BEGIN 
     l_localY := l_localY + 180; 
     l_localX := 0; 
    END; 
  END;