Memo OnChange Procedure zuweisen??

[DelphiPeter]

Hallo zusammen!

Ich erstelle ein Memo zur Laufzeit

Delphi-Quellcode:

...
var
  Memo: TMemo;
begin
  Memo := TMemo.Create(nil);
  
end;
...

Und jetzt möchte ich das OnChange Ereignis ausprogrammieren. Wie mache ich denn das? Stehe vielleicht auch einfach nur auf dem Schlauch.

[Meflin]

Du erstellst einfach eine procedure mit der gleichen Signatur die eben die "echte" OnChange-Prozedur hat (also mit denselben Parametern).

Und dann kannst du die einfach mittels Memo.OnChange := MyProcedure zuweisen.

edit: haha, schneller als die zwei Top-"Spammer". Fehlt ja nur noch Luckie. http://fnse.de/S01/0RB.gif

[DeddyH]

Du brauchst eine Methode vom Typ TNotifyEvent, die kannst Du dann dem OnChange des Memos zuweisen.

[edit] *Pfüh* immer diese Sockenjäger :stupid: [/edit]

[mkinzler]

Einfach durch Zuweisung einer Eventmethode mit der richtigen Signatur:

Delphi-Quellcode:

Memo.onChange := <Methodennamen>;

[DelphiPeter]

Also das hier geht nicht:

Memo.OnChange := MyProcedure

Was heißt den TNotifyEvent, muss ich da was in die Procedure schreiben? Sorry das ich mich so doof anstelle :-(

[_frank_]

wie sieht denn MyProcedure aus?

der Kopf sollte so aussehen:

Delphi-Quellcode:

procedure TForm1.MyProcedure(Sender: TObject);

muss natürlich eine Methode des gleichen Forms sein

Gruß Frank

[Meflin]

TNotifyEvent sieht so aus:

Delphi-Quellcode:

type TNotifyEvent = procedure(
  Sender: TObject
) of object;

Anwendbar also so:

Delphi-Quellcode:

procedure MyProc(Sender: TObject);
begin
  DoSomething;
end;

...

Memo.OnChange := MyProc;

[DeddyH]

Delphi-Quellcode:

type 
  TMyForm = class(TForm)
    ...
  private
    procedure ShowMemoChange(Sender: TObject);
    ...
  end;

...


procedure TMyForm.ShowMemoChange(Sender: TObject);
begin
  ShowMessage('Inhalt des Memos hat sich geändert');
end;

...
begin
  Memo := TMemo.Create(nil); 
  Memo.OnChange := ShowMemoChange;
end;

Probier das mal aus.

[edit] Ich poste gleich nichts mehr, pah :? [/edit]

[DelphiPeter]

Ahh, ok, ich schaue mal nach, danke!

[DelphiPeter]

Also, ich glaube das Problem liegt daran, das ich das alles in einer DLL versuche, die kein Formular hat.

Ich wollte es nun mal mit einer TStringlist versuchen, doch auch hier bekomme ich die Meldung

Zitat:

[DCC Fehler] ccl32.dpr(35): E2009 Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

Meine onChange Procedure sieht so aus

Delphi-Quellcode:

procedure OnChange(Sender: TObject);
begin

end;

und meine Zuweisung so

Delphi-Quellcode:

Ausgabe := TStringlist.Create;
    Ausgabe.OnChange := OnChange;