Probleme mit onClick procedure

[neo4a]

Zitat von Satyr:

ich habe mein dynamisch erzeugtes TMenuItem.

Dann deklariere im Interface-Teil:

Delphi-Quellcode:

type
  TSpecMenuItem = class(TMenuItem)
  private
    Message : string;
    EinWert : Integer;
  end;

Erzeuge dynamisch:

Delphi-Quellcode:

var
  aMenuItem : TSpecMenuItem;
begin
  aMenuItem := TSpecMenuItem.Create(Self);
  aMenuItem.Message := 'Hi';
  aMenuItem.EinWert := 4711;
  aMenuItem.OnClick := actMenuClickExecute;
  FPopupMenu.Items.Add(aMenuItem);
end;

Und benutze:

Delphi-Quellcode:

procedure TMyForm.actMenuClickExecute(Sender : TObject);
var
  aMenuItem : TSpecMenuItem;
begin
  aMenuItem := Sender as TSpecMenuItem;
  ShowMessage(Format('%s : %d', [aMenuItem.Message, aMenuItem.EinWert]));
end;

Das geht auch mit D2007.

Da fällt mir noch ein: Wenn Dir das Arbeiten mit einer eigenen abgeleiteten Klasse nicht behagt, kannst Du mit dem Interceptor Pattern die gewünschte Erweiterung auch einem TMenuItem "unterschieben". Dazu deklariert man in einer separaten Unit:

Delphi-Quellcode:

unit uMenuItemInterceptor;

interface

uses
  Menus;

type
  TMenuItem = class(Menus.TMenuItem)
    MeinWert : string
  end;

implementation

end.

Diese Unit bindest Du dann als letzte Unit in Deiner Form-Unit ein und schon kannst Du Deinem TMenuItem beliebige Werte (hier MeinWert) mit auf den Weg geben.

Diese Technik funktioniert immer nur einmal pro Klasse (ähnlich wie bei den Class Helper).

[Satyr]

Danke für die Hilfe aber ich habe es jetzt über den Tag gelöst. Das ging schneller als ich dachte... da der String den ich übergeben wollte eh nur eine Art Datum war, konnte ich das leicht als Integer im Tag ablegen.

[neo4a]

Zitat von Satyr:

Danke für die Hilfe aber ich habe es jetzt über den Tag gelöst. Das ging schneller als ich dachte...

Schau Dir unter dem Gesichtspunkt "better practise" ruhig die von mir empfohlene Lösung noch einmal genauer an: Sie ist intern deutlich dokumentiert und abgesichert, flexibel anpassbar und effektiv vielleicht 10 Zeilen "umfangreicher".

Wenn man schon dynamisch Kompononenten erzeugt, dann ist der Rückgriff auf die Tag-Lösung etwas für "Baumarkt-Handwerker".

[Satyr]

Zitat von neo4a:

Wenn man schon dynamisch Kompononenten erzeugt, dann ist der Rückgriff auf die Tag-Lösung etwas für "Baumarkt-Handwerker".

Deshalb war das mit dem Tag auch nicht meine erste Wahl...

Ich teste mal mit dem Code von Dir rum, danke dafür .

[Satyr]

Arg... doppelt, Sorry.