Meldungen aus einer Unit an ein Formular senden

[Sigi55]

Hallo DeddyH,

Superteil, löppelt prima, nur im Gegensatz zum Lars bekomm ich's nicht gebacken
den Messagemanager in eine unit OHNE Formular einzubinden.

Zitat von LarsSchwencke:

Hallo DeddyH,

klasse, das war genau das was ich brauchte.
Da ich aber nur ein Formular und eine Unit ohne Formulat habe
mußte ich es nur etwas anpassen aber jetzt funktioniert es
super.

Danke.

Delphi-Quellcode:

type
  TfrmInput = class(TForm)
    edtMessage: TEdit;
    btnAdd: TButton;
    procedure btnAddClick(Sender: TObject);
  private
    { Private-Deklarationen }
    FManager: TMessageManager;
  public
    { Public-Deklarationen }
    property Manager: TMessageManager read FManager write FManager;
  end;

Kannst Du (oder jemand anders ) mir das bitte anpassen ??
Ich raff das nicht ...

In einem Datamodul hab ichs zum Laufen bekommen

Delphi-Quellcode:

unit Unit4;

interface

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

type
  TDataModule4 = class(TDataModule)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    FManager: TMessageManager;
    { Private declarations }
  public
    { Public declarations }
    property Manager: TMessageManager read FManager write FManager;
  end;

  procedure test;

var
  DataModule4: TDataModule4;

implementation

{$R *.dfm}

procedure test;
begin
 if Assigned(DataModule4.FManager) then
    DataModule4.FManager.AddMessage('hallo test aus datamod');
end;

procedure TDataModule4.Timer1Timer(Sender: TObject);
begin
 if Assigned(FManager) then
  FManager.AddMessage('hallo timer aus datamod');
end;

end.

Vielen Dank schomal ...
Gruß

Sigi