Globale Funktion Zugriff auf Timer in Class

[schwa226]

Hi,

hab hier nun eine kleine (warscheinlich) einfach Frage eines Beginners:

Ich habe einen Timer:

Delphi-Quellcode:

procedure TfrmMain.DelayTimer(Sender: TObject);
begin

Delay.Enabled := False;

end;

dieser is hier definiert:

Delphi-Quellcode:

  TfrmMain = class(TForm)
    DelayShortcut2: TTimer;

  published
        procedure DelayShortcut2Timer(Sender: TObject);
  end

nun habe ich eine globale Funktion:

Delphi-Quellcode:

function DoMyThing(var i:Integer):Boolean;
begin


end;

In dieser Funktion will ich nun den Enable + Interval setzen. Aber natürlich kennt er DelayShortcut2 in der Funktion nicht.

1. Ansatz war die DoMyThing Funktion auch in die TfrmMain Class zu bringen.

Dann habe ich aber das Problem, dass ich noch eine andere Class habe die auch die DoMyThing Funktion aufrufen soll.

Dies geht dann aber auch nicht mehr.

Komm nicht weiter...

[mkinzler]

Erweitere die freie Funktion durch einen Parameter für die Form.

Aber geanu verstehe ich dein Problem nicht.

[oki]

entweder du machst deine Funktion zu einer Funktion deiner Klasse, oder du greifst in der Funktion über dem Klassenvariable auf den Timer direkt zu

Delphi-Quellcode:

  TfrmMain.DelayShortcut2.Enabled := False;
  ....

oder du übergibst als weiteren Parameter der Funktion den Timer.

Delphi-Quellcode:

function DoMyThing(var i:Integer; ATimer : TTimer):Boolean;
begin
  ATimer.Enabled := True;
  ...
end;

Ich würde grundsätzlich prüfen, ob die Funktion unbedingt global sein muss. Wenn ja, würde ich die 3. Variante bevorzugen. Wenn nein, die erste. Zweite ist nicht sehr elegant und imho eher schlechter Code.

Gruß oki

[Apollonius]

In deiner zweiten Lösung müsstest du auf die Instanz zugreifen:

Delphi-Quellcode:

frmMain.DelayShortcur2.Enabled := False;

[oki]

Ups, sorry, Copy&Waste :oops:

so wars auch gemeint.

Delphi-Quellcode:

frmMain.DelayShortcur2.Enabled := False;

Dank für die Berichtigung.

Gruß oki

[schwa226]

Danke für die super schnelle Hilfe!!

Manchmal bleib ich einfach bei den einfachsten Dingen hängen... :spin2: