Dynamisk menu

Hej Hugo

Det er lettest hvis der er et menuitem at hægte dem på:

... men at tilføje til mainmenu er nu heller ikke svært:

Det hjalp mig at jeg prøvede programmet her på arbejde :-)
Jeg har nu fået det til at køre næsten 100%
Jeg mangler dog at kunne fange index på det menupunkt hvor de punkter jeg opretter skal ligge som underpunkter.
mnuMain.Items[1] - der skal jeg bruge index på mnuMain.mnuMainAccounts. Det burde man jo nok også kunne gøre.
Næst efter skal jeg så finde ud af hvordan jeg sletter alle menupunkter på mnuMain.mnuMainAccounts

procedure TfrmMain.MenuCreate;
var
  Query: TUniQuery;
  MenuItemEx: TMenuItemExtended;
begin
  AccountsCleanup;
  Query := TUniQuery.Create(Nil);
  Query.Connection := frmDBConn.conDBserver;
  try
    Query.SQL.Clear;
    Query.SQL.Add('SELECT * FROM ' + TableAccounts);
    Query.Execute;
    try
      while not Query.Eof do
        begin
          MenuItemEx := TMenuItemExtended.Create(mnuMain);
          MenuItemEx.GUID := Query.FieldByName('fldaccount_guid').AsString;
          MenuItemEx.Caption := Query.FieldByName('fldaccount_text').AsString;
          MenuItemEx.Account := Query.FieldByName('fldaccount_bank').AsString + '-' + Query.FieldByName('fldaccount_number').AsString;
          MenuItemEx.Header := Query.FieldByName('fldaccount_text').AsString;
          MenuItemEx.OnClick := AccountItemClick;
          mnuMain.Items[1].Add(MenuItemEx);
          Query.Next;
        end;
    except
      on E:exception do
        begin
          Logfile.Error(E.Message);
          Query.Next;
        end;
    end;
  finally
    Query.Free;
  end;
end;

Hvad med mnuMain.mnuMainAccounts.Clear???

Du kan altid tilgå ejeren af det pågældende menupunkt via: (mi.Parent as TMenuItemExtended).EtEllerAndet
Er det dig der extender TMenuItem eller er det noget købenoget?

Det er noget jeg har brygget sammen efter megen søgen rundt om.

type
  TMenuItemExtended = class(TMenuItem)
  private
    fGUID: string;
    fAccount: string;
    fHeader: string;
  published
    property GUID: string read fGUID write fGUID;
    property Account: string read fAccount write fAccount;
    property Header: string read fHeader write fHeader;
  end;

Jeg tror det er på plads nu det hele så smidt lige et svar.

Jubii, så kommer jeg endelig over 30000 points (ikke at det betyder noget for mig, osv, osv)