Erstmal ist MessageBox im Gegensatz zu ShowMessage eine Funktion und keine Prozedur.
Das MessageBox in TApplication ist nur ein Wrapper für die WinAPI Funktion MessageBox.

Das bei MessageBox gewartet wird, bis der Benutzer eine Eingabe macht, resultiert wohl daraus, das erst nach dem Klicken auf eine der Schaltflächen (bei dir mbOK - was auch Standard ist und somit gar nicht übergeben werden müsste) die Funktion zum Programm zurückkehrt. Im Gegensatz dazu ist ShowMessage ein einfaches Anzeigefenster.

Zitat von Kostas:

markieren

Delphi-Quellcode:

      ThreadMB := TMessageBoxThread.Create(true);
      ThreadMB.Priority := tpLower;
      ThreadMB.Resume;

      ThreadMB := TMessageBoxThread.Create(true);
      ThreadMB.Priority := tpLower;
      ThreadMB.Resume;

zusammenfalten · markieren

Delphi-Quellcode:

unit MessageBoxThread;

interface

uses
  Classes, Dialogs, Forms, Sysutils, Windows;

type
  TMessageBoxThread = class(TThread)
  private
    { Private-Deklarationen }
  protected
    text: string;
    procedure Execute; override;
    procedure StarteThread; virtual; //abstract;
  public
    constructor Create(msg:string);
  end;


implementation

{ TMessageBoxThread }

constructor TMessageBoxThread.Create(msg:String);
begin
  inherited Create(false);
  text := msg;
end;


procedure TMessageBoxThread.Execute;
begin
  {Windows.}MessageBox(nil, 'Hallo Welt', 'Schöner Text', MB_OK);
end;

end.

Mit MessageBox brauchst du das nicht mehr synchronisieren, da es ja Threadsafe ist

Aber wirklich die Windows-API-Funktion verwenden und nicht die VCL-Version Application.Messagebox()

Du brauchst übrigens keine Variable im Konstruktor des Threads, du kannst einfach true reinschreiben

Zitat von jfheins:

...
Du brauchst übrigens keine Variable im Konstruktor des Threads, du kannst einfach true reinschreiben

Hallo Julius,

was könntest Du damit meinen?
Dem Constructor übergebe ich nur den Text welcher angezeit werden soll.
Aber vermutlich meinst Du etwas anderes.

Gruß Kostas

      ThreadMB := TMessageBoxThread.Create(true); Das da meine ich - ist aber nicht so wichtig

Zitat von jfheins:

      ThreadMB := TMessageBoxThread.Create(true); Das da meine ich - ist aber nicht so wichtig

Ah, ich verstehe. Das war eigentlich Absicht um den Text der angezeigt werden soll
zu übergeben. Du meinst, es währe besser eine public property zu erzeugen und nach dem Create
über das property den Text zuweisen?

[edit]

ach jetzt sehe ich das gerade.
Ich mache das eigentlich so:

markieren

Delphi-Quellcode:

ThreadMB := TMessageBoxThread.Create(s);
      ThreadMB.Priority := tpLower;
      ThreadMB.Resume;

      ThreadMB := TMessageBoxThread.Create(s);
      ThreadMB.Priority := tpLower;
      ThreadMB.Resume;

und nicht so:
Wie das Create umgestellt wurde ist mir ein Rätsel.

markieren

Delphi-Quellcode:

ThreadMB := TMessageBoxThread.Create(true);
      ThreadMB.Priority := tpLower;
      ThreadMB.Resume;

      ThreadMB := TMessageBoxThread.Create(true);
      ThreadMB.Priority := tpLower;
      ThreadMB.Resume;

Gruß Kostas

Ok, hab mich vertan

Ich hatte nicht gesehen, dass du den Konstruktor überschrieben hast ...

Aber wenn ich mich recht errinere, ist der Orginal-Parameter CreateSuspended - d.h. insb. dass du den Thread sofort nach dem Kontruktor startest weil du ja false übergibst - danach darfst du eigenlich keine Propertys mehr ändern, weil der Thread schon beendet sein könnte !

Da du ja sowiso am Ende ein Resume machst, kannst du also auch true übergeben.

Generell solltest du dich für einen Weg entscheiden: Alles im Konstruktor mitgeben und sofort loslegen oder den Thread schlafend erstellen und dann Properties belegen

Zitat von jfheins:

Ok, hab mich vertan

..
Generell solltest du dich für einen Weg entscheiden: Alles im Konstruktor mitgeben und sofort loslegen oder den Thread schlafend erstellen und dann Properties belegen

Wie müsste ich bitte den Tread umbauen so das er sofort nach dem erzeugen startet?
Ich würde gerne dem Constructor den Text übergeben und danach kann er auch sofort losgehen.

Und noch eine Kleinigkeit wenn ich darf: Den Buffer habe ich großzügig mit 500 byte angelegt.
Eigentlich würde ich gerne der Buffer zur Laufzeit ermitteln und setzen.
So geht es leider nicht, hast Du eine Idee?

Buffer: array of char;
SetLength(Buffer, Length(s));

markieren

Delphi-Quellcode:

procedure TMessageBoxThread.Execute;
const MAX_BUFFER = 500;
var Buffer: array [0..MAX_BUFFER] of char;
begin
  StrLCopy(Buffer, PChar(text), MAX_BUFFER);
  windows.MessageBox(handle, Buffer, 'Fingerabdruck gefunden', MB_OK);
end;

Gruß Kostas

Das tut er doch bereits

markieren

Delphi-Quellcode:

constructor TMessageBoxThread.Create(msg:String);
begin
  inherited Create(false);
  text := msg;
  Priority := tpLower;
end;

Nur darfst du dann keine Properties mehr setzten nachdem du den kOnstruktor aufgerufen hast ...

Zu dem Char-Array-Pronblem: Schonmal versucht, den String einfach nach PChar zu casten?

Zitat von jfheins:

Das tut er doch bereits

markieren

Delphi-Quellcode:

constructor TMessageBoxThread.Create(msg:String);
begin
  inherited Create(false);
  text := msg;
  Priority := tpLower;
end;

Nur darfst du dann keine Properties mehr setzten nachdem du den kOnstruktor aufgerufen hast ...

Zu dem Char-Array-Pronblem: Schonmal versucht, den String einfach nach PChar zu casten?

oh je, natürlich funkt es, ich dachte ich muss Resume immer aufrufen.
Das mit PChar war das erste was ich probiert hatte. Zu dem Zeitpunkt hat es jedoch
Fehlermeldungen geregnet, allerding nicht wegen cast auf PChar wie ich soeben gemerkt
habe. Auch das geht also. So gefehlt mir das.

Tausend Dank Julius Du warst mir eine große Hilfe.

Gruß Kostas

zusammenfalten · markieren

Delphi-Quellcode:

unit MessageBoxThread;

interface

uses
  Classes, Dialogs, Forms, Sysutils, Windows;

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;
  Priority := tpLower;
end;


procedure TMessageBoxThread.Execute;
begin
  windows.MessageBox(handle, Pchar(text), 'Fingerabdruck gefunden!', MB_OK);
end;


end.

Aus dem Aufruf ist jetzt nur noch das übrichgeblieben.
ThreadMB := TMessageBoxThread.Create(s);