В цикле добавить пункты в меню и узнать, какой из них был нажат

[BLACK_RAIN]

Здравствуйте. Давно ищу такую тему.
вот код VCL:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure MenuClick(sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    mnu : TPopupMenu;
    mi : TMenuItem;
    { Private declarations }
  public
    { Public declarations }
  end;

const
  MyTag = 666;

var
  Form1: TForm1;
  fn : string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  t : string;
  i : Integer;
  f : TextFile;
begin
  fn := 'c:\txt.txt';
  AssignFile(f,fn);
  Rewrite(f);
  for i:=0 to 19 do
    Writeln(f,'Item '+inttostr(i+1));
  CloseFile(f);
  mnu := TPopupMenu.Create(nil);
  AssignFile(f,fn);
  Reset(f);
  while not eof(f) do
    begin
      Readln(f,t);
      mi := TMenuItem.Create(nil);
      mi.Caption := t;
      mi.Tag := MyTag;
      mi.OnClick := MenuClick;
      mnu.Items.Add(mi);
    end;
  CloseFile(f);
//  mnu.Popup(Left,top);
end;

procedure tform1.MenuClick(sender: TObject);
var
  t : string;
  tag : Integer;
begin
  tag := (sender as TMenuItem).Tag;
  if tag=mytag then
  begin
    t := (sender as TMenuItem).Caption;
    ShowMessage(t);
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  mnu.Free;
  DeleteFile(fn);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  p : TPoint;
begin
  if Button = mbright then
  if GetCursorPos(p) then
  mnu.Popup(p.X,p.Y);
end;

end.

Действия:
1) Создаём текстовый файл и пишем туда список из N строчек.
2) Создаем TPopupMenu;
3) Читаем тот же текстовый файл и в цикле создаем TMenuItem и вешаем на каждый обработчик щелчка.
4) В обработчике определяем, какой пункт был нажат.

А как написать такое на WinAPI? С апишными меню работать умею, но как быть с циклом? Возможно ли вообще сделать такое на WinAPI?

[hvz-]

Сообщение от BLACK_RAIN

Возможно ли вообще сделать такое на WinAPI?

Твой VCL как раз таки и использует WinAPI функции, так что возможно.

[BLACK_RAIN]

Сообщение от hvz-

Твой VCL как раз таки и использует WinAPI функции, так что возможно.

но как это делается?

[hvz-]

Сообщение от BLACK_RAIN

но как это делается?

Если есть исходники этой библиотеки - можешь посмотреть как. Или полистай пару функций, относящихся по теме, и к тебе придёт "озарение"

[BLACK_RAIN]

Сообщение от hvz-

Если есть исходники этой библиотеки - можешь посмотреть как. Или полистай пару функций, относящихся по теме, и к тебе придёт "озарение"

ну нормально
по сути, это означает, что я должен перелопатить несколько тысяч строчек кода в файле Menus.pas и вникнуть в принципы работы VCL.
Вы понимаете, какую задачу передо мной ставите? мне для этого пива не хватит

[Stilet]

это означает, что я должен перелопатить

Ты хочешь чтоб другие за тебя лопатили?

А как написать такое на WinAPI?

Зачем?

[BLACK_RAIN]

Сообщение от Stilet

Ты хочешь чтоб другие за тебя лопатили?

Я хочу получить нормальный ответ на нормальный вопрос, а не троллинг типа "я знаю, но не скажу!".

Сообщение от Stilet

Зачем?

а вы зачем спрашиваете?

[Stilet]

а вы зачем спрашиваете?

Понятно. Больше отвлекать не буду.

[BLACK_RAIN]

Сообщение от Stilet

Понятно. Больше отвлекать не буду.

с логикой не поспоришь.

[BLACK_RAIN]

блин! а про сообщение WM_MENUCOMMAND сразу нельзя было сказать??? Я сегодня каким-то образом совершенно случайно на него наткнулся.
конечно, проще было бы изучать исходники VCL