Button Prozedur in anderer Prozedur aufrufen

[Hellraizer]

Der Titel ist Programm:

Wie rufe ich eine Button.Click Prozedur in einer anderen Procedur oder Function auf?
Wenn ich einfach nur den Namen der Prozedur in einer anderen Aufrufe kommt die Fehlermeldung

"Not enough actual Parameters"

das hab ich bis jetzt probiert:
--------------------
Prozedur Bla;
begin
tbutton2.click;
end;
--------------------
Prozedur Bla;
begin
button2.click;
end;
--------------------
Prozedur Bla;
begin
button2.click.execute;
end;

[mkinzler]

Es fehlt der Sender:

Delphi-Quellcode:

button2.click( Nil);

[DeddyH]

Delphi-Quellcode:

procedure TFormWuppdi.TuWas;
begin
  Button1.Click;
end;

Oder als reguläre Prozedur:

Delphi-Quellcode:

procedure TuWas;
begin
  FormWuppdi.Button1.Click;
end;

[edit]@Neu-Mod: stimmt nicht, das wäre der Fall bei

Delphi-Quellcode:

Button1Click(Sender); //ohne Punkt

[/edit]

[mkinzler]

Stimmt, hab das als Methodennamen angesehen

[Hellraizer]

Zitat:

button2.click( Nil);

hat funktioniert, danke sehr.

Welches tut empfehlt ihr mir für solche grundsatzfragen?

[DeddyH]

Zitat:

Zitat von Hellraizer

Zitat:

button2.click( Nil);

hat funktioniert, danke sehr.

Das kann ich nicht so recht glauben :gruebel:. Und Einsteigertuts findest Du unter anderem hier: http://www.delphi-treff.de/tutorials/grundlagen/

[Hellraizer]

dann probier es mal aus ;)
ich schreib nur eben das Programm zuende. Dann poste ich code und stell die Source als Download bereit.

[DeddyH]

Hab ich: "zu viele Parameter" wie erwartet.

[Hellraizer]

Ich schwör es funktioniert hier:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    MainMenu1: TMainMenu;
    Starteclear1: TMenuItem;
    clear1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure clear1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.clear1Click (Nil);
end;


procedure TForm1.clear1Click(Sender: TObject);
begin
edit1.Clear;
end;

end.

source und exe im anhang als beweis :)


[edit] in meinem Programm verwende ich das genau so wie hier als beweis in miniprogramm.

[DeddyH]

Natürlich funktioniert das so, schau Dir mein Edit in #3 nochmal an und dann vergleiche mal ganz genau mit Deinem Code.