Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Label nach Edit1.Text blinken lassen

    Delphi
    by ManuMF, 5. Jan 2006
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  Label1.Visible := not Label1.Visible;
  end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  Timer1.Interval := 60000 DIV (2 * StrToIntDef(Edit1.text, 1));
  end;
• Forum: Multimedia

  Re: Label nach Edit1.Text blinken lassen

    Delphi
    by ManuMF, 5. Jan 2006
  Eine Minute = 60000 ms. Wenn das Label x-mal pro Minute blinken soll, muss also nur geteilt werden. Das TTimer.Interval ein Integer ist, bietet sich hier der Operator DIV an.
  
  
  Timer1.Interval := 60000 DIV (2 * StrToIntDef(Edit1.text, 1));
  
  
  Das 2x kommt, weil das Label ja blinken soll (= angehen UND ausgehen), also 1 mal blinken = 2 mal onTimer.
  
  
  Das onTimer geht einfacher!