我在 TDBGrid 后代上添加了一個 ControlButton。
type TAEDBGrid = class(TDBGrid)
private
ControlButton: TButton;
procedure ControlButton_Click(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end
constructor TAEDBGrid.Create(AOwner: TComponent);
var Menu: TPopupMenu;
Item: TMenuItem;
begin
inherited Create(AOwner);
ControlButton := TButton.Create(nil);
ControlButton.Caption := '...';
ControlButton.Font.Style := Self.Font.Style [fsBold];
ControlButton.Top := Self.Top 1;
ControlButton.Left := Self.Left 1;
ControlButton.Height := 19;
ControlButton.Width := 17;
ControlButton.Parent := Self.Parent;
ControlButton.OnClick := ControlButton_Click;
Menu := TPopupMenu.Create(ControlButton);
Item := TMenuItem.Create(Menu);
Item.Caption := 'Select Columns';
Item.OnClick := ControlButton_SelectColumns;
Menu.Items.Add(Item);
Item := TMenuItem.Create(Menu);
Item.Caption := 'Export to Excel';
Item.OnClick := ControlButton_ExportToExcel;
Item.Visible := False;
Menu.Items.Add(Item);
ControlButton.PopupMenu := Menu;
end;
destructor TAEDBGrid.Destroy;
begin
ControlButton.Free;
inherited Destroy;
end;
procedure TAEDBGrid.ControlButton_Click(Sender: TObject);
var Position: TPoint;
begin
if GetCursorPos(Position) then ControlButton.PopupMenu.Popup(Position.X, Position.Y);
end;
問題是，在我創建 ControlButton 的那一刻，Self.Top、Self.Left 屬性為 0，而 Self.Parent 為 nil。所以我的按鈕沒有父級并且不可見。
我應該重寫什么方法來創建已經分配了 Grid 父級的按鈕？我試過 AfterConstruction，也有同樣的問題。
我發現的最佳替代方法是覆寫 SetFocus 并檢查 not Assigned(ControlButton)，但它僅在用戶進入網格時創建按鈕。
謝謝你。
uj5u.com熱心網友回復：
您可以嘗試覆寫Loaded方法：
protected
{ Protected declarations }
procedure Loaded; override;
并在里面初始化你的子控制元件。
uj5u.com熱心網友回復：
如果你想讓網格成為按鈕的父級，那么你應該寫
ControlButton.Parent := Self; //(and not Self.Parent)
因為您在網格的建構式中。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/315602.html
標籤：德尔福 VCL delphi-10.4.2
上一篇：Delphi中的位元組交換順序