单击按钮时显示框架

Question

我正在尝试做一个简单的程序,当点击其他框架/表单上的按钮时,该程序将显示一个框架.为了更清楚,我想要像MessageDialogBox,但我想要显示一个框架而不是MessageDialogBox.

到目前为止我尝试过的是OnClickEvent上的代码.

procedure TFrame3.SpeedButton1Click(Sender: TObject);
var 
    frm : TfrmVizorFunctii; // This is the frame I want to be appear;  
begin
    frm := TfrmVizorFunctii.Create(nil);
    frm.Parent := nil;
    frm.ABDBGrid1.ActiveColumn:=2;
    frm.Left:=(Screen.Width-Width)  div 2;
    frm.Top:=(Screen.Height-Height) div 2;
    frm.Show;


end;

我究竟做错了什么？

Answer 1

没有父级,您无法显示框架.您必须将现有表单(或TWinControl该表单上的任何表单)设置为父表单,或者创建一个新的空表单并将其设置为父表单,如下所示:

Form := TEmptyForm.Create (Application);
Frame := TMyFrame.Create (Form);
Frame.Parent := Form;
Frame.Align := alClient;
Form.Show;

如果你真的只想显示框架,那TEmptyForm可能会BorderStyle设置bsNone.