FormCustomizationHelper
窗口自定义助手
调用示例:
procedure TForm2.DoIdle(Sender: TObject; var Done: Boolean);
begin
Self.Invalidate;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Application.OnIdle:= DoIdle;
FCustomizationHelper:= TFormCustomizationHelper.Create(Self);
end;效果图:
