Função Callback

Um callback é um modo de enviar uma função como um parâmetro dentro de uma outra função. Quando a função de callback completa, o controle é passado de volta à função original. Nós nunca chamamos uma função de callback diretamente; a função da biblioteca chama ela por nós.

unit ExemploUnit;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TMeuForm = class(TForm)

OKBtn: TButton;

NomeEdit: TEdit;

procedure OKBtnClick(Sender: TObject); private procedure MinhaFuncaoLocal; end;

var

MeuForm: TMeuForm;

implementation

{$R *.dfm}

// primeiro passo é DENTRO DA BIBLIOTECA, precisamos declarar um tipo para passar ele

// como parâmetro para nossa função. Neste exemplo criamos um tipo chamado

// RotinaCallback: type TRotinaCallBack = procedure of object;
// note que o ultimo parâmetro (opcional) é do tipo TRotinaCallBack

procedure InformaAbort(const Condicao: Boolean; const Texto: string; Foco: TWinControl = nil; Rotina: TRotinaCallBack = nil);

begin

// se a condição for falsa já cai fora if not Condicao then Exit;
// mostra um alerta ShowMessage(Texto);
// chama nossa rotina de callback (se estiver associada) if Assigned(Rotina) then Rotina;
// manda o foco para o componente TWinControl(Foco).SetFocus;
// manda um abort SysUtils.Abort;end;
// para usar esta 8ª maravilha da programação, é bem simples, basta no seu projeto declarar

// uma função igual a do tipo TRotinaCallBack (neste exemplo a nossa NÃO POSSUI parametros):
procedure TMeuForm.MinhaFuncaoLocal;

begin

// passa a cor do form para vermelho Color := clRed;end;
// aqui no clique do botão, chamamos a função da mLib InformaAbort, sendo que passamos nossa função local

// como parâmetro para ela, a InformaAbort irá de dentro da lib chamar nossa função que se encontra

// no form. Entendeu?
procedure TMeuForm.OKBtnClick(Sender: TObject);begin InformaAbort(True, 'Deu erro', NomeEdit, MinhaFuncaoLocal);end;
end.