Popupmenu Ereignis onClick wird bereits beim überfahren mit der Maus ausgelöst.

[Kirchi]

Hallo zusammen.

Ich habe eine Anwendung, bei der man über ein Popupmenü den Status eines Datenbankeintrags mit einem Popupmenü definieren soll. Das Problem ist nun, dass schon beim überfahren mit der Maus im Popupmenü der Status geändert wird und nicht beim anklicken. ich möchte aber, dass der Status erst geändert wird, wenn ich den Eintrag im Popupmenü anklicke.

Code:

Procedure TForm1.MyPopupClick(Sender: TObject);
Begin
    If Sender Is TMenuItem Then
    Begin
        ItemStatus := TMenuItem(Sender).Tag - 5000;
        // Schreibe Status
        dm.qry_Item.Active := False;
        dm.qry_Item.SQL.Clear;
        dm.qry_Item.SQL.Add('Select * From Item where id=500';
        dm.qry_Item.Active := True;
        dm.qry_Item.First;
        dm.qry_Item.Edit;
        dm.qry_ItemStatus.Value := StatusID[ItemStatus];
        dm.qry_ItemStatusDateTime.Value := Now;
        dm.qry_Item.Post;
    end;
end;