procedure in Unit1 in Unit 2 verwenden

[S2B]

Titel sagt eigentlich schon alles. Aber trotzdem: Wie kann ich eine procedure, die in Unit1 steht, in Unit2 verwenden?

[fkerber]

Hi!

Unter uses einbinden und dann einfach mit form1.procedure aufrufen.

Ciao fkerber

[XeRo]

Denk das geht so:

Delphi-Quellcode:

//Unit1:
...

type
  TForm1 = class(TForm)
    procedure test;

...

procedure TForm1.test;
begin
messagebox(handle,'Das ist ein Test','Test',mb_ok);
end;


//Unti2:

...

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.test;
end;

[fkerber]

Hi!

@Xero;
Ja und normalerweise weist er dann daraufhin, dass zu Unit1 referenziert wird und dass er sie in die Uses einbinden will.

Ciao fkerber

[S2B]

Zitat von XeRo:

Denk das geht so:

Delphi-Quellcode:

//Unit1:
...

type
  TForm1 = class(TForm)
    procedure test;

...

Genau das geht nicht! Da bringt er immer einen Fehler! Bei mir sieht das so aus:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure scanit(const orgPath: string; parentMI: TMenuItem); <-- Da kommt der Fehler!

{...}

[fkerber]

Hi!

Verrätst du uns, welcher Fehler da kommt und auch wie du das aufrufst?


Ciao fkerber

[S2B]

Also folgender Fehler

Code:

[Fehler] Unit1.pas(232): Ungenügende Forward- oder External-Deklaration: 'TForm1.scanit'

tritt auf, wenn ich das so reinschreibe! Die procedure ruf ich aus der Unit2 noch gar nicht auf!

[XeRo]

Kannst du uns nicht etwas code posten?

wenn du dein prog nicht herzeigen willst, dann schreib schnell ein einfaches testprog und zeig uns was du genau meinst...

bei mir gehts so wies ich gemacht hab.

[edit]kommt wenn du in unit2 "unit1." schreibst ein pulldown menü?[edit]

[S2B]

Ich habs grad selber gelöst!!! Ich bin so blöd! Hab
procedure scanit(const orgPath: string; parentMI: TMenuItem); anstatt
procedure TForm1.scanit(const orgPath: string; parentMI: TMenuItem); geschrieben!

Edit: Trotzdem vielen Dank für die Mühe! Wie konnte ich das nur vergessen?