我Dll封装了一个窗体，可以载入主窗体的Panel1中,可是不仅载入时的大小不施用Panel1的大小,而且也不随Panel1的大小改变而改变,请高手帮助

方法有兩種
1. 將panel的Top, Left, width, height的值傳入Dll之中。
2. 直接將panel傳入dll，dll也可以得到panel的位置。
3. 最笨的方法，看要Sendmessage將位置傳給dll form或將值寫入file(file mapped or Text file) 。

------
努力會更接近成功

Dear
有試過一個DLL封裝數個FORM嗎?

最近剛好在做這件事，把常用的Function都封成各個Dll，然後拿給ｐａｓｃａｌ ｓｃｒｉｐｔ去呼叫，簡直到了無所不能的地步，誰說程式不能ReUser??
for word 叫 myword.dll
for excel叫 myexcel.dll
for ado呼叫excel叫myadoxls.dll
那常用的form就叫myfrmbox.dll
(*二個例子給您參考*)
function bxListBoxDialog(AppHandle:THandle;ACaption,SelectStr:pchar):pchar;
var LDialog:TListDialog;
modalresult : integer;
Selectedstr: string;
begin
result :='';
Application.Handle := AppHandle;
LDialog := TListDialog.Create(Application);
try
LDialog.ListBox1.Items.Text := StringReplace(trim(SelectStr),',',#13 #10,[rfReplaceAll]);
LDialog.Caption := ACaption;
modalresult :=LDialog.ShowModal;
if modalresult=mrOk then begin
Selectedstr := trim(LDialog.ListBox1.Items[LDialog.ListBox1.ItemIndex]);
result := pchar(string(Selectedstr));
end
finally
LDialog.Free;
end;
end;
procedure bxMemoDialog(AppHandle:THandle;ACaption,APrompt,CammStr:pchar);
var memobx: Tmemobx;
begin
Application.Handle := AppHandle;
memobx := Tmemobx.Create(Application);
try
memobx.Memo1.Lines.Text := trim(StringReplace(trim(CammStr),',',#13 #10,[rfReplaceAll]));
memobx.Caption := ACaption;
memobx.Label1.Caption:=APrompt;
memobx.ShowModal;
finally
memobx.Free;
end;
end;

------
努力會更接近成功

編輯記錄

gs1_forms1,
gs1_p601 in 'gs1_p601.pas' {fmgs1_p601},
gs1_p1 in 'gs1_p1.pas' {fmgs1_p1},
gs1_p101 in 'gs1_p101.pas' {fmgs1_p101},
gs1_p102 in 'gs1_p102.pas' {fmgs1_p102},
gs1_p201 in 'gs1_p201.pas' {fmgs1_p201},
gs1_p406 in 'gs1_p406.pas' {fmgs1_p406},
gs1_p407 in 'gs1_p407.pas' {fmgs1_p407},
gs1_p501 in 'gs1_p501.pas' {fmgs1_p501},
gs1_p502 in 'gs1_p502.pas' {fmgs1_p502},
gs1_p503 in 'gs1_p503.pas' {fmgs1_p503},
gs1_p504 in 'gs1_p504.pas' {fmgs1_p504},
gs1_p506 in 'gs1_p506.pas' {fmgs1_p506},
gs1_p507 in 'gs1_p507.pas' {fmgs1_p507},
gs1_p508 in 'gs1_p508.pas' {fmgs1_p508},
gs1_p509 in 'gs1_p509.pas' {fmgs1_p509};
{$R *.res}
unit gs1_forms1;
interface
uses
SysUtils, Classes, Controls, forms, ExtCtrls,
gs1_p1,
gs1_p101, gs1_p102,
gs1_p201,
gs1_p406, gs1_p407,
gs1_p501, gs1_p502, gs1_p503, gs1_p504, gs1_p506, gs1_p507, gs1_p508, gs1_p509,
gs1_p601;
// Declare the export function of windows of the main DLL
procedure initApplication(AHandle: THandle);StdCall;
function gs1EmbeddedFormToPanel(pform: integer; ppanel: Tpanel): Pointer; Stdcall;
implementation
var
gs1Form1: TForm;
AppHandle: THandle;
procedure initApplication(AHandle: THandle);
begin
AppHandle := AHandle;
end;
if pform = 1 then
gs1Form1 := Tfmgs1_p1.Create(application)
else if pform = 101 then
gs1Form1 := Tfmgs1_p101.Create(application)
else if pform = 102 then
gs1Form1 := Tfmgs1_p102.Create(application)
else if pform = 103 then
begin
end
else if pform = 104 then
begin
end
else if pform = 105 then
begin
end
else if pform = 106 then
begin
end
else if pform = 107 then
begin
end
else if pform = 201 then
gs1Form1 := Tfmgs1_p201.Create(application)
else if pform = 406 then
gs1Form1 := Tfmgs1_p406.Create(application)
else if pform = 407 then
gs1Form1 := Tfmgs1_p407.Create(application)
else if pform = 501 then
gs1Form1 := Tfmgs1_p501.Create(application)
else if pform = 502 then
gs1Form1 := Tfmgs1_p502.Create(application)
else if pform = 503 then
gs1Form1 := Tfmgs1_p503.Create(application)
else if pform = 504 then
gs1Form1 := Tfmgs1_p504.Create(application)
else if pform = 506 then
gs1Form1 := Tfmgs1_p506.Create(application)
else if pform = 507 then
gs1Form1 := Tfmgs1_p507.Create(application)
else if pform = 508 then
gs1Form1 := Tfmgs1_p508.Create(application)
else if pform = 509 then
gs1Form1 := Tfmgs1_p509.Create(application)
else if pform = 601 then
gs1Form1 := Tfmgs1_p601.Create(application);
gs1Form1.Show;
gs1Form1.Visible := true;
result := gs1Form1;
end;
initialization
gs1Form1 := nil;
finalization
end.