Von welcher Komponente kommt popup-Aufruf

[idefix2]

@himitsu
Danke, so funktioniert es.
Wenn man daran denkt, ist es natürlich klar, dass Popupcomponent bei programmgesteuerten Aufruf des Popupmenüs nicht gesetzt sein kann, weil es in dem Fall ja gar keine Komponente gibt, die beim angeklickt werden das Popupmenu "auslöst".

@Sir Rufo
Ja, das wäre noch besser - kommt etwas weiter hinten auf meine to-do-list, jetzt bin ich einmal froh, dass es überhaupt funktioniert.

[Sir Rufo]

Das ist eigentlich recht simpel

Delphi-Quellcode:

procedure TForm1.ListBox1ContextPopup( Sender: TObject; MousePos: TPoint; var Handled: Boolean );
var
  LIdx: Integer;
begin
  // Item-Index bestimmen
  LIdx := TListBox( Sender ).ItemAtPos( MousePos, True );
  
  if LIdx >= 0 then
  begin
    // ItemIndex setzen
    TListBox( Sender ).ItemIndex := LIdx;
  end
  else
    // kein Popup anzeigen
    Handled := True;
end;

[idefix2]

Naja, fast so simpel, obwohl du im Prinzip Recht hast. Im den Popupmenüs sind ja neben item-spezifischen Einträgen auch solche, die immer anwählbar sein sollen, auch bei leerer Listbox, und es sind mehrere verschiedene Listboxen mit verschiedenen Einträgen, um die ich mich kümmern muss - in Summe, bis alles gründlich getestet ist, wird wohl eine gute Stunde draufgehen, um das umzustellen.


Im Moment muss ich schauen, dass das Programm so rasch wie möglich als Ganzes funktioniert, und in diesem Bereich verhält es sich jetzt auch in allen Sonderfällen genau, wie es soll. Das rühr ich erst wieder an, wenn ich etwas Luft habe

[Sir Rufo]

Auch wenn es für später ist:

Ich hoffe du verwendest eine ActionList und hast darüber die MenuItems dem PopupMenu hinzugefügt. Dann geht das recht fix. Die Actions beziehen sich ja immer auf einen Kontext. Wenn du dir jetzt den aktuellen Kontext irgendwo merkst, dann können die Actions das selber auswerten TAction.OnUpdate und dabei ihren Status anpassen (Enabled/Visible) abhängig vom gewählten Kontext.

Das würde natürlich auch bedeuten, dass du nicht einfach nur Strings in der ListBox hast, sondern es zu jedem Eintrag auch eine passende Instanz, eben dieser besagte Kontext.

Dann passiert das alles quasi wie von Geisterhand