Procedure aus Form1 im Form3 nutzen?

[OrNEC]

Hallo,

hab folgendes Problem: ich hab eine Procedure im Form1 die ich im Form3 aufrufen will, aber es gelingt mir irgendwie nicht, wer kann mir das helfen? Hier ist der Code:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
...



procedure ZeileBlenden(sg: TStringgrid; Zeile: integer);
begin
  if (Zeile < sg.rowcount) and (Zeile >= 0)
    then begin
    if sg.rowheights[Zeile] <= abs(sg.GridlineWidth) then
      sg.rowheights[Zeile] := sg.DefaultRowHeight
    else sg.rowheights[Zeile] := -sg.GridlineWidth;
  end;
end;


ZeileBlenden(StringGrid1, Stringgrid1.rowcount-1);

Um die procedure ZeileBlenden im Form3 aufzurufen muss ich wohl die StringGrid1 da irgedwie deklarieren, oder? Die Procedure selber hab ich auch nach Form3 übertragen.

[Muellermilchtrinker]

Mach mal

Delphi-Quellcode:

procedure TForm1.ZeileBlenden(sg: TStringgrid; Zeile: integer);

und füg das unter public Deklarationen ein:

Delphi-Quellcode:

procedure ZeileBlenden(sg: TStringgrid; Zeile: integer);

[OrNEC]

Hm... ne das will nicht gehen. StringGrid1 ist undefinierter Bezeichner. :gruebel:

[Muellermilchtrinker]

Achso, du willst auf das Stringgrid zugreifen. Füg deine Unit1 in die Uses ein. Dann kannst du über Form1.Stringgrid1 auf das Stringgrid zugreifen.
EDIT: du kannst auch uses Unit1; unter implementation einfügen.

[OrNEC]

Zitat:

Zitat von Muellermilchtrinker (Beitrag 1044987)

Achso, du willst auf das Stringgrid zugreifen. Füg deine Unit1 in die Uses ein. Dann kannst du über Form1.Stringgrid1 auf das Stringgrid zugreifen.
EDIT: du kannst auch uses Unit1; unter implementation einfügen.

Hab ich schon. Also mir ist egal wie ich das mache, haptsache die procedure ZeileBlenden im Form3 funktioniert.

Delphi-Quellcode:

ZeileBlenden(StringGrid1, StringGrid1.RowCount-1);

[Muellermilchtrinker]

Also füg deine Unit1 in die uses Klausel ein und dann probier als Aufruf:

Delphi-Quellcode:

ZeileBlenden(Form1.StringGrid1, Form1.StringGrid1.RowCount-1);

[OrNEC]

Hab ich ...

Der Fehler - ZeileBlenden ist undefinierter Bezeichner.

[Muellermilchtrinker]

Ich denke du hast die Procedure in Unit3 kopiert???

[OrNEC]

Hab ich auch versucht, aber dann ist die StringGrid undefinierter Bezeichner. :roteyes:

Soll ich dir vllt das ganze Projekt schicken? Hab Delphi 7PE

[Muellermilchtrinker]

Zeig doch mal beide Units hier.