Einfacher thread der nur ein MessageDlg anzeigt erzeugen

**Kostas**

Hallo SirThornberry,

Über die Delphi Vorlage habe ich mit ein Threadrumpf erzeugen lassen
und ausgeführt. Es wird leider nichts angezeigt. Möglicherweise
hat es was mit ShowMessage zu tun es kommt ja auch aus der VCL.
Zumindest würde ich einen Fehler erwarten, es kommt jedoch nichts.

Hast Du eine Idee?

zusammenfalten · markieren

Delphi-Quellcode:

			unit MessageBoxThread;

interface

uses

  Classes, Dialogs;

type

  TMessageBoxThread = class(TThread)

  private

    { Private-Deklarationen }

  protected

    text: string;

    procedure Execute; override;

  public

    constructor Create(msg:string);

  end;

implementation

{ TMessageBoxThread }

constructor TMessageBoxThread.Create(msg:String);

begin

  inherited Create(false);

  text := msg;

  ShowMessage(text); // es passiert nichts

end;

procedure TMessageBoxThread.Execute;

begin

  { Thread-Code hier plazieren }

  ShowMessage(text); // es passiert nichts

end;

end.

Und so sieht der Aufruf des Threads aus:

markieren

Delphi-Quellcode:

			var ThreadMB: TMessageBoxThread;

begin

  ...

      ThreadMB := TMessageBoxThread(s);

      ThreadMB.Priority := tpLower;

      ThreadMB.Resume;

Einfacher thread der nur ein MessageDlg anzeigt erzeugen

Re: Einfacher thread der nur ein MessageDlg anzeigt erzeugen

Forumregeln