Eventos

Eventos

Se pueden utilizar manejadores de eventos en los scripts. Al contrario de lo que sucede con los manejadores de eventos de Object Pascal, los de los scripts no son métodos de un objeto. El siguiente ejemplo muestra como conectar el manejador de eventos TButton.OnClick de un componente:

var

Btn: TButton; Form1: TForm;

procedure ButtonClick(Sender: TButton);
begin
  ShowMessage(Sender.Name);
end;
begin
  Btn := TButton.Create(Form1);
  Btn.Parent := Form1;
  Btn.OnClick := @ButtonClick; // same as Btn.OnClick := 'ButtonClick'
  Btn.OnClick := nil; // clear the event

end.

Hay algunos eventos predefinidos, disponibles para todos los scripts. [FS_iEvents unit]:

  TfsNotifyEvent
  TfsMouseEvent
  TfsMouseMoveEvent
  TfsKeyEvent
  TfsKeyPressEvent
  TfsCloseEvent
  TfsCloseQueryEvent
  TfsCanResizeEvent

[See the “TfsFormsRTTTI component”, “TfsExtCtrlsRTTI component” and “TfsDBCtrlsRTTI component” chapters for a list of the available events.]


¡No lo dudes! Estás ante la mejor opción del mercado. ¡Pide una Demo Ya!