home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2003 July / PCpro_2003_07.ISO / vollvers / edhtml / EdHTMLv5.0.exe / Main / Przyklad2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-05-14  |  705 b   |  42 lines
  1. {        ..::EdHTML::..      }
  2. {     System Plug-In v1.0    }
  3. { Autor: Karol Wierzcholowski}
  4.  
  5.  
  6. // Przyklad: Nowa pozycja w MENU
  7.  
  8. unit OperacjeNaMenu;
  9.  
  10. interface
  11.  
  12. uses Windows, Messages, Forms,Classes;
  13.  
  14. implementation
  15.  
  16.   procedure Procka;
  17.   begin
  18.       ShowMessage('Testowa funkcja obs│ugi zdarzenia');
  19.   end;
  20.  
  21.  
  22. function main: string;
  23. var
  24.   MEN: TMainMenu;
  25.   MX : TManuItem;
  26.   MN : TMenuItem;
  27. begin
  28.  
  29.        MEN:=_FindComponent('Menu');
  30.        MX:=_FindComponent('PlugInsMenu');
  31.  
  32.        MN:=TMenuItem.Create(Men);
  33.        MN.OnClick:=Procka;
  34.        MN.Caption:='Nowa Funkcja';
  35.        MN.ImageIndex:=134;
  36.        MN.ShortCut:=49264;
  37.        MX.Insert(0,MN);
  38.  
  39. end;
  40.  
  41. end.
  42.