ereignisprozduren

[HugoHase]

ein schönen guten Tag allerseits ich benötige mal wieder hilfe ... ich haffe ihr könnt mir helfen

also ich arbeite mal wieder an einem Projetkt ...
und in diesem Projetkt habe ich mir eine Klasse erstellt die der ich beim Kreiren ein Edit übergebe
und jetzt ist mene Frage wie erstelle ich in dieser Klasse eine Ereignisprozedur die activ wird wenn sich das Edit bzw der Text des edit verändert

vielen dank im Vorraus Gruß HugoHase

[grenzgaenger]

sorry, kann mir jetzt nicht grad viel drunter vorstellen, wie du das meinst. hast mal 'n paar zeilen quällcode da ...

dann wirds gemütlich

[HugoHase]

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);
    destructor Destroy;
  end;

das ist die Deklration meiner Klasse ... Sie gehört zu meinem SodokuLoeser
das edit was bei craete über geben wird kommt von der GUI
da ich kein Lust habe 81 OnChanereignisse zu schreben dachte ich ich könnte hier auf die verändereung eines Edits reagieren

[grenzgaenger]

dann weiss doch im create deine ereignisbehandlungsroutine zu ... e.onChange := myOnChangeprocedure dann sollte das problem gelöst sein

[HugoHase]

sry ich versteht das nicht so ganz .. und vorallem wie soll ich dann mit der arbeiten

[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;

[grenzgaenger]

nö nicht ganz ...

eher so:

Delphi-Quellcode:

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

E.OnChange:=EditChange;

aber deine methode (EditChange) ist noch falsch definiert. die erstellst dir am einfachsten in dem du bei einem anderen Edit, auf die OnChange klickst ...

[HugoHase]

ok ich noch mal ich hab blos vergessen dieses (sender:TObject) hinzu schreiben..
vilen dank an grenzgaenger