home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Books / 4 / EX28.ZIP / SBEDIT.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1995-12-06  |  1.3 KB  |  64 lines
  1. (*********************************************)
  2. (*                                           *)
  3. (*        TButton Component Editor           *)
  4. (*                                           *)
  5. (* Epsylon Technologies  "32 Delphi Lessons" *)
  6. (*********************************************)
  7.  
  8. unit SBEdit;
  9.  
  10. interface
  11.  
  12. uses
  13.   Classes, DsgnIntf, Dialogs, StdCtrls;
  14.  
  15. type
  16.   TButtonEditor = class(TComponentEditor)
  17.     private
  18.       procedure HiThere;
  19.     public
  20.       procedure Edit; override;
  21.       procedure ExecuteVerb(Index: Integer); override;
  22.       function GetVerb(Index: Integer): string; override;
  23.       function GetVerbCount: Integer; override;
  24.   end;
  25.  
  26. procedure Register;
  27.  
  28. implementation
  29.  
  30. procedure TButtonEditor.HiThere;
  31. begin
  32.   MessageDlg('Hi! It replaces Default Component Editor.', mtInformation, [mbOK], 0);
  33.   (Component as TButton).Caption:='Hi!';
  34.   Designer.Modified;
  35. end;
  36.  
  37. procedure TButtonEditor.Edit;
  38. begin
  39.   HiThere;
  40. end;
  41.  
  42. procedure TButtonEditor.ExecuteVerb(Index: Integer);
  43. begin
  44.   if Index = 0 then HiThere;
  45. end;
  46.  
  47. function TButtonEditor.GetVerb(Index: Integer): string;
  48. begin
  49.   result:='&Get message ...'
  50. end;
  51.  
  52. function TButtonEditor.GetVerbCount: Integer;
  53. begin
  54.   result:=1;
  55. end;
  56.  
  57.  
  58. procedure Register;
  59. begin
  60.   RegisterComponentEditor(TButton, TButtonEditor);
  61. end;
  62.  
  63. end.
  64.