En playlist i en Popupmenu, selve playlist er en Listbox

Prøv det her:

type
  TForm1 = class(TForm)
    ....
    procedure FormCreate(Sender: TObject);
    procedure MenuClick(Sender: TObject);
  private
    { Private declarations }
  public

...

procedure TForm1.MenuClick(Sender: TObject);
begin
  ShowMessage((Sender as TMenuItem).Caption);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  M: TMenuItem;
  I: Integer;
begin
  for I := 0 to Filelist.Count - 1 do
  begin
    M := TMenuItem.Create(Self);
    M.Caption := Filelist.Items.Strings[I];
    M.OnClick := MenuClick;
    PlayList2.Add(M);
  end;
end;

tak for hjælpen
Siden du er så god, kan du så ikke også fortælle mig hvordan man laver en fil med CreateFile, det skal bare være en almindelig tom fil.

Jo :)

CreateFile('c:\fil.ext', GENERIC_READ or GENERIC_WRITE,0,nil,CREATE_NEW,FILE_ATTRIBUTE_NORMAL,0);

Du behøves egentlig ikke "GENERIC_READ or GENERIC_WRITE", der kan du bare skrive 0 istedet.

OKI... Tark for hjælpen...