Prozedur aus Form1 in Form2 aufrufen?

[cosypanther]

Hallo,

mich beschäftigt derzeit die im Titel gestellte Frage.
In Unit1.pas bzw. Form1 habe ich eine Prozedur 'stop'.

Bisher hatte ich dort einen Button, der 'stop' aufgerufen hat. Wollte ich dann 'stop' in Form2 durchlaufen lassen, habe ich dies mit Form1.Button1.Click getan.

Wenn ich allerdings in Form2 einfach stop; bzw. form1.stop; schreibe, dann erhalte ich beim Kompilieren die Meldung

Zitat:

[Pascal Fehler] Unit2.pas(52): E2003 Undefinierter Bezeichner: 'stop'

Gibt es dort eine elegantere Lösung ohne diesen Umweg über einen Button?

Bin gespannt!

Viele Grüße,
cosypanther

[himitsu]

wie/wo hast du dein Stop denn deklariert?
unter private oder protected bringts natürlich nichts.

[cosypanther]

Ganz normal unter implementation, vor

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
//(...)
end;

[DeddyH]

Ist das denn eine Methode von Form1 oder eine reguläre Prozedur?

[cosypanther]

Von Form1.

[DeddyH]

Hast Du sie in den private- oder protected-Abschnitt gesetzt? In dem Fall verschieb die Deklaration mal nach public, dann sollte sie auch sichtbar sein.

[cosypanther]

Mhh.. in keinem von beiden:

Delphi-Quellcode:

private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

//Variablen (...)

implementation

uses Unit2;

{$R *.dfm}

procedure stop;

[himitsu]

Also doch nicht in Form1 ... schau mal wo dein Button1Click noch deklariert ist.

Unit-Extern kannst du nur auf was Zugreifen, welches im Interface-Abschnitt deklariert ist.

Zitat:

//Variablen (...)

globale Variablen sind böse

[cosypanther]

Dann klappts wohl nicht leichter, wenns in einer anderen Unit ist. =P
Danke dennoch!

Kenne mich nicht so mit dem Aufbau aus.

Zitat von himitsu:

Zitat:

//Variablen (...)

globale Variablen sind böse

Ich weiß, aber für mein kleines Projekt ist das unrelevant.
Da lohnt sich der Aufwand für mich nicht, die Variablen andauernd zu übergeben.

[DeddyH]

Du hast die Antwort nicht richtig gelesen.

Delphi-Quellcode:

unit Bla;

interface

...

procedure stop; //Im interface-Abschnitt bekannt machen

implementation

procedure stop;
begin
  //Code
end;