Statuslabel ändert die Aufschrift nicht...

**werungar**

Hallo alle zusammen!

Ich schreibe gerade ein Programm zur Darstellung der Koch Kurve und würde jetzt gerne eine Art Statusanzeige einbauen, die anzeigt, ob das Programm gerade rechnet, oder nicht. Dazu wollte ich am Anfang der Prozedur 'Berechne...' und vor dem Ende 'Bereit' in ein Label schreiben.

PROBLEM:
'Berechne...' wird nie angezeigt. Es ist die ganze Zeit nur 'Bereit' zu lesen (ist auch beim Programmstart dort eingetragen). Wenn ich das Label beim Programmstart leer lasse und dann auf den Button klicke, erscheint ebenfalls nur 'Bereit' am Ende der Prozedur...
Hier mal der betreffende Quelltext:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.It_SchritteButtonClick(Sender: TObject);

var fehler : boolean;

begin

StatusLabel.Caption:='Berechne...';

fehler:=false;

TRY

  n:=StrToInt(It_SchritteTEdit.Text);

except

 fehler:=true;

end;

IF (fehler=false) AND (StrToInt(It_SchritteTEdit.Text)>=0)

    AND (StrToInt(It_SchritteTEdit.Text)<=10) THEN

  begin

  x:=0; y:=Image1.Height-1; laenge:=Image1.Width; winkel:=0;

  Image1.Canvas.MoveTo(ROUND(x),ROUND(y));

  IF KochRadioButton.Checked THEN Koch_Kurve(n,laenge,winkel);

  IF SquareRadioButton.Checked THEN Square(n,laenge,winkel);

  end

ELSE showmessage ('Fehler! Bitte geben Sie nur ganze Zahlen zwischen 0 und 10 ein!');

StatusLabel.Caption:=('Bereit');

end;

Statuslabel ändert die Aufschrift nicht...

Statuslabel ändert die Aufschrift nicht...

Forumregeln