[Delphi] Запуск процедуры с параметром

[ZePr]

Помогите мне...
Я создаю пункт PopupMenu, и указывая запуск процедуры с параметром у меня выскакивает ошибка

[Error] Unit1.pas(278): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

Сама строка с ошибкой:

PopupMenu1:= TPopupMenu.Create(Self);
with PopUpMenu1.Items do
begin
for q:=1 to q do 
 Add(NewItem(stations.ReadString(StationList.Items.Strings[StationList.ItemIndex], ('name'+inttostr(q)), 'Áåç èìåíè'), 
   0, False, True, PlayStation(url), ('url'+inttostr(q)), 'nourl')), 0, 'MenuItem1'));
PopupMenu1.Popup(Mouse.CursorPos.X+1,Mouse.CursorPos.Y+1);

Т.е передача параметра функции Playstation (url)

Как мне передать функции переменную и заранее извиняюсь за плохую постановку вопроса...

[ZePr]

И это если на простом примере, но смысл тот же

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClick(Sender: TObject);
begin
PopupMenu1 := TPopupMenu.Create(Self);
with PopUpMenu1.Items do
begin
Add(NewItem('First Menu', 0, False, True, showmessage('1'), 0, 'MenuItem1'));
end;

end;

end.

[Error] Unit1.pas(31): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

[Stilet]

Этот кусок кода не говорит о том где ошибка.
приводи полностью, а еще лучше весь проект в архив и сюда.

Так. Все понятно. Ты кое чего перепутал. Туда в параметры нужно указать обработчик событий а не действия. Это не JS, так что действовать нужно
так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Procedure OnClick(Sender:TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
with PopUpMenu1.Items do
begin
Add(NewItem('First Menu', 0, False, True,OnClick , 0, 'MenuItem1'));
end;

end;

procedure TForm1.OnClick(Sender: TObject);
begin
 showmessage('1')
end;

end.

Обязательное я выделил пожирнее.

[ZePr]

Ну вот второй пример полностью написан, смысл тот же

Ну для второго примера это конечно сойдёт, но вот если пункты Popup меню создаются динамически и не известно на какой "тыкнет" пользователь, нужно знать на какой пункт произошло нажатие и после этого выполнить процедуру...

Вот тут к чему то пришли, но я так и не понял к чему

[Stilet]

и не известно на какой "тыкнет" пользователь

Известно

procedure TForm1.OnClick(Sender: TObject);
begin
 TMenuItem(Sender). - дает тот пункт на который кликнул пользователь
 showmessage('1')
end;

понятно?

[ZePr]

Вот к примеру если он кликнул на первый пункт(ну или название), как TMenuItem(Sender) это скажет?

[Stilet]

как TMenuItem(Sender) это скажет?

Тады Sender будет равен первому пункту. И скажем TMenuItem(Sender).Caption даст текст этого пункта.

[ZePr]

Кажется что я реализую дальше что я хотел, спасибо Виталий за помощь, просто, понятно и без понтов !

А как узнать номер пункта?

[Stilet]

Дык это... Хелп то на что:
Читай про TMenuItem.MenuIndex

[ZePr]

[Error] Unit1.pas(308): Method identifier expected