Problem mit TTimer bei aktivierung durch einen TButton!

[blink182]

mhm du kannst die Zahl Runden in dem du die RoundTo-Funktion aus der Unit Math nutzt, die musst du dann einbinden.
Aber wäre es nicht Sinnvoller nur ganze Zahlen zu nehmen? d.h. nachher einfach Random(55)-15 zu nehmen, somit hättest du dann eine Temperatur und im Timer würde ich dann einfach den wert nur immer um irgendeinen Summanden erhöhen, ich glaube das würde das erleichtern

E: zum Thema Heizung, vllt wäre es auch "schön" wenn du eine ProgressBar einbaust, deren Property "Orientation" auf pbVertical und dann Breite und Höhe anpassen, sowie Min und Max-Werte. Zu dem kannst du dann auch die Farbe ändern abhängig von der Temperatur

Delphi-Quellcode:

const
  BAR_CONST = $0409;
begin
  SendMessage(ProgressBar1.Handle, BAR_CONST, 0, clRed);

[Coolkakashi]

Delphi-Quellcode:

procedure Tmess_form.btn_heizungClick(Sender: TObject);
begin
  if
    btn_heizung.Caption = 'Heizung'
  then begin
    btn_heizung.Caption := 'Läuft...';
  end
  else begin
    btn_heizung.Caption := 'Heizung';
  end
end;
const
  BAR_CONST = $0409;
begin
  SendMessage(pgr_bar.Handle, BAR_CONST, 100, clRed);
end

Ka was ich machen soll, komm einfach net klar Hab selbst vergessen wie ich die Round funktion richtig einsetze, und auch nicht, wie ich einen bereich bei random festlege! sry das ich so grotten bin.

[blink182]

E: ich helf dir mal privat weiter