PDA

View Full Version : [Q] DelPhi Help



Savage
23-11-2002, 17:47
Cac dai su huynh lap trinh DelPhi cho em hoi chut xiu nha.
Em khong biet tinh huong Right-Click trong Delphi la gi nhi?? Tuong ung voi Win API thi ta co message WM_RBUTTONDOWN , Khong hieu cai nay o Delphi la sao.
- van de cua em la : Em muon o trong delphi ,khi ta right-click len mot so doi tuong nhat dinh thi cai popup menu cua em moi duoc phep hien len ( chu khong phai la click cho nao cung hien dau ).... vi du khi click vao Cai elliipse da ve thi moi hien cai popup menu , va khi rightClick nhu the thi lam sao ma co the Get position- Coordinates cua mouse khi click duoc day ?? Neu la left-Click thi khong thanh van de...
Thanks cac su huynh nha .

Mach2
23-11-2002, 21:51
Tình huống Right-Click được Delphi "gộp" lun vào trong event OnMouseDown (và OnMouseMove, OnMouseUp,...).
OK, vấn đề của bạn có thể giải quyết bằng cách sau đây, cách này ko chính quy lém đâu nhưng mà nhanh và dễ làm...
-Tạo một cái (hay mấy cái) PopupMenu1, PopupMenu2,... trên Form1.
-Cài vào event OnMouseDown dòng code sau:
If ChuôtNằmTrềnĐốiTượng then Form1.PopupMenu:=PopupMenu1 else Form1.PopupMenu:=nil;
Xong!
Nếu vẫn chưa rõ xem kèm theo ví dụ của tui cho 2 cái PopupMenu trên 2 hình vuông và hình tròn khi nhấn chuột phải lên đó.
Ko bít vậy đã giải quyết được vấn đề của bạn chưa?

Savage
24-11-2002, 06:21
OK ,Cam on ban Mach2 nhieu nghe ,Ban that la nhiet tinh .. minh da hieu duoc van de roi , Cam on that nhieu !