MessageDlg in Thread aufrufen?

[StTüff]

Hallo!

Ich habe ein Problem mit "MessageDlg". Ich führe in einem Thread eine Funktion aus. Geht was schief, wird direkt in der Funktion eine Meldung mit "MessageDlg" ausgegeben. Leider ist es jetzt so, dass die Meldung nicht korrekt angezeigt wird (falsche Größe, Button fehlt usw.). Zusätzlich treten Zugriffsverletzungen auf. :wall:
Rufe ich die Funktion direkt auf (nicht in einem separaten Thread), dann klappt alles.
Darf ich "MessageDlg" nicht aus einem Thread aufrufen :?:

Ich hoffe, dass mir jemand einen Hinweis geben kann....

Gruß,

StTüff

Anbei ein Bild, wie die Meldung aussieht.

[Flocke]

Alles was mit der GUI zu tun hat muss innerhalb von Threads über Synchronize aufgerufen werden. Du schreibst dir also am besten eine Routine, die den Fehler ausgibt, und übergibst diese an Synchronize.

[chaosben]

... und versuch nicht, der Prozedur Parameter mitzugeben, z.B. so:

Delphi-Quellcode:

Synchronize(MeineProzedur(IchBinEinParameter))

Das geht meines Wissens (und Erfahrung ;)) nach leider nicht. Diese Sachen müsstest du dir in dem Thread-Object merken und dann muss sich die Prozedur die benötigten Werte "rauslutschen"

[StTüff]

OK! Vielen Dank. Das beantwortet meine Frage. Ich muss also unterscheiden, ob ich die Funktion aus eine Thread aufrufe, oder eben nicht. Am besten mache ich die Funktion zur Memberfunktion der Thread-Klasse (ist diese im Moment noch nicht).
Mir scheint, ich muss das ganze Konzept noch mal überdenken.

Gruß,

StTüff

[Flocke]

Synchronize selbst ist ja eine Methode von TThread (siehe TThread.Synchronize) und erwartet als Parameter ebenfalls auch eine Methode.

[StTüff]

Ich möchte meine Lösung kurz vorstellen:

Meine Klasse sieht jetzt so aus:

Delphi-Quellcode:

TTestThread = class(TThread)
  private
    { Private-Deklarationen }
  protected
    Msg: string;
    DlgType: TMsgDlgType;
    Buttons: TMsgDlgButtons;
    HelpCtx: Longint;
    DlgResult: Integer;
    procedure ThreadDlg();
    procedure Execute; override;
  public
    function ThreadDlgExecute(const InMsg: string; InDlgType: TMsgDlgType;
      InButtons: TMsgDlgButtons; InHelpCtx: Longint):integer;
  end;

Die Funktionen:

Delphi-Quellcode:

procedure TTestThread.ThreadDlg();
begin
  DlgResult:=MessageDlg(Msg, DlgType, Buttons, HelpCtx);
end;
function TTestThread.ThreadDlgExecute(const InMsg: string; InDlgType: TMsgDlgType;
      InButtons: TMsgDlgButtons; InHelpCtx: Longint):integer;
begin
  Msg:=InMsg;
  DlgType:=InDlgType;
  Buttons:=InButtons;
  HelpCtx:=InHelpCtx;
  Synchronize(ThreadDlg);
  result:=DlgResult;
end;

Das schöne daran ist, dass ich nur den Funktionsaufruf geringfügig ändern muss:

Delphi-Quellcode:

MessageDlg('Fehlfunktion!',mtError ,[mbOK],0);

in

Delphi-Quellcode:

form1.Thread.ThreadDlgExecute('Fehlfunktion!',mtError ,[mbOK],0);

:thumb: und :thumb: ich kann die Funktion auch von außerhalb des Threads aufrufen und es geht trotzdem.

Was meint Ihr :?: Kann man das so machen, oder ist das "unsauber" :?:

Gruß und besten Dank schon mal für die konstruktive Kritik....

StTüff

[Flocke]

Zitat:

Zitat von StTüff

:thumb: und :thumb: ich kann die Funktion auch von außerhalb des Threads aufrufen und es geht trotzdem.
Was meint Ihr :?: Kann man das so machen, oder ist das "unsauber" :?:

Sieht erst mal gut aus.
Außerhalb des Threads solltest du sie nicht aufrufen

Zitat:

Zitat von Delphi Online-Hilfe

Warnung: Rufen Sie Synchronize nicht aus dem Haupt-Thread aus auf. Dies kann zu einer unendlichen Schleife führen.

Damit ist allerdings wirklich außerhalb des Threads gemeint, also des Ausführungsfadens. Das muss nicht unbedingt eine Methode deiner TThread-Klasse sein!

[StTüff]

:P Danke! :P