How to create a control programatically ?

[newman]

Hi,

I am using the 5dpo serial port control for my applications. I have developed a series of procedures/functions for a proprietary RS 485 based protocol. I would like to put all these procedures/functions into a single unit, called micrors485.pas. The problem is that these modules use the 5dpo serial port control (the control is drawn on a form). Also the receive event of the control is also used.

How do I create a control on the micrors485.pas unit ?? Also how do I add the event handler for the control into this unit ??

I can post more information if required.

thanks
nm

Platform: Windows XP

[Leledumbo]

How do I create a control on the micrors485.pas unit ??

Like this:

Code: [Select]

var
  MyControl: TMyControl;
begin
  MyControl := TMyControl.Create(<constructor arguments>);
  MyControl.X := ... ; // set up its properties


Also how do I add the event handler for the control into this unit ??

First, create the event handler:

Code: [Select]

interface

type
  TMyControl = class
    ...
    procedure SomeProc;
    ...
  end;

implementation

...

procedure TMyControl.SomeProc;
begin
  ...
end;

...
Then assign the handler in the constructor:

Code: [Select]

constructor TMyControl.Create;
begin
  TMyControl.OnProc := @SomeProc;
end;


[ivan17]

lets be a little more precise, shall we... (reused previous answer)

How do I create a control on the micrors485.pas unit ??

Like this:

Code: [Select]

 MyControl: TMyControl;    <<< add this into main form's public section


Code: [Select]

 ....                                      //      this goes into form's oncreate;
  MyControl := TMyControl.Create(Self);   <<  self means main form;
                        // main form will destroy your control when itself is destroyed
  MyControl.Name := 'newman' ; // set up its properties
  MyControl.Parent := Self;        <<<<<<    do NOT forget to set the parent;
               /// parent could also be Panel3 or TabSheet2 or GroupBox1...
  MyControl.Left := 8 ; // you could use SetBounds here
  MyControl.OnMyEvent := @SomeProc;     // see below


Also how do I add the event handler for the control into this unit ??

First, create the event handler:

Code: [Select]

procedure SomeProc(...);    << this goes in form's public area where the REST of events are
...
implementation
...
...

procedure TMainForm.SomeProc(...);  // yes, make it a method belonging to the form
begin
  ...
end;

...


[newman]

Thanks for the information, I will try this out.