ButtonClick Procedure aufrufen

[SyntaxXx]

Sorry das ich mit sowas nerven muss, aber durch das ganze Starren auf Codezeilen habe ich gerade einen kleinen Blackout.
Könnte mir bitte greade wer verraten, wie die z.B. die ButtonClick Prozedur in einer anderen Procedure aufrufen kann?

Delphi-Quellcode:

procedure klickmich;
begin
TForm1.Button1Click;
end;

Oder so ähnlich.
Bekomme es einfach nicht hin

Delphi-Quellcode:

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

Diese Procedure möchte ich in einer anderen aufrufen.

[Coffeecoder]

Hi,
Versuch mal:

Delphi-Quellcode:

...
   Button1.OnClick(Sender); // <-- Sender vergessen, nachträglich eingefügt
...

[SyntaxXx]

Ne funktioniert leider nicht.

Aber es würde mir auch helfen, wenn ihr mir sagen könntet,wie ich bei der procedure Parameter mitgeben kann.

Sprich so sollte es aussehen:

Delphi-Quellcode:

prucedure TForm1.Button1Click(Sender:TObject; parameter1 : string; parameter2 : integer);
begin
//Code
end;

Doch leider bekomme ich dann immer Fehlermeldungen, bzw. er will die Verweise löschen, da die procedure dann nicht mehr bekannt ist.

Fehlermeldung: Für Sender ist Vorgabewert erforderlich

[Coffeecoder]

Sonst erzähle einmal was du machen willst oder zeige bitte mehr Code.

[Gausi]

Du kannst z.B. die Prozedur direkt aufrufen, ggf. mit Nil als Sender, wenn du den dort nicht brauchst:
Button1Click(Nil); Oder du rufst die Click-Methode auf.
Button1.Click;

[Medium]

Und das ist, warum man in Eventhandlern keine Geschäftslogik unterbringt.

[OsCor]

Hallo,

ich erlaube mir, diesen Faden aus der Versenkung zu holen, weil ich eine fast identische Problemstellung habe, die durch die Hilfeposts nicht behoben werden konnte.

Teilaufgabe:
Druck auf Button „Abbrechen” setzt einfach alle Eingabe-Elemente zurück (Ereignis btnAbbrechenClick). Um beim Neueingeben eines Datensatzes diesen Reset ebenfalls durchzuführen, rufe ich ihn in der gezeigten Weise auf - die Versionen mit Nil oder ohne Klammer (wie im vorhergehenden Beitrag) werden vom Compiler moniert.

Der vorgestellte Code funktioniert zwar, aber: Nach dem Schließen des Programmes wird mir per Messagefenster angezeigt, dass ein Fehler vorliege und zwar eine fehlerhafte Zeigeroperation.
Ich dachte, ich hätte das Problem auf einfache Weise gelöst Was mache ich denn falsch?

Delphi-Quellcode:

    procedure btnAbbrechenClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure btnNeuClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);

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

var
  Form1: TForm1;
  Warentext : String;

const
     Bildpfad = …
     EN = '0'; ZN = '00'; DN = '000';

implementation

{$R *.dfm}

procedure TForm1.btnAbbrechenClick(Sender: TObject);
begin
    edtPfad.Clear;
    cbTyp.ItemIndex := 0;
    edtPreis.Clear;
    edtBezAlt.Clear;
    cbMetallFarbe.ItemIndex := 0;
    edtSteinFarben.Clear;
    edtPerlenFarbe.Clear;
    edtHoehe.Clear;
    edtLieferant.Clear;
    chAktiv.Checked := True;
    memBem.Clear;
    Image1.Picture.Destroy;
    Image2.Picture.Destroy;
    Image3.Picture.Destroy;
end;

procedure TForm1.btnNeuClick(Sender: TObject);
var
   ArtAnz : Integer;
   ArtBez : String;
begin
    btnAbbrechenClick(Sender);  <-------- Hier steckt der Wurm drin!
   .
   .…

Für Hinweise dankbar:
Oswald