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;

[Uwe Raabe]

Kann ich so nicht nachvollziehen. Probier das doch erstmal in einer abgespeckten Version in einem neuen Projekt. Wenn es da geht, such nach den Unterschieden.

[himitsu]

Wenn man das MenuItem.OnClick bei einem SubMenü verwendet, dann ist man selber Schuld.
Ansonsten kenn ich keine Gründe, warum das Klicken beim blosen Überfahren, mir der Maus, ausgelöst werden sollte.

Wenn es zu einem MenuItem ein Untermenü gibt, dann wird das Untermenü ja nicht nur durch Anklicken aufgemacht..

[Kirchi]

Hallo himitsu,

Danke. Genau das war das Problem. Warum geht das nicht mit dem Submenüeintrag. Ich würde aber dem User die Möglichkeit lassen zusätzliche Informationen im Status zu hinterlegen ohne ein weiteres Fenster zu öffnen. Ich habe bei dem Submenüeintrag doch auch eine eigene onClick Procedure hinterlegt.

[himitsu]

Mit Einträgen im SubMenü sollte es gehn ... nur nicht bei dem Menüeintrag, wo das SubMenü dran hängt.