PopupMenu - Item vorselektieren

[eholzer]

Hallo,

gibt es eine Möglichkeit bei einem Popupmenu ein Element vorzuselektieren.
Wenn man ein Popupmenu öffnet ist noch kein Element markiert. Man muss mit Pfeiltasten ein Element zuerst auswählen. Ich würde gerne gleich beim Öffnen ein Element markieren.

Gruß
Eric

[Perlsau]

Nicht daß ich wüßte. Du könntest aber den Mauszeiger im Ereignis OnPopUp auf einen bestimmten Eintrag verschieben.

[himitsu]

Die Maus verschieben ist eigentlich keine so optimale Idee,
aber was praktisch auf's Selbe rauskommt, wäre die Position des Popups entsprechend zu positionieren.

Das kennt man z.B. von einigen ComboBoxen, wo das Popup so verschoben wird, daß der aktuelle Eintrag unter der Maus landet.

Also, anstatt die Maus zu verschieben, einfach das Popup selber öffnen und dessen Position verschieben.




Das Problem ist aber erstmal rauszubekommen, wo im Popup dann der gewünschte Eintrag steht.





OK, nach dem anzeigen des Popups, könnte man versuchen die Tastendrücke zu simulieren, aber das hilft nur, wenn man das Popup via Tastatur bedient,
da die Maus sonst sofort die Selektion wieder verändert, wenn man sie bewegt.
> z.B. mit der KontextMenü-Taste öffnen und via Enter den selektierten Eintrag ausführen

[Gerd01]

Ich mache es so:

Code:

    for I := 0 to PMHighlight.Items.Count - 1 do
      PMHighlight.Items[I].Checked := false;
    I := ..hier Auswahl
    if ((I > 0) and (I < PMHighlight.Items.Count)) then
      PMHighlight.Items[I].Checked := True;

[himitsu]

Moin,

was hat Checked (das kleine Häkchen/Pünktchen) mit der Selektierung zu tun?

Egal ob und was wie bei Checked gesetzt ist, der Eintrag, dessen Klick-Methode ausgeführt wird, ist vollkommen unabhängig davon.

[eholzer]

Zitat:

OK, nach dem anzeigen des Popups, könnte man versuchen die Tastendrücke zu simulieren

Das wäre auch meine Idee, aber wie könnte man das machen?

[sh17]

Auf die eigenen Bedürfnisse anpassen, um das Popupfenster mit dem Eintrag entsprechend zu verschieben.

Wobei _DefaultItems die normalen Einträge eines PopupMenus sind

Delphi-Quellcode:

class function GetPopupHeight(_DefaultItems : Integer; _DrawedItems : Integer = 0; _DrawedHintItems : Integer = 0; _Lines : Integer = 0; _DrawedLines : Integer = 0) : Integer;
var
  i : Integer;
begin
  if not IsWinVista then
  begin
    if _DrawedHintItems > 0 then
      i := 6
    else
      i := 5;
    Result := i +
              ((_DefaultItems    * 19)+
              (_DrawedItems     * 23)+
              (_DrawedHintItems * 40)+
              (_Lines           * 8)+
              (_DrawedLines     * 4))*Screen.PixelsPerInch div 96;
  end else begin
    if _DrawedHintItems > 0 then
      i := 6
    else
      i := 5;
    Result := i +
              ((_DefaultItems * 19)+
              (_DrawedItems * 26)+
              (_DrawedHintItems * 45)+
              (_Lines * 8)+
              (_DrawedLines * 4)*Screen.PixelsPerInch div 96);
  end;
end;


var
  p : TPoint;
begin
  p := Panel.ClientToScreen(Point(button.Left,button.Top));
  pm.Popup(p.X,p.Y-GetPopupHeight(5)););

[baumina]

So in dieser Art:

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  Scan: Cardinal;
  i: Integer;

begin
  Scan := MapVirtualKey(VK_DOWN, 0);
  for i := 1 to 5 do 
  begin
    keybd_event(VK_DOWN, Scan, 0, 0);
    keybd_event(VK_DOWN, Scan, KEYEVENTF_KEYUP, 0);
  end;
end;

[eholzer]

Danke "baumina", damit komme ich klar.

Eric

[Perlsau]

Zitat:

Zitat von himitsu (Beitrag 1240064)

Die Maus verschieben ist eigentlich keine so optimale Idee, aber was praktisch auf's Selbe rauskommt, wäre die Position des Popups entsprechend zu positionieren.

Wenn's praktisch auf's selbe hinausläuft, wo läge dann der Haken beim Verschieben des Mauszeigers? Zumindest liefe man dann nicht Gefahr, daß Teile des Pop-Upmenüs außerhalb des Screen-Bereichs landen. Die Position des gewünschten PopUp-Eintrags mu man natürlich bei beiden Versionen selbst ermitteln.