none
Delphi VCL component embed into winform. When click "TAB". the vcl control can't change focus.How i do? RRS feed

  • 常规讨论

  • Delphi Code:

    function CreateControls(parentComponent:HWND):HWND;stdcall;export;
    var
      Panel:TPanel;
      Edit1 : TEdit;
      Edit2 : TEdit;
    begin
      Panel := TPanel.Create(nil);
      Panel.ParentWindow := parentComponent;
      Edit1 := TEdit.Create(nil);
      Edit2 := TEdit.Create(nil);
      Edit1.Parent := Panel;
      Edit2.Parent := Panel;
      Edit1.Left := 0;
      Edit1.Top := 0;
      Edit2.Left := 0;
      Edit2.Top  := 25;
      Edit1.Text := 'Edit1';
      Edit2.Text := 'Edit2';
      Edit1.Name := 'Edit1';
      Edit2.Name := 'Edit2';
      result := Panel.Handle;
    end;

    C# code:

    [DllImport("libfuncs.dll")]
    static extern IntPtr CreateControls(IntPtr parentComponent);
    private void button10_Click(object sender, EventArgs e)
    {
         CreateControls(panel1.Handle);
                
    }
    thank you.

    • 已更改类型 babyluoyi 2012年12月6日 3:22 post forum error
    • 已更改类型 babyluoyi 2012年12月28日 2:42 aa
    2012年12月6日 3:13

全部回复