各位大大哪位可以告知小弟如何實現如圖 下拉效果呢??? 可能是用PopupMenu1控件,可是我試過,但 還是試不出來,請各位大大賜教.... ken

------
ken

Hi linken,    在該 Button 的 OnMouseDown 事件加入以下程式碼試試

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  P,R : TPoint;
begin
  if Button = mbLeft then
    begin
      P.X := 0;
      P.Y := TButton(Sender).Height;
      R := TButton(Sender).ClientToScreen(P);
      PopupMenu1.Popup(R.X,R.Y);
      Button := Null;
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

您好: 下面是我在系統中用的方式,如果要讓User Button有按下去的樣式出現可以玩玩以下的Code procedure TzMain.btnManagerClick(Sender: TObject); begin PopupMenu3.Popup(Left btnManager.Left,Top btnManager.Top btnManager.Height 25); end;

謝謝Fishman 以後多多賜教... ken

------
ken

Fishman      有勞你幫我解決一下這如圖問題 點了一次後就恢復不了這原來那樣子了. 代碼是照你的,只是換了元件而已 var   P,R : TPoint; begin   if Button = mbLeft then     begin       P.X := 0;       P.Y := TSpeedButton(Sender).Height;       R := TSpeedButton(Sender).ClientToScreen(P);       PopupMenu1.Popup(R.X,R.Y);       Button := Null;     end;    怎麼才能解決呢... ken

------
ken

Hi linken,    如先前 supman 大大所言，將程式碼移到 OnClick 事件，並更改如下：

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  P,R : TPoint;
begin
  P.X := 0;
  P.Y := TSpeedButton(Sender).Height;
  R := TSpeedButton(Sender).ClientToScreen(P);
  PopupMenu1.Popup(R.X,R.Y);
end

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman