如何對齊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 發送簡訊給我 |
發表時間：2003-08-22 19:29:32
IP:61.218.xxx.xxx 未訂閱
系統時間：2024-05-20 7:22:55
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |