Label Text ändern aus einem Thread heraus

**CreativeMD**

Hm, das ist verwirrend,
also es ist die gleiche Form, aber eine andere Instanz (nach meiner Vermutung),
aber ich greife auf die richtige Variable zu:

zusammenfalten · markieren

Delphi-Quellcode:

			const

  WM_AFTER_SHOW = WM_USER + 300;

type

  ThreadClass = class of TThread;

  TOverviewF = class(TForm)

    lvInstances: TListView;

    mmMenu: TMainMenu;

    Settings1: TMenuItem;

    Logger1: TMenuItem;

    BugReport1: TMenuItem;

    MinecraftAccounts1: TMenuItem;

    Changelog1: TMenuItem;

    lblVersion: TLabel;

    N1: TMenuItem;

    CheckForUpdates1: TMenuItem;

    SendanEMail1: TMenuItem;

    lblInformation: TLabel;

    lblRetry: TLinkLabel;

    cmdProgressBackground: TCMDProgressBar;

    lblTaskBackground: TLabel;

    btn1: TButton;

    procedure Logger1Click(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure WmAfterShow(var Msg: TMessage); message WM_AFTER_SHOW;

    procedure lblRetryClick(Sender: TObject);

    function createThread(thread : ThreadClass) : TThread;

    procedure setEnabled(Enabled : Boolean);

    procedure btn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  OverviewF: TOverviewF;

  BackgroundThread : TBackgroundThread;

Auf OverviewF, da bin ich mir sicher. Aber wo ist dann der Fehler :O

EDIT

In den Einstellungen (wo man das Hauptformular bestimmen kann) gibt es zwei Forms mit dem Namen OverviewF :O.

Das Problem ist gelöst nach ein paar mal hin und her klicken funktioniert es nun endlich

, die eine Form ist dann irgendwann verschwunden. Vielen Dank für eure Hilfe

**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;