Question

Someway to override Delphi default procedures at Design Time ?

I need to override the InstanceSize at design time, I did it runtime using FastCode method:

FastcodeAddressPatch(FastcodeGetAddress(@SInstanceSize), @TWinControl.RfInstanceSize);

But, is there some way to do it at Design time ?

Tks in advice

Answer 1

“Design time” is really just “run time,” but in the context of the IDE instead of the context of your program. Put your code in a design-time package and load it in the IDE. The IDE will call all the Register procedures in your package’s units, at which time you can run whatever code you need.

1. Make a new package project (.dpk file).
2. Set project preferences so it’s a design-time package.
3. Add a new, blank unit to it.
4. Add a procedure to the interface section named Register. It must have a capital R and the rest lowercase.
5. Implement that procedure however you want (such as by putting your call to FastcodeAddressPatch there).
6. Compile and install the package.

I’m a little wary about what it looks like you’re trying to do in step 5, but I’ll let you work that out for yourself.