ereignisprozduren

[HugoHase]

ich hab das jetzt so verstanden ...

Delphi-Quellcode:

 TFeld = class
  private
    { Private declarations }
  public
    Nr : Integer;
    moegliche : array[1..9] of boolean;
    sw : array of TElement;
    Edit : TEdit;
    zeile : integer;
    spalte : integer;
    block : integer;
    constructor Create(var E:TEdit; N:Integer);
    procedure swe(zahl:integer; F:TFeld);
    procedure EditChange;
    destructor Destroy;
  end;


.
.
.
.


constructor TFeld.Create(var E:TEdit; N:Integer);
var i : integer;
begin
 inherited Create;

 Edit:=E;
 Edit.OnChange:=EditChange();

 for i:=1 to 9 do
 begin
  moegliche[i]:=true;
 end;

 if Length(sw) <> 0 then
 begin
  SetLength(sw,0);
 end;
 Nr:=N;
end;

procedure TFeld.EditChange;
begin
 showmessage(edit.Text);
end;