Thanks!
Steve Kothenbeutel
skothe...@consultant.com
Thanks,
Biplab
"LatinaLuva" <Latin...@mexico.com> wrote in message
news:3cb2ace4_1@dnews...
Form1 := TFormMisc.Create(nil);
with Form1 do
begin
SetParent(Handle, fParentHandle);
show;
end;
Is these anything else I need to do to get the form to show within a
particular control within my calling exe program?
Thanks!
"Biplab De" <bip...@sysmetricsolutions.com> wrote in message
news:3cb2e0a5_1@dnews...
library pdll;
uses
SysUtils,
Windows,
Classes,
forms;
{$R *.RES}
function CreateAForm(AParentHandle: HWND):boolean; stdcall;
var
Form1: TForm;
begin
Form1 := TForm.Create(nil);
with Form1 do
begin
//SetParent(Handle, AParentHandle);
Caption:= 'Creating a form with-in a DLL';
showmodal; // Show;
end;
end;
exports
CreateAForm;
end.
--------------------------------------
DLL Calling program
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function CreateAForm(AParentHandle:HWND): boolean stdcall; external
'pdll.dll';
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
CreateAForm(Application.handle);
end;
end.
Thanks,
Biplab
"LatinaLuva" <Latin...@mexico.com> wrote in message
news:3cb3fcaa_1@dnews...
Thanks for the input.
"Biplab De" <bip...@sysmetricsolutions.com> wrote in message
news:3cb43671_1@dnews...