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...