Hallo zusammen,

ich habe eine RadioGroup und möchte hier je einen Button raus löschen:

InfoForm.Positionen.Items.Delete(2)

Wenn ich dies aus einem Thread heraus machen möchte, bekomme ich die Fehlermeldung

"Im Projekt ist eine Exception der Klasse EOSError mit der Meldung 'Systemfehler. Code: 5.
Zugriff verweigert' aufgetreten."

Spaßeshalber habe ich einen Button auf die MainForm gelegt und hier auch den Befehl rein gesetzt.
Klicke ich den Button bei laufendem Thread, wird der RadioButton gelöscht.
Wird die Procedure des Buttons durch den Thread aufgerufen, habe ich den gleichen Fehler wieder...

Wo liegt mein Problem?

Danke schon mal.

Gruß

Torsten

Zitat von Metschu:

Wo liegt mein Problem?

Du greifst auf VCL-Objekte aus einem anderen Thread als dem Hauptthread zu.

Für solche Dinge gibt es Synchronize.

Hallo Uwe,

vielen dank für den Tipp, das hat Funktioniert.

Für mich war es nur seltsam, das ich die Texte der Radio-Buttons ändern konnte ohne Fehlermeldung - nur beim löschen kam diese immer wieder...

Gruß

Torsten

Zitat von Metschu:

Für mich war es nur seltsam, das ich die Texte der Radio-Buttons ändern konnte ohne Fehlermeldung

Nur weil etwas funktioniert, ist es noch lange nicht richtig.

Zitat von Uwe Raabe:

Zitat von Metschu:

Für mich war es nur seltsam, das ich die Texte der Radio-Buttons ändern konnte ohne Fehlermeldung

Ein SendMessage/Perform an ein WinControl ist auch aus anderen Threads möglich, da Messages von Windows automatisch in den Thread synchronisiert werden, in welchem diese Komponente erstellt wurde.

Wenn beim Setzen der Caption im Setter aber noch mehr gemacht wird, wie z.B. direkt auf Variablen/Felder dieser Komponente oder auf verbundene "globale" bzw. verbundene Komponenten/Listen/... zuzugreifen, dann kann wird es schnell schief laufen,
so wie man es beim Delete/Free leidlich bemerkt.

Zitat:

zusammenfalten · markieren

Delphi-Quellcode:

property Caption: TCaption read GetText write SetText stored IsCaptionStored;

procedure TControl.SetText(const Value: TCaption);
begin
  if GetText <> Value then
    SetTextBuf(PChar(Value));
end;

function TControl.GetText: TCaption;
var
  Len: Integer;
begin
  Len := GetTextLen;
  SetString(Result, PChar(nil), Len);
  if Len <> 0 then
    GetTextBuf(PChar(Result), Len + 1);
end;

procedure TControl.SetTextBuf(Buffer: PChar);
begin
  Perform(WM_SETTEXT, 0, Buffer);
  Perform(CM_TEXTCHANGED, 0, 0);
end;

function TControl.GetTextLen: Integer;
begin
  Result := Perform(WM_GETTEXTLENGTH, 0, 0);
end;

function TControl.GetTextBuf(Buffer: PChar; BufSize: Integer): Integer;
begin
  Result := Perform(WM_GETTEXT, BufSize, Buffer);
end;

Aber dennoch bei sowas nicht immer drauf verlassen, dass es immer so implementiert bleibt, sondern direkt die Messages verschicken.

offtopic

Zitat von himitsu:

Aber dennoch bei sowas nicht immer drauf verlassen, dass es immer so implementiert bleibt, sondern direkt die Messages verschicken.

Top-Tipp, der löst bei mir auch ein GUI Thread Problem, Vielen Dank dafür!

Zitat von KodeZwerg:

Top-Tipp, der löst bei mir auch ein GUI Thread Problem, Vielen Dank dafür!

Es gibt ja auch von mir ein neues Projekt genau das Prinzip einfach zu verwenden:
https://github.com/jaenicke/MTCL
Das Interesse scheint sich in Grenzen zu halten. Aber dort wollte ich auch genau die Möglichkeit hinzufügen, dass man aus Threads auch mit VCL-Komponenten transparent interagiert. Mal schauen wann ich dafür mal wieder etwas Zeit habe.

Mit dem Delphi Starter von Dir bin ich super klargekommen, ich werde bei dem MTCL auf jeden Fall mal einen Blick rauf werfen was da so passiert und obs es für D2009 geeignet ist.

Zitat von KodeZwerg:

ich werde bei dem MTCL auf jeden Fall mal einen Blick rauf werfen was da so passiert und obs es für D2009 geeignet ist.

Ist es, auch wenn Delphi 2009 so buggy war, dass ich da glaube ich leider nur den Modus für Delphi 7 usw. nutzen konnte per IFDEF... Generics waren damals leider noch extrem buggy und kaum nutzbar.

Nimm doch die Community Edition, falls die Rahmenbedingungen passen.

Zitat:

I recommend using Delphi 2010 or higher, because only with generics you do not need to cast everywhere. And it is faster because TDictionary is used instead of simply searching in a list for a control. Delphi 2009 does not work, because generics were not powerful enough there.

Wenn es nur die Performance betrifft, bin ich mit 2009 glücklich aber ich Suche bereits hier und da nach einer gebrauchten 2010er Lizenz.
Das Problem mit der CE ist bei mir der Wiederverwendbarkeitsfaktor, also was die Übertragenen Dateien betrifft, ein reiner WebInstall ist für mich ein no-go solange ich mein System noch nicht neu bespielt habe. Dann installiere ich die CE in eine VM, ab da ist mir mein no-go von oben egal da ich die VM duplizieren kann.

Ich teste mal das MTCL aus, bei Bedarf erstelle ich Dir ein Update für neuere Versionen wie ichs mit dem Starter-Tool getan habe.
Mein GitHub ist allerdings irgendwie für mich selbst nicht mehr veränderbar.... Seitdem ich von Win7 auf Win10 bin ist zwar der Zugang und ein Verzeichnisse anlegen möglich, ein löschen bzw datei-uploaden klappt gar nicht mehr. Dazu in einem anderen Thread, sowie meinerseits bedarf besteht, mehr.

Danke auf jeden Fall für die Information das es bereits eine Komponente gibt die sich um solche Dinge kümmern könnte!!