小弟有一个问题,现在有一个PageControl控件,有多个页面,现在我右击某一页,选种该页,请问如何做呢?在线等待.

Question

小弟有一个问题,现在有一个PageControl控件,有多个页面,现在我右击某一页,选种该页,请问如何做呢?在线等待.

Answer 1

procedure TForm1.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  n:Integer;
begin
  if Button=mbRight then
  begin
    PageControl1.ActivePageIndex := PageControl1.IndexOfTabAt(X,Y);
  end;
end;

Answer 2

严重同意procedure TForm1.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  n:Integer;
begin
  if Button=mbRight then
  begin
    PageControl1.ActivePageIndex := PageControl1.IndexOfTabAt(X,Y);
  end;
end;

Answer 3

var
n:Integer;//这个好像是多余的吧？