Label Text ändern aus einem Thread heraus

**himitsu**

Zitat:

Ja das tue ich

Dann wohl doch nicht.

Wenn jetzt noch jemand den anderen Thread findet, wo schonmal jemand genau das gleiche Problem hatte .........

Das erste Fenster wird zur Mainform und Visible auf True umgestellt
und das zweite Fenster wird als Letztes in die böse gloable Variable geschrieben.

**CreativeMD**

Zitat von himitsu:

Zitat:

Ja das tue ich

Dann wohl doch nicht.

Wenn jetzt noch jemand den anderen Thread findet, wo schonmal jemand genau das gleiche Problem hatte .........

Das erste Fenster wird zur Mainform und Visible auf True umgestellt
und das zweite Fenster wird als Letztes in die böse gloable Variable geschrieben.

Ja, das Problem ist echt echt böse, wer kommt den auf so etwas? Das war Rainer Zufall (

), dass ich es gesehen habe.

Nochmal Danke für die Hilfe

**Medium**

Und exakt genau das ist der Grund, weswegen diese globalen Formularvariablen echt gefährlich sein können. Andere globale auch, aber hier noch mehr, da Automatismen der IDE greifen, die man nicht bewusst selbst implementiert hat. Ich habe mir die Benutzung dieser Variablen komplett abgewöhnt. In der Form-Klasse gehört "self" genutzt (extrem wichtig, gerade in so fällen wie hier passiert sind!), und alles externe bekommt genau die Parameter mit, an denen es etwas ändern soll. Sei es ein Label, ein Canvas, oder im Zweifel gleich ein Form-Handle.

In deinem Fall wäre z.B. folgendes einigermaßen sauber:

markieren

Delphi-Quellcode:

			procedure TOverviewF.btn1Click(Sender: TObject);

begin

    lblTaskBackground.Caption := '';

    ChangeLabelCaption(lblTaskBackground);

end;

procedure ChangeLabelCaption(aLabel: TLabel);

begin

  aLabel.Caption := 'Hallo zusammen!';

end;

So wäre immer sicher gestellt, dass das Label der Instanz geändert wird, auf der auch der Button liegt, der tatsächlich geklickt wurde. Komplett ohne diese gräßliche gloabele Form-Variable.

**himitsu**

Genau deswegen sollte man mit diesen Variablen vorsichtig sein.
Schlimm und vorallem grob fahrlässig ist die Verwenddung dieser Variablen innerhalb der eigenen Klasse.

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

  Form1.Label1.Caltion := 'Fehler, wenn Form1 nicht die eigene Instanz enthält';

  Self.Label1.Caltion := 'OK, auch wenn nicht unbedingt nötig';

  Label1.Caltion := 'OK';

end;