weiterlaufen während showmessage()

[turboPASCAL]

@Gummibärchen, ich bezog mich nur auf das Timerbeispiel.

Zitat von SirThornberry:

Es gibt aber auch noch die Möglichkeit mit PostMessage an die eigene Anwendung eine Message zu schicken und bei Empfang der Message ShowMessage aufzurufen.

Das ist auch eine Idee die man Umsetzen könnte.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
  WM_MYMESSAGE = WM_USER + $000001;

type
  TMyMessage = Record
                 // foo 
               end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure WMMyMessage(var M: TMyMessage); message WM_MYMESSAGE;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMMyMessage(var M: TMyMessage);
begin
  ShowMessage('Hi');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(Handle, WM_MyMessage, 0, 0);
end;

end.