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;

[DeddyH]

Da scheint mir einiges durcheinander geraten zu sein, was willst Du denn eigentlich erreichen?

[DelphiPeter]

öhm...

Ich habe eine procedure, die eine ausgabe in ein TStrings schreibt, also von mir aus ein Memo oder eine Stringlist. Und nun möchte ich diese Procedure aufrufen und im onChange mit der Ausgabe arbeiten...

[DeddyH]

Im OnChange wovon denn?

[Meflin]

Du hast ein Memo (= visuelle Komponente) ohne Form?? Das ist irgendwie sinnlos...

[DelphiPeter]

Im onChange von der TStringlist

[DeddyH]

Und diese TStringlist ist in einer DLL? Mir erscheint Dein Unterfangen ziemlich aussichtslos, es sei denn, ich kapiere mal wieder gar nichts :gruebel:

[Meflin]

Zitat:

Zitat von DeddyH

Und diese TStringlist ist in einer DLL?

Ist doch eigentlich egal. Funktionieren sollte es doch trotzdem :gruebel:

[SirThornberry]

Was auch immer er vor hat. Die Fehlermeldung sagt genau das was wohl nicht stimmt. Es wird eine Methode erwartet (of Object) und er verwendet eine normale procedure. Somit ist die procedure nicht vom erwarteten Typ (TNotifyEvent)

[mkinzler]

Wie erwähnt es muss eine Methode sein. Ob diese von einem Formular(klasse) oder einer anderen Klasse ist.

[DelphiPeter]

Das heißt, wenn ich eine Klasse "drum baue" sollte es funktionieren? Das sollte ja kein Problem darstellen, oder liege ich da falsch? Ich wollte nur ungerne die besagte procedure umschreiben.

[himitsu]

wenn du die Prozedur nicht umschreiben willst, dann könntest du noch eine Umleitung einbauen

in einer Klasse eine Funktion reinmachen, welche als OnChange-Ereignis aufgerufen weren kann und diese leitet dann alles an deine Prozedur weiter.

oder könntest du zumindestens die Parameter deiner Prozedur etwas erweitern?

[DelphiPeter]

naja, theoretisch könnte ich die procedure einfach umschreiben, aber ich war eigentlich froh das es soweit nun funktioniert. Kann ich nicht einfach eine eigene TStringlist bauen, sowas wie TPetersListe, dann könnte ich ja dort alles ableiten von der richtigen tstringlist, oder wie? hmm... bin überfragt.

[himitsu]

Ist zwar nicht unbedingt der Beste weg, aber so könnte man es notfalls auch noch lösen

Delphi-Quellcode:

type TMyNotifyEvent = class
    class procedure MyOnChange(Sender: TObject);
  end;

class procedure TMyNotifyEvent.MyOnChange(Sender: TObject);
  begin
    
  end;

procedure TForm1.FormCreate(Sender: TObject);
  begin
    Memo1.OnChange := TMyNotifyEvent.MyOnChange;
  end;

theoretisch sähe die reine Prozedurdefinition einer TNotifyEvent-Prozedur so aus:

Delphi-Quellcode:

procedure MyOnChange(Self, Sender: TObject);

Würde auch funktioonieren, aber dafür muß man die Typenprüfung von Delphi schon überlisten, da
Procedure <> Procedure of Object.
Man müßte also irgendwie den Typ von Pointer ( @MyOnChange ) nach TNotifyEvent umbiegen, da sich die Prozedur sonst nicht an .OnChange übergeben läßt.

[DelphiPeter]

Na also das werde ich mal ausprobieren. Vielen Dank im VOrraus!

[_frank_]

Zitat:

Zitat von DelphiPeter

Na also das werde ich mal ausprobieren.

ich hoffe, du meinst damit nicht den Hack, den Himitsu angedeuted hat...

wozu ableiten und neue klasse erstelen?
warum nicht aus der procedure eine Methode machen? wie ist dein Aufbau? liegt die dll in einer Dll?

in dem fall sollte eine simple umleitung das problem doch lösen, oder nicht?
was spricht dagegen?

Fragen über Fragen...

Gruß Frank