Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Komponente Event to Code problem (https://www.delphipraxis.net/125207-komponente-event-code-problem.html)

th_bone 2. Dez 2008 12:42


Komponente Event to Code problem
 
Hi,

ich möchte mittels einer Unit auf eine Komponente zugreifen und damit einiges für mich automatisieren - das klappt soweit
auch ganz gut.
Das Problem ist, dass ein Teil der Komponente ein Ereignis als ergebnis liefert und ich
komme bei der Zuweisung des Ergebnisses folgende Fehlermeldung:

"E2035 Nicht genügend wirkliche Parameter"

die Deklaration stimmt aber 100% mit dem event überein...

(Das sind meine ersten versuche Komponenten direkt aus einer Unit zu nutzen - bin im moment ein wenig ratlos...)

Danke

Ralf

Delphi-Quellcode:
type
  Tr2w_MSdata = class(Tcomponent)
    public
     procedure loadMSsymbol(Symbol, MSpath: string; DataRecord: Tr2w_Datarecord);
    private
      procedure MSImportStockRate(Sender: TObject; Date, Open, High, Low, Close, Volume: Extended);
  end;

implementation

procedure Tr2w_MSdata.MSImportStockRate(Sender: TObject; Date, Open, High, Low, Close, Volume: Extended);
begin
  //...
end;

procedure Tr2w_MSdata.loadMSsymbol(Symbol,MSpath: string; Datarecord: Tr2w_Datarecord);
var
 MSimport: TMetastockimport;
begin
  //...

  MSImport := TMetastockImport.Create(self);

  MSImportstockrate := MSImport.OnStockRate; // hier kommt die Fehlermeldung
                                              // wenn man mit der Maus über onstockrate ist entspricht die sichtbare
                                              // definition MSImportstockrate...

  //...

  MSImport.Free;
end;

Bernhard Geyer 2. Dez 2008 12:51

Re: Komponente Event to Code problem
 
Wie wäre es mit drehen der Zuweisung:

Delphi-Quellcode:
MSImport.OnStockRate := MSImportstockrate;
MSImportstockrate soll ja aufgerufen werden :-)

th_bone 2. Dez 2008 14:16

Re: Komponente Event to Code problem
 
:wall: :wall: :wall: :oops:

Schande über mich - das war's...

Danke

Ralf


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:34 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz