Set EventMethode in Script

[Thomas_Feichtner]

Hello,

is there a way to use Events in a script? It was fired once at start but wen the Class should do.

Delphi:
type
TmgmGefallKopierenModel = class;

TmgmGfKopierNotifyEvent = procedure(Sender: TmgmGefallKopierenModel) of object;

TmgmGefallKopierenModel = class(TComponent)
private
FOnAfterCopyPosition: TmgmGfKopierNotifyEvent;
protected
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure DoSomething;
published
property OnAfterCopyPosition: TmgmGfKopierNotifyEvent read FOnAfterCopyPosition write FOnAfterCopyPosition;
end;

Script:
procedure OnAfterGfCopyPositionX(Sender: TmgmGefallKopierenModel);
begin
ShowMessage('OnAfterGfCopyPositionX: ' );
end;

procedure UDO_Button_Click;
var
LoGfKopieren: TmgmGefallKopierenModel;
begin
LoGfKopieren := TmgmGefallKopierenModel.Create(CallForm);
LoGfKopieren.OnAfterCopyPosition := OnAfterGfCopyPositionX(LoGfKopieren);//-> The Event ist called;
LoGfKopieren.DoSomething; // here the Event isn't called.

[wlandgraf (Wagner Landgraf)]

Yes, you can use events but:

1. Events in scripter are set using the method name as string. For example:

LoGfKopieren.OnAfterCopyPosition := 'OnAfterGfCopyPositionX';

2. You have to register the event type in advance so scripter know about it.

Some examples:

TRzStringGrid: OnDrawCell Event adapter notdefined

For some reason a customer who upgraded to our latest version is having an issue with an OnDrawCell event. They get the error: "TRzStringGrid: OnDrawCell Event adapter not defined." I see in the manual this:"the OnEvent handlers are not automatically defined by scripter. You must implement aTatEventDispatcher descendant class and use DefineEventAdapter method." But I couldn't find any information on how the DefineEventAdapter methods work in the docs. Here is how the procedure is defined:procedu…

Event adapter not defined for OnDrawColumnCell

Hello, use this:   DefineEventAdapter(TypeInfo(TDrawColumnCellEvent), TMyDBGridsDispatcher, @TMyDBGridsDispatcher.__TDBGridDrawColumnCell); type   TMyDBGridsDispatcher = class(TatEventDispatcher)   private     procedure __TDBGridDrawColumnCell(Sender: TObject; const Rect: TRect;       DataCol: Integer; Column: TColumn; State: TGridDrawState);   end; uses ap_Types procedure TMyDBGridsDispatcher.__TDBGridDrawColumnCell(Sender: TObject;   const Rect: TRect; DataCol: Integer; Column: TColumn; St…

[Thomas_Feichtner]

Hi, it works great.

Have a nice Day.