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 :)