PopupMenu - Item vorselektieren

[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;