如何對齊popup menuitem上的panel 座標 |
尚未結案
|
danielx2000
一般會員 ![]() ![]() 發表:29 回覆:33 積分:22 註冊:2002-09-02 發送簡訊給我 |
請教各位,
我想利用popup做出一個功能;
當按滑鼠右鍵時彈出popupmenu,menuitem 有一選項為'set volume',
當滑鼠移到此menuitem上(未按click)時會出現一各panel 上面放trackbar元件,
是我用來做調整音量的元件, 我的問題是想讓panel能出現在menuitem的右邊,可是無法貼齊menuitem,要如何修改,且如何讓user 拉完trackbar放開滑鼠後讓panel 消失,或是
當滑鼠移出panel 後panel跟著消失,
下面是我的程式碼 type
TForm1 = class(TForm)
Panel1: TPanel;
PopupMenu1: TPopupMenu;
SET1: TMenuItem;
RESET1: TMenuItem;
TrackBar1: TTrackBar;
...
var
Form1: TForm1;
Mx,My:integer; ... procedure TForm1.SET1Click(Sender: TObject);
begin
panel1.Top := MY;
panel1.Left := MX 100;
panel1.Visible := true;
end; procedure TForm1.RESET1Click(Sender: TObject);
begin
panel1.Visible := false;
end; procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var APoint: TPoint;
begin
label1.Caption :='POOUP';
Mx := MousePos.X;
My:= MousePos.Y; end;
|
Justmade
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |