Dafür brauchst du dann einen Code-Hook. Such mal nach der uallCollection von
brechi oder nimm z.B. meine
GenCodeHook-Unit.
// Nachtrag
Mit meiner
Unit sähe das dann so aus:
Delphi-Quellcode:
type
TCreateParamsProc = procedure(Form: TCustomForm; var Params: TCreateParams);
var
OldCreateParams: TCreateParamsProc;
procedure NewCreateParams(Form: TCustomForm; var Params: TCreateParams);
begin
OldCreateParams(Form, Params);
Params.Style := Params.Style or WS_WASWEISSICHAUCHIMMER;
// ...
end;
procedure EstablishHook;
begin
if not Assigned(OldCreateParams) then
CreateGenericCodeHook(@TCustomForm.CreateParams, @NewCreateParams, @OldCreateParams);
end;
(ungetestet, ggf. das eine oder andere @ zu viel)
Ich hab's jetzt absichtlich nicht an ein Objekt gebunden sondern "Self" explizit als ersten Parameter aufgeführt.