Eine Procedure in Form1 aus Form2 heraus ausführen

[Alexander Roth]

Ich will die Procedure TForm1.TabSheet2Exit (die aufgerufen wird wenn ich ESC drücke, aber nur in Form1) von der Form2 aus aufrufen. Doch irgendwie klappt es nicht ich bin ratlos.

[fkerber]

Hi!

Du musst die entsprechende Unit bei den Uses einbinden und dann mit Form1.entprechendeprocedure aufrufen.

Ciao fkerber

[Luckie]

Nimm die Unit von Form1 in den Uses der Form2 auf und ruf die Prozedur mit vorangestelleten Form-Name auf.

[Alexander Roth]

Tschuldigung, bin neu in Delphi, was ist eine Uses?

[DelphiFreund]

Eine Liste:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;

type
  TForm1 = class(TForm)
   private
    { Private-Deklarationen }
  public
    Funktion: Integer;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

Schreib die Unit einfach hinter das 2. Uses, wenn es keins gibt, schreibs selber hin.

Gruß DelphiFreund

[Alexander Roth]

Ja mit den Uses ist es klar, allerdings steh ich immer noch auf dem Schlauch (muss wohl dran liegen dass ich mir in meinem Zimmer die Birne abschwitze) da er den schönen Fehler bringt "unzureichende Parameter". Hab ich vielleicht etwas beim Code vergessen (wahrscheinlich ist es eine dumme Frage)
Form1.TabSheet2Exit ; ?

[Phoenix]

Schau Dir doch mal an, was für Argumente (Parameter) bei TabSheet2Exit auf Form 1 erwartet werden. Die musst Du logischerweise mit übergeben.

[DelphiFreund]

Parameter ist wie bei allen Ereignisorientierten Funktionen von Objekten mindestens (Sender: TObject), möglicherweise auch noch mehr.

Gruß DelphiFreund

[Alexander Roth]

Könntest du mir vielleicht ein Beispiel geben??? (hab das noch nie gemacht)
procedure TForm1.TabSheet2Exit(Sender: TObject); So heißt die Procedure die ich aufrufen will.

[SirThornberry]

Als Parameter wird ein TObject erwartet, also könntest du irgend ein TObject angeben oder einfach "nil" da ein TObject nichts anderes als ein zeiger ist. du könntest auch einen Button etc. angeben..
Form1.TabSheet2Exit(nil);