how can i send parent to procedure ?

[majid.ebru]

Hi

can sombody help or gide me ?

in this code :

Code: Pascal  [Select][+][-]

1.   with(mainForm.FindComponent(strSTG)as TStringGrid)do begin
2.  
3.         movRow(Row,Row + 1,  ? );
4.        //  => What command should I write instead of the question mark?
5.       //   Self  or This or ....?
6.   end;  

how can i send parent to procedure?

thank you

[TRon]

Perhaps ?

Code: Pascal  [Select][+][-]

1. var
2.   SomeGrid : TStringGrid
3. ...
4. begin
5. ..
6.   SomeGrid:= MainForm.FindComponent(strSTG) as TStringGrid
7.   with SomeGrid do
8.   begin
9.     movRow(Row, Row + 1, SomeGrid)
10.     ..
11.   end
12. ...
13. end
14.  

[majid.ebru]

Is it possible to do that without defining a new TStringgrid ?

[TRon]

To make clear: You do not define a new stringgrid only a reference to it.

And I have no idea if you could do without as the snippet you posted is too small to be able to provide an (accurate) answer. There is absolutely no context atm.

When using the with statement it is not possible to reference the (in this case) object other then the example I provided (unless there is additional context that might be able to help you out there)

[majid.ebru]

Thank you

[cdbc]

Hi
Ok, here comes nasty!
If you beforehand, store a reference to the stringgrid in its own "Tag" property:

Code: Pascal  [Select][+][-]

1. procedure TmainForm.FormCreate(Sender: TObject);
2. begin
3.   StringGrid1.Tag:= ptrint(StringGrid1); // <- nasty business!
4. end;
5.  

then you would be able to do something like this:

Code: Pascal  [Select][+][-]

1.   with(mainForm.FindComponent(strSTG)as TStringGrid)do begin
2.     movRow(Row,Row + 1, TStringGrid(Tag)); // <- nasty business!
3.   end;
4.  

It was the voices, they told me to do so.... 
HTH
Regards Benny