Sende Event fra unit

Ja det er ikke så svært ..... Prøv at gå på http://borrisholt.com og downloaf mit ThreadSearch projekt. (Det ligger under FileIO) Den kaster er OnFileFound event af sig ... Kig lidt på den og spørg så igen hvis du stadig er i tvivl ...

Jens B

Hej Jens

Jeg får nok brug for din hjælp, jeg har oprettet et test projekt med 2*Units med tilhørende Forms

min kode i unit 2 har du her:

unit Unit2;

interface

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

type
  TADataFinishEvent = Procedure (AData : String) of object;
  TForm2 = class(TForm)
    Button1: TButton;
  private
    VOnADataFinish : TADataFinishEvent;
    { Private declarations }
  public
    { Public declarations }
    procedure OnFinishData;
  published
    property OnADataFinish : TADataFinishEvent read  VOnADataFinish write VOnADataFinish;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}


procedure TForm2.OnFinishData;
begin
 
end;

end.


Jeg vil gerne have at Eventet sender strenge AData tilbage,

men er kørt lidt fast her

ja ja .. Du har den ellers næsten ....

Lad os sige du har en unit der indsamler Data. (UnitData.pas)

den laver du sådan her :

unit UnitData;

interface

uses WathEverYouNeed;

type
  TADataFinishEvent = Procedure (AData : String) of object;
  TDataopsamling = class
  private
    VOnADataFinish : TADataFinishEvent;
  public
    Constructor Create(aDataFinishEvent : TADataFinishEvent);
    Procedure doGetData;
    property OnADataFinish : TADataFinishEvent read  VOnADataFinish write VOnADataFinish;
 
  end; 

implementation

Constructor TADataFinishEvent.Create();
begin
//sæt dit object op
  inhireted; 
end;

procedure TADataFinishEvent.doGetData;
var
  DataString : String;
begin
  //indsaml data i din DataString;
  if Assigned(VOnADataFinish) then
    VOnADataFinish(DataString);
end;


///// Så har du din form :

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    Procedure DataFinish(AData : String);
    { Private declarations }
  public
    { Public declarations }
  published
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}


procedure TForm2.Button1Click(Sender: TObject);
begin
  with  TADataFinishEvent.Create do
  try
    OnADataFinish := DataFinish;
    doGetData;
  finally
    free;
  end;
end;

procedure TForm2.DataFinish(AData : String);
begin
  ShowMessage(aData)
end;

end.

.. Frit fra leveren, men noget i den retning

Jens B

Men jeg har en form på den som samler data ind, nærmest for at have
et sted at plavere min socket dims, men det går måske ikke ?

ork jo ingen problem ..... Men der er ingen grund til at have en form bareofrdi du har en Socket ... Den kan du bare oprette i din Constructor ...

Jens B

Ja men nu er jeg nået temmeligt langt med den, jeg sender også
diverse debug infos op på den

Jeg har sendt lidt til dig

Tak for hjælpen, jeg har hævet til 60 point