procedure

[umoveme]

Hallo,

Ich möchte von einem Timer meine procedure Button1Click aufrufen.

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

Der Compiler zeigt den Fehler nicht genügen Parameter.

Was muss ich denn machen, damit jede sec. die procedure Button1Click aufgerufen wird.

Schon jetzt einmal vielen Dank für die Antwort.

Gruß

umoveme

[jim_raynor]

Es wird noch der Paramater Sender erwartet. Da solltest du Button1 nehmen, da dem ja die OnClick Procedure gehört. Also:

Button1Click(Button) Aber: du kannst es auch einfacher machen. Du kannst auch dem Timer die Button1Click zuweisen. Einfach im Objektinspector die entsprechende Procedure über die Combobox zuweisen. Da OnClick und OnTimer die gleichen Paramater haben gibt es keine Probleme.

[edit]Es gibt auch einen Delphi-Code-Tag[/edit]

[SubData]

Ich würde mal Button1.Click; machen... Dann wird der Button geklickt und dadurch automatisch die Funktion aufgerufen

[Luckie]

Und ich würde keins von beiden machen sondern, den Code in einer separaten Routine auslagen und die jeweils mit dem Button und dem Timer aufrufen. ist für mich sauberer gelöst.

[SubData]

So kann mans auch machen, yap... Obwohl ich den Click Aufruf nich als "schädlich" ansehen würde -g-

[Luckie]

schädlich nicht, in meinen augen sieht es nur unsauber aus. Und wenn man den eigentlichen Code von der GUI trennt, dann hat mna sowas auch nicht nötig und man hat automatisch meine Version.

[Sharky]

Zitat von Luckie:

schädlich nicht, in meinen augen sieht es nur unsauber aus. ....

Luckies Vorgehensweise hat auch den Vorteil das der Code wesentlich Felxibler wird. Stell dir vor Du möchtest die Aktion mal nicht mehr über einen Button starten sondern über ein TMenue. Dann ist es viel einfacher wenn Funktion und GUI getrennt sind.