Asignar una función dinámicamente

[strelok]

Hola,

me gustaría saber si es posible asignar una función al evento OnGetCellColor de los TAdvStringGrid y TDBAdvGrid, si y solo si, no hacen uso de ese evento actualmente ¿es posible?

[ecfisa]

Hola.

Nunca he usado los componentes TMS, pero de acuerdo a esta guía, TMS TAdvStringGrid DEVELOPERS GUIDE, el evento OnGetCellColor está declarado así:

Código Delphi [-]
 TGridColorEvent = procedure (Sender:TObject; ARow, ACol:Integer; AState:TGridDrawState;
   ABrush:TBrush; AFont:TFont) of object;

Entonces creo que para asignarle tu propio procedimiento, bastaría con hacer algo similar a esto:

Código Delphi [-]
...

type
  TForm1 = class(TForm)
    AdvStringGrid1 : TAdvStringGrid;
    procedure FormCreate(Sender: TObject);
    ...
  private
    procedure MyGetCell(Sender:TObject; ARow, ACol:Integer; AState:TGridDrawState; ABrush:TBrush; AFont:TFont);
    ...
  public
    ...
  end;
  
...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdvStringGrid1.OnGetCellCol := MyGetCell;
end;

procedure TForm1.MyGetCell(Sender:TObject;ARow, ACol:Integer; AState:TGridDrawState; ABrush:TBrush; AFont:TFont);
var
  sg: TAdvStringGrid;
begin
  sg := AdvStringGrid1;
  ...  // operaciones pertinentes
end;
...

Aunque, en base, sería lo mismo usar la declaración original...

Saludos

[strelok]

Empezado por ecfisa

Hola.

Nunca he usado los componentes TMS, pero de acuerdo a esta guía, TMS TAdvStringGrid DEVELOPERS GUIDE, el evento OnGetCellColor está declarado así:

Código Delphi [-]
 TGridColorEvent = procedure (Sender:TObject; ARow, ACol:Integer; AState:TGridDrawState;
   ABrush:TBrush; AFont:TFont) of object;

Entonces creo que para asignarle tu propio procedimiento, bastaría con hacer algo similar a esto:

Código Delphi [-]
...

type
  TForm1 = class(TForm)
    AdvStringGrid1 : TAdvStringGrid;
    procedure FormCreate(Sender: TObject);
    ...
  private
    procedure MyGetCell(Sender:TObject; ARow, ACol:Integer; AState:TGridDrawState; ABrush:TBrush; AFont:TFont);
    ...
  public
    ...
  end;
  
...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdvStringGrid1.OnGetCellCol := MyGetCell;
end;

procedure TForm1.MyGetCell(Sender:TObject;ARow, ACol:Integer; AState:TGridDrawState; ABrush:TBrush; AFont:TFont);
var
  sg: TAdvStringGrid;
begin
  sg := AdvStringGrid1;
  ...  // operaciones pertinentes
end;
...

Aunque, en base, sería lo mismo usar la declaración original...

Saludos

Muchas gracias, ¿y para preguntar que no el método no se esté usando actualmente? ¿algo así?

if (TComboBox(pComponente).OnEnter=nil) then

[Neftali [Germán.Estévez]]

Empezado por strelok

Muchas gracias, ¿y para preguntar que no el método no se esté usando actualmente? ¿algo así?

if (TComboBox(pComponente).OnEnter=nil) then

Aunque esté asiganado, siempre puedes "quedarte" con el puntero, asignar la tuya y luego desde la tuya llamar à la anterior que estaba asignada.
De esa forma podrías mantener amnbas.