Problem beim Zuweisen einer Procedure (Menüs)

[Doc Morelli]

Hi @ll,

Delphi-Quellcode:

procedure RunProgram(str: String);
begin
{Hier wird dann das Programm, welches unter dem Pfad str zu finden
ist gestartet}
end;

procedure TForm1.Button1Click(Sender: TObject);
var m: TMenuItem;
    i: integer;
begin
for i := 1 to 10 do begin
    m := TMenuItem.Create(PopupMenu1.Items[0]);
    m.Caption := 'SubItem' + inttostr(i);
    m.Name := 'Name' + inttostr(i);
    m.OnClick := RunProgram('C:\...');
    item1.Add(m);
end;
end;

Ich will mehrere Untermenüs zu einem bestimmten Menü anlegen. Jedes Untermenü soll dann ein anderes Programm öffnen können. Nur gibt es bei:
    m.OnClick := RunProgram('C:\...'); immer folgenden Fehler:

Zitat:

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

Wie kann ich jetzt m.OnClick die entsprechene Procedure zuweisen???

MFG Doc

[jim_raynor]

Du musst eine eigene Procedure machen:

Delphi-Quellcode:

procedure TForm1.OnMenuClick(Sender: TObject);
begin
.
.
.
end;

Diese kannst du dann dem Onclick Eregniss zuweisen.

Kleiner Hinweis. Wenn du in der Delphi Hilfe ein Event anschaust, siehst du immer wie die entsprechende Funktion/Procedure definiert sein muss.

[Stevie]

Hi,

so müsste es funzen:

Delphi-Quellcode:

TForm1 = class(TForm)
{...}
private
  ProgList: TStrings;
  procedure MyOnClick(Sender: TObject);
end;

procedure FindProgramm(List: TStrings; AObject: TObject);
var
  i: Integer;
begin
  for i := 0 to Pred(List.Count) do
    if List.Objects[i] = AObject then
    begin
      Result := List[i];
      Break;
    end; 
end;

procedure TForm1.MyOnClick(Sender: TObject);
var
  ProgName
begin
  ProgName := FindProgramm(ProgList, Sender);
  if ProgName <> '' then
    RunProgramm(String);
end;

procedure TForm1.Button1Click(Sender: TObject);
var m: TMenuItem;
    i: integer;
begin
for i := 1 to 10 do begin
    m := TMenuItem.Create(PopupMenu1.Items[0]);
    m.Caption := 'SubItem' + inttostr(i);
    m.Name := 'Name' + inttostr(i);
    m.OnClick := MyOnClick;
    ProgList.AddObject(C:\...', m);
    item1.Add(m);
end;