Desni taster misa

[ erekoz @ 07.10.2003. 11:30 ] @

Pozdrav svima prisutnima,

Kako da napravim da desni tasterom misa na stavku u listboxu izadje prozor sa raznim opcijama?

unapred zahvalan, erekoz

[ erekoz @ 07.10.2003. 11:30 ] @

izvinite, kako da napravim da KLIKOM na desni taster misa...

[ -zombie- @ 07.10.2003. 12:23 ] @

imaš onMouseDown i onMousePress i još par onMouseXXX događaja. u parametrima funkcije šalju i koje je dugme pretisnuto, pa ispitaj da li je to drugo dugme, pa prikaži neku formu sa Form2.ShowModal...

[ goblin @ 07.10.2003. 12:27 ] @

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 :)

[ erekoz @ 07.10.2003. 12:32 ] @

"P.S. - Bez muke nema nauke "...

vazda bilo, vazda bilo...