Procedimiento Como Parametro
 

Hola a todos...

Quería saber si en Delphi se puede hacer algo así y como:

Código Delphi [-]
      FrmMensaje.BtnOk      := (Procedure (Sender:TObject)
                                begin
                                  FrmMain.RaEdit_ClienteNro.SetFocus;
                                End);

Donde BtnOk del Formulario FrmMensaje esta definido asi:

Código Delphi [-]
property BtnOk:TNotifyEvent read neBtnOk write neBtnOk default nil;

Al compilar el proyecto me dice:
En resumen, necesito pasar un procedimiento como parámetro y me gustaría definirlo directamente en el parámetro...
Es posible?

Saludos...

Neeruu,

Revisa estos links:
Espero sea útil :)

Nelson.

Hola.

El error se produce por que estas asignando a la propiedad BtnOk un procedimiento normal y no un mètodo de clase.

En un TForm agrega un TButton y un TEdit y proba este ejemplo:

Código Delphi [-]
...
type
  TFrmMensaje = class(TForm)
    Button1: TButton;
    Edit1  : TEdit;
    procedure FormCreate(Sender: TObject);
  private
    FBtnOk : TNotifyEvent;
    procedure MiProc(Sender: TObject);
  public
    property BtnOk: TNotifyEvent read FBtnOk write FBtnOk;
  end;

var
  FrmMensaje: TFrmMensaje;

implementation  

procedure TFrmMensaje.MiProc(Sender: TObject);
begin
  ShowMessage(TControl(Sender).Name); 
end;

procedure TFrmMensaje.FormCreate(Sender: TObject);
begin
  BtnOk           := MiProc;
  Button1.OnClick := BtnOk;
  Edit1.OnClick   := BtnOk;
end;
...

Tal vez tambièn te puede interesar este enlace : Punteros de Metodos

Saludos :)

Claro... cuando lo defino como lo definiste tu como un método de una clase anda de 10...

Hola,

Creo que que lo que quieres usar se llama "métodos anónimos". Revisa este enlace.

Código Delphi [-]
type
  TFrmMensaje = class(TForm)
    RxTheme1: TRxTheme;
    PnlBase: TPanel;
    ListBox1: TListBox;
    Panel1: TPanel;
    BtnOk: TButton;
    BtnCancel: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnOkClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);    
  private
    neBtnOk:TNotifyEvent;
    neBtnCancel:TNotifyEvent;
    { Private declarations }
  public
    procedure ShowMessage(sCaption:String; sMensaje:TStrings; CantBtn:Integer);

    property BtnOk:TNotifyEvent read neBtnOk write neBtnOk default nil;
    property BtnCancel:TNotifyEvent read neBtnCancel write neBtnCancel default nil;
    { Public declarations }
  end;

var
  FrmMensaje: TFrmMensaje;

implementation

{$R *.dfm}

procedure TFrmMensaje.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caHide;
end;

procedure TFrmMensaje.BtnCancelClick(Sender: TObject);
begin
  Close;
  if Assigned(BtnCancel) then
    BtnCancel(Self);
end;

procedure TFrmMensaje.BtnOkClick(Sender: TObject);
begin
  Close;
  if Assigned(BtnOk) then
    BtnOk(Self);
end;

procedure TFrmMensaje.ShowMessage(sCaption:String; sMensaje:TStrings; CantBtn:Integer);
begin
  Case CantBtn of
    1:begin
        BtnOk.Left := PnlBase.Width-BtnOk.Width - 6;
        BtnCancel.Visible := False;
        BtnCancel.Enabled := False;
      end;
    else
      begin
        BtnOk.Left := 6;
        BtnCancel.Visible := True;
        BtnCancel.Enabled := True;
      end;
  end;


  FrmMensaje.Caption := sCaption;
  ListBox1.Items.Clear;
  ListBox1.Items := sMensaje;

  FrmMensaje.ShowModal;
end;

Al Form lo llamo de esta manera...

Código Delphi [-]
FrmMensaje.BtnOk := MiProc o Nil dependiendo de que quiero que haga;
FrmMensaje.BtnCancel := MiProc o Nil dependiendo de que quiero que haga;
FrmMensaje.ShowMessage('',MyStringList, 2);

Como debería modificar las propiedades BtnOK y BtnCancel para poder hacer lo siguiente...

Código Delphi [-]
FrmMensaje.BtnOk := (procedure (Sender:TObject)
                               begin
                                     ShowMessage('Presiono el Btn OK');
                               end);

^\||/ Muy interesante ese nuevo (para mi) tipo de puntero a método. Curioseando un poco, parece que se implementó a partir de la versiòn 2009.

Todavía no lo puedo usar, pero está muy bueno conocerlo ;)

Un saludo :)

Acá anexo un par de links que me parecieron entretenidos leerlos para entender como trabaja....

Y si creo que es esto lo que andaba buscando... solo que ahora tengo que hacer un re analisis de lo que tengo programado...:mad:

Gracias Dec!!!


http://markdelphi.blogspot.mx/2008/0...en-delphi.html
http://www.compago.it/clng_es/294-i-...in-delphi.html