Ako ti treba podmeni, pogledaj OnContextPopup.
Ako ti ne trebba to, pogledaj OnMouseUp i mbRight u Button parametru eventa (samo obradi da li je mis ostao u granicama kontrole).
Ako ti ni ovo nije dovoljno, procunjaj kroz VCL pa gledaj kako su oni obradili click event pa ga ti primeni (samo prepravi da bude sa desnim dugmetom) u svojoj komponenti...
Evo ti na primer kako je to u TControl za levo dugme:
Code:
procedure TControl.WMLButtonUp(var Message: TWMLButtonUp);
begin
inherited;
if csCaptureMouse in ControlStyle then MouseCapture := False;
if csClicked in ControlState then
begin
Exclude(FControlState, csClicked);
if PtInRect(ClientRect, SmallPointToPoint(Message.Pos)) then Click;
end;
DoMouseUp(Message, mbLeft);
end;
A sto se tice izlaska forme, pusti mastu na volju! Ja ti ipak ne bi preporucio da ides sa ShowModal, vec samo sa Show (sa prepodesenom lokacijom gornjeg levog ugla) i cim oseti OnExit da je ponovo sakrijes... nisam nikad pokusao ali trebalo bi da je ovako...
Pozdrav
P.S. Bez muke nema nauke :)
Don't try to impress me... I'm good !