hi,

wie kann ich vom programm aus ein popup menu erweitern ?
Ist es überhaupt möglich ?

jeroen

popupmenü erweitern

Komisch... genau was du suchst, oder? aber warum suchst du dann nicht danach?

Hi,

hab ich gemacht und folgenden code gefunden:
(Hab ich etwas geändert)

zusammenfalten · markieren

Delphi-Quellcode:

var
  I: Integer;
  A: TMenuItem;
  SL: TStringList;
begin
  SL := TStringList.Create;
  //Items der Stringliste laden oder sonstwas mit machen
  SL.Add('1');
  SL.Add('Test');

  // ich habe hier eine TStringListe mit den Items
  for I := 0 to SL.Count - 1 do
   begin
    A := TMenuItem.Create(Self);
    //A.RadioItem := True; // Wenn du willst, dass es RadioItems (Kreise) sind
    //A.GroupIndex := 1; // -dito-
    A.AutoCheck := True; // Autom. markieren bei Klick an
    A.Caption := SL[I]; // Text
    A.Hint := SL[I]; // Hinweis-Text
// A.OnClick := MenuClick; // Diese Prozedur reagiert auf die Klicks
    A.Tag := I; // Um später gezielt darauf zugreifen zu können, speichern wir den SL Index als Tag ab.
    
    PopUpMenu.Items.Add(A); // Fügt das Item zum Popupmenü
   end;

  SL.Free;
end;

Aber es kommt immer ein AV.
Was hab ich vergessen.

jeroen

ok habs selbst zum laufen bekommen

jeroen