Or Frames for that matter, or custom components.
Alister Christie
Computers for People
Ph: 04 471 1849 Fax: 04 471 1266
http://www.salespartner.co.nz
PO Box 13085
Johnsonville
Wellington
On 17/09/2010 12:48 p.m., Jeremy North wrote:
> Why not form inheritence?
>
> Are you declaring the events in the correct spot for the form?
>
> BTW, you really want your Label font to be different to the Edit font?
>
>
> On Fri, Sep 17, 2010 at 10:39 AM, John Bird<johnkb...@paradise.net.nz> wrote:
>> I have a source generation program to speed creating of sets of labels and
>> edit boxes on a form - which gives output like examples below.
>>
>> I paste the code that goes in the DFM onto the form, and it creates all the
>> components - a neat Delphi trick for those who might not know.
>>
>> My problem is that the OnEnter and OnExit events seem to disappear from
>> these components and I have to add them back manually, even though the code
>> was already in the unit when the paste was done. My detective work so far
>> seems to show that it depends on where the forward (first) declaration of
>> the event code is placed whether it is recognised or not - seems it has to
>> be above the {private} and {public} sections for the form
>>
>> What are the rules for where such event code has to be declared? - I am
>> vague on this. I have heard others use generated code too, I am wondering
>> if they have tips or pitfalls like this to avoid.
>>
>> (Aside - Personally I favour source generation like this a lot. It is cool
>> to do, ends up as fast as hand written code, and most importantly saves time
>> and introduces standard code structure that is easy to understand.)
>> (Further aside - this is code generated by the program for a new part of
>> itself. Its cool when a program can write its own code).
>>
>> example of output from the code generation....
>>
>> // Forward declaration
>> procedure edtSOURCEINPUTEnter(Sender: TObject);
>> procedure edtSOURCEINPUTExit(Sender: TObject);
>>
>>
>> //Implementation ------- edit enter and exit events for editing this
>> record --------
>> procedure Tform1.edtSOURCEINPUTEnter(Sender: TObject);
>> begin
>> (some code here)
>> end;
>>
>> procedure Tform1.edtSOURCEINPUTExit(Sender: TObject);
>> begin
>> (some code here)
>> end;
>>
>> And:
>>
>> //Paste onto form
>>
>> object lblSrcInpPath: TLabel
>> Left = 300
>> Top = 51
>> Width = 142
>> Height = 13
>> Caption = 'Path'
>> Font.Charset = DEFAULT_CHARSET
>> Font.Color = clBlack
>> Font.Height = -11
>> Font.Name = 'MS Sans Serif'
>> Font.Style = []
>> ParentFont = False
>> end
>> object edtSrcInpPath: TEdit
>> Left = 420
>> Top = 48
>> Width = 121
>> Height = 21
>> Font.Charset = DEFAULT_CHARSET
>> Font.Color = clNavy
>> Font.Height = -11
>> Font.Name = 'Tahoma'
>> Font.Style = [fsBold]
>> ParentFont = False
>> TabOrder = 1
>> Text = ''
>> Enabled = True
>> OnEnter = edtSOURCEINPUTEnter
>> OnExit = edtSOURCEINPUTExit
>> end
>> object lblSrcInpFileIn: TLabel
>> Left = 300
>> Top = 75
>> Width = 142
>> Height = 13
>> Caption = 'Filename without path'
>> Font.Charset = DEFAULT_CHARSET
>> Font.Color = clBlack
>> Font.Height = -11
>> Font.Name = 'MS Sans Serif'
>> Font.Style = []
>> ParentFont = False
>> end
>> object edtSrcInpFileIn: TEdit
>> Left = 420
>> Top = 72
>> Width = 121
>> Height = 21
>> Font.Charset = DEFAULT_CHARSET
>> Font.Color = clNavy
>> Font.Height = -11
>> Font.Name = 'Tahoma'
>> Font.Style = [fsBold]
>> ParentFont = False
>> TabOrder = 2
>> Text = ''
>> Enabled = True
>> OnEnter = edtSOURCEINPUTEnter
>> OnExit = edtSOURCEINPUTExit
>> end
>>
>> etc....
>>
>>
>> John
>>
>>
>> _______________________________________________
>> NZ Borland Developers Group - Delphi mailing list
>> Post: delphi@delphi.org.nz
>> Admin: http://delphi.org.nz/mailman/listinfo/delphi
>> Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject:
>> unsubscribe
>>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi@delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject:
> unsubscribe
>
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject:
unsubscribe
