Olá. Eu tentei declarar a procedure dentro de uma classe e ela recebe como
parâmetro o Sender.
Mas continua não aceitando.
Dá como identificador não declarado.
========================
type
TImpressora = class(TVDODmPrinter)
public
procedure novaLinha(Sender : TObject);
private
end;
procedure TImpressora.novaLinha(Sender : TObject);
var imp : TVDODmPrinter;
begin
imp := Sender as TVDODmPrinter;
imp.Print(imp.CurrentLine, IntToStr(imp.CurrentLine) );
end;
impressora.OnNewLine := impressora.novalinha;
On 12/4/06, Douglas Uesato - Depto. de Informática <[EMAIL PROTECTED]>
wrote:
>
> Leodinei,
>
> A sua procedure deverá ter o parâmetro (Sender: TObject), caso
> contrário não irá funcionar.
>
> Ex:
>
> Procedure TForm1.Teste(Sender: TObject);
> Begin
> ShowMessage('Olá!!!');
> End;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Button1.OnClick := Teste;
> end;
>
> Atenciosamente,
> Douglas Uesato
>
[As partes desta mensagem que não continham texto foram removidas]
