Dynamisches Popup » Procedure mit Parametern

[hibbert]

Hi,
ich habe ein Popupmenü welches ich dynamisch erzeuge. Nun soll der User auf ein Item klicken können und eien Procedure mit Parametern soll aufgerufen werden:

Delphi-Quellcode:

procedure tform1.meineproc(pname:string);
begin
showmessage(pname);
end;
{...}
  aNewItem : array of TMenuItem;
begin
setlength(aNewItem,11);
for i:= 0 to 10 do
  begin
    aNewItem[i] := NewItem(listbox1.Items[i], 0, False, True, meineporc(listbox1.Items[i]), 0, 'item'+inttostr(i));
  end;
{...}

doch dabei erhalte ich diese Fehlermeldung des Compilers:

Zitat von Compiler:

[Fehler] Unit1.pas(151): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

Wie kann ich nun die Procedure aufrufen und die Parameter übergeben ?

thx
hibbert

[CalganX]

Hi,
naja... du rufst meineproc als eine Funktion auf, aber in Wirklichkeit ist es eine Prozedur. Irgendwie kann das nicht ganz gehen.

Chris

[hibbert]

OK, ich habe meine "Procedur" anders geschrieben:

Delphi-Quellcode:

function tform1.meineproc(pname:string):tnotifyevent;
begin
showmessage(pname);
result:=onClick;
end;

So nun kann ich auch das Project compilieren.

Ich rufe die Procedure, die das PopUpMenü erstellt bei OnFormCreate auf. Da steht ja folgendes drin:

Delphi-Quellcode:

{...}
  aNewItem : array of TMenuItem;
begin
setlength(aNewItem,11);
for i:= 0 to 10 do
  begin
    aNewItem[i] := NewItem(listbox1.Items[i], 0, False, True, meineporc(listbox1.Items[i]), 0, 'item'+inttostr(i));
  end;
{...}

so wenn ich mein Projekt jetzt starte, dann wird aber gleich meine Procedur meineproc ausgeführt, undzwar 11 mal, klicke ich aber auf ein erzeugtes Item passiert nix

warum ?

thx hibbert

[CalganX]

Hi,
ah... ich denke ich habe das etwas anders verstanden.

Egal, jetzt weiß ich was das Problem ist: du willst eine eigene Methode als Ereignis zuweisen. Das Problem ist nur, dass deine Methode kein Ereignis ist, sonder eine einfache Methode. Du musst daraus schon ein "TNotifyEvent" machen. Also deine Methode muss ungefähr so aussehen:
procedure TfrmMain.MeinEvent(Sender: TObject); Außerdem darfst du nur den Namen der Methode ohne Parameter angeben bei der Zuweisung.

Also z.B.:
NewItem(..., MeinEvent, ...); Chris

[hibbert]

hi,
das habe ich auch schon versuicht, aber ich möchte ja noch zusaätzlich Variablen übergeben:

Delphi-Quellcode:

procedure tform1.meineproc(Sender: TObject;pname:string);
{...}
aNewItem[i] := NewItem(listbox1.Items[i], 0, False, True, meineproc(listbox1.Items[i]), 0, 'item'+inttostr(i));

doch da bekomme ich diese Meldung:

Zitat von Compiler:

[Fehler] Unit1.pas(151): Inkompatible Typen: 'TObject' und 'String'

also mach ich das so:
aNewItem[i] := NewItem(listbox1.Items[i], 0, False, True, meineproc(popupmenu1,listbox1.Items[i]), 0, 'item'+inttostr(i)); da bekomme ich dann diese Fehlermeldung:

Zitat von Compiler:

[Fehler] Unit1.pas(151): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

Wie übergebe ich nun die Parameter ??

hibbert

[CalganX]

Zitat von Chakotay1308:

NewItem(..., MeinEvent, ...);

Ohne Parameter musst du das angeben. Die Parameter weist das entsprechende Objekt selber zu.

Chris

[hibbert]

Zitat von Chakotay1308:

Die Parameter weist das entsprechende Objekt selber zu.

OK und wie siht das ganze dann in meiner Procedure aus ?
Wie erkenne ich jetzt, welches Item angeklickt wurde ?

hibbert

[CalganX]

Hi,
ich schätze über den Parameter Sender. Dieser ist zwar vom Typ TObject, aber über ein wenig rumspielen (z.B. mit der Eigenschaft ClassName) kannst du rausfinden, was das eigentlich ist.
Ich schätze mal, dass in Sender genau das Item drinsteckt, was angeklickt wurde.

Chris

[hibbert]

ich habe jetzt folgendes gemacht:

Delphi-Quellcode:

procedure tform1.meineproc(Sender: TObject);
begin
showmessage(sender.ClassName);
end;

und das zeigt mir die Messae an:

Zitat von Message:

TMenuItem

Das bingt mir jetzt auch nicht wirklich viel

hibbert

[Grishnak]

TMenuItem hat - wie alle von TComponent abgeleiteten Klassen - ein Property mit Namen "Tag". Darin kannst du ein Integer-Wert abspeichern und über ihn den Sender eindeutig identifizieren!