bug or is it me ???
lazarus / 13-General

----------------------------------------------------------------------
christophe_D · 2006-05-01 21:13

i don't know if it's a bug but

with a simple form with 2 Tedit (edit1 et edit2 )

Code: [Select]unit base;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Edit1Change(Sender: TObject);
begin
     // something to do ;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     edit2.OnChange:=Edit1.onchange;

end;

initialization
  {$I base.lrs}

end.


the compil for this have no pbs

but if in FormCreate(Sender: TObject);
i use this

Code: [Select]
procedure TForm1.FormCreate(Sender: TObject);
begin
     edit2.OnChange:=Edit1Change;

end;

i have this error
Quote
base.pas(39,22) Error: Wrong number of parameters specified
base.pas(32,18) Hint: Found declaration: TForm1.Edit1Change(TObject)
base.pas(48) Fatal: There were 1 errors compiling module, stopping


there is no error of syntaxe ???
i used this in "delphi 6 personal edition" without error
it's me do something wrong ?? or little bug ??

thank for your answer

----------------------------------------------------------------------
Bjarte · 2006-05-01 23:34

I think FPC needs a @ infront of linking to event procedures. I have
seen programs use {$IFDEF FPC}@{$ENDIF} to make it cross compiler
compatible.

----------------------------------------------------------------------
mattias · 2006-05-01 23:41

Or use {$mode Delphi}.

I added a help page for this message to the IDE.