[英]TPageControl get index
如何獲取有對象的頁碼? 例如:第一頁上有一個Button1,第二頁上有Button2,如何獲得沒有ActivePageIndex的Button1的頁碼? 謝謝。
想找到特定類的最接近的父類是很常見的。 因此,它為實現這一功能而付出了很多。
function GetParentWithClass(Control: TControl;
ClassType: TWinControlClass): TWinControl;
begin
Result := Control.Parent;
while Assigned(Result) and not (Result is ClassType) do
Result := Result.Parent;
end;
一旦安裝到位,就可以使用它來解決當前的問題。
var
PageIndex: Integer;
TabSheet: TTabSheet;
.....
TabSheet := GetParentWithClass(Control, TTabSheet) as TTabSheet;
PageIndex := TabSheet.PageIndex;
分離了這樣的關注點后,您可以在其他設置中使用GetParentWithClass
。
Function GetPageIndexOfControl(c:TControl):Integer;
begin
Result := -1;
While Assigned(c.Parent) and not (c is TTabsheet) do c := c.Parent;
if Assigned(c) then
if c is TTabsheet then
Result := TTabsheet(c).PageIndex;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(IntToStr(GetPageIndexOfControl(Button1)));
end;
嘗試這個:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Parent is TTabSheet then
ShowMessage(IntToStr(TTabSheet(Button1.Parent).PageIndex));
end;
如果按鈕直接在選項卡中(沒有面板或其他控件),則該按鈕有效。 如果有面板,則可以遍歷父鏈以查看父鏈是否為TTabSheet:
procedure TForm1.Button1Click(Sender: TObject);
var
Ctrl: TWinControl;
begin
Ctrl := Button1.Parent;
while Assigned(Ctrl) do
begin
if Ctrl is TTabSheet then
begin
ShowMessage(IntToStr(TTabSheet(Ctrl).PageIndex));
Break;
end
else
Ctrl := Ctrl.Parent;
end;
end;
我喜歡使用Generics
以避免重復
PageIndex := TComponentUtil.GetParent<TTabSheet>( MyControl ).PageIndex;
有這樣的一類
unit ComponentUtils;
interface
uses
Classes, Controls;
type
TComponentUtil = class abstract
class function GetOwner<T : TComponent>( AComponent : TComponent ) : T;
class function GetParent<T : TWinControl>( AControl : TControl ) : T;
end;
implementation
{ TComponentUtil }
class function TComponentUtil.GetOwner<T>( AComponent : TComponent ) : T;
var
LOwner : TComponent;
begin
LOwner := AComponent.Owner;
while Assigned( LOwner ) and not ( LOwner is T ) do
LOwner := LOwner.Owner;
Result := T( LOwner );
end;
class function TComponentUtil.GetParent<T>( AControl : TControl ) : T;
var
LParent : TWinControl;
begin
LParent := AControl.Parent;
while Assigned( LParent ) and not ( LParent is T ) do
LParent := LParent.Parent;
Result := T( LParent );
end;
end.
到目前為止,這里沒有要求添加其他內容,我將添加另一個答案
Function GetPageIndexOfControl(c:TControl;var PageControl:TPageControl):Integer;
begin
Result := -1;
While Assigned(c.Parent) and not (c is TTabsheet) do c := c.Parent;
if Assigned(c) then
if c is TTabsheet then
begin
Result := TTabsheet(c).PageIndex;
PageControl := TTabsheet(c).PageControl;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
pc:TPageControl;
i:Integer;
begin
I := GetPageIndexOfControl(Button1,PC);
if (i>-1) and Assigned(PC) then
begin
PC.ActivePageIndex := i;
if Assigned(PC.OnChange) then PC.OnChange(PC);
end;
end;
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.