Mega Code Archive

 
Categories / Delphi / VCL
 

How to show Credits for the own components

Title: How to show Credits for the own components constructor YourComponentCreate(AOwner: TComponent); begin inherited Create(AOwner); {...} {Display a message during the load operation...} if (csDesigning in ComponentState) and not (csloading in ComponentState) then MessageDlg('Created by Totsios Dimitrios ', mtInformation, [mbOK], 0); end;