TTimer dynamisch lampe anschalten und nach X ms wieder aus?

[snow]

Hallo

etwas einschalten und nach x ms wieder ausschalten.

Also dachte ich mir ://Nimmste einen Timer. gemacht getan.

Ich create also den Timer(self) und stelle x als Interwall ein. So wenn ich jetz den Timer beim 1. durchlauf sprich nach x ms wieder abschalte, dann sollte ich mein problem gelöst haben....

Aber dem war nicht so.

Da ich nicht immer eine bestimmte lampe einschalten muss, sondern quasi die lampe1 an und nach 100ms wieder aus, komme ich zu dem problem, das die OnTimer-procedure keine solchen Variablen hat. (ich müsste der procedure 2 integer Werte übertragen.)

Wie kann ich das machen? muss ich eine neue komponente schreiben, die eine solch spezielle OnTimer funktion enthält? und auf TTimer basiert.

Gruß snow.

[DGL-luke]

Delphi-Quellcode:

if lampe.aus then lampe.schaltan;

if lampe.an then
begin
  lampe.schaltaus;
  timer.enabled := false;
end;

das ist das ontimer-ereignis das du da brauchst.

[snow]

Ja im prinzip schon aber. Ich hab viele lampen. Ich muss dem Timer(den ich zur laufzeit create) also 2 werte zuweisen(X und Y) ich hab jetz einfach mal aus 2 Propertys X und Y hinzugefügt. Ich teste das jetz mal. Hoffendlich klappt das....

Gruß snow

[snow]

Ja das klappt....

Ich kann eine OnTimer funktion für mehrere TTimer benutzen. In der funktion finde ich peer Sender heraus welcher Timer sie ausgelöst hat und frage dann X und Y ab....

Gruß Snow

Edit://
So einfach läuft es leider noch nicht ganz. zwar bekomme ich die werte raus aber...
wenn ich den Timer via create erstelle und dann eine Ontimer methode einstellen will, dann klappt das net. Da steht dann....

[Fehler] inputoutput.pas(31): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

Wie kann ich den eine methode deklarieren?
gruß snow