Hola Amigos !
Al llegar a un DBEdit activo mediante programación un PopupMenu con un elemento por defecto, que cuando es mostrado en pantalla aparece en negrita.
Quiero que una vez que se cierre el PopupMenu, salga del foco DBEdit (en mi caso concreto cerrar el Form que había creado previamente). Funciona perfectamente si en el PopupMenu el usuario se mueve con el cursor o ratón y elige una opción diferente de la que era por defecto.
Mi problema es cuando el usuario simplemente pulsa Intro para aceptar la opción por defecto mostrada. Al parecer, en este caso, NO se activa el evento OnClick del PopUpMenu.
El otro pequeño efecto 'lateral' que tengo es que aunque la opción por defecto se resalte en negrita, realmente el "cursor" del PopupMenu no está situado en dicha opción, por lo que al pulsar por primera vez el cursor arriba/abajo, no comienzo en dicha opción.
Código Delphi
[-]procedure TBookingRoomingList1.DBEdit10Enter(Sender: TObject);
var
p: Tpoint;
begin
p := DBEdit10.ClientToScreen(p);
If DataModule1.IBQuery9STATUS.Value = 1 then St_UnConfirmed.Default := True;
If DataModule1.IBQuery9STATUS.Value = 2 then St_Confirmed.Default := True;
If DataModule1.IBQuery9STATUS.Value = 11 then St_Tentative.Default := True;
If DataModule1.IBQuery9STATUS.Value = 12 then St_WaitList.Default := True;
If DataModule1.IBQuery9STATUS.Value = 13 then St_NoShow.Default := True;
If DataModule1.IBQuery9STATUS.Value = 14 then St_Cancelled.Default := True;
PopUpMenu1.popup(p.x+70,p.y-200);
end;
procedure TBookingRoomingList1.StatusClick(Sender: TObject);
begin
DataModule1.IBQuery9.Edit;
If Sender = St_Tentative then DataModule1.IBQuery9STATUS.Value := 11;
If Sender = St_UnConfirmed then DataModule1.IBQuery9STATUS.Value := 1;
If Sender = St_Confirmed then DataModule1.IBQuery9STATUS.Value := 2;
If Sender = St_WaitList then DataModule1.IBQuery9STATUS.Value := 12;
If Sender = St_NoShow then DataModule1.IBQuery9STATUS.Value := 13;
If Sender = St_Cancelled then DataModule1.IBQuery9STATUS.Value := 14;
BookingRoomingList1.Close;
end;
Un saludo.