home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2003 July / PCpro_2003_07.ISO / vollvers / edhtml / EdHTMLv5.0.exe / Main / Przyklad4.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-05-14  |  566 b   |  36 lines
  1. {        ..::EdHTML::..      }
  2. {     System Plug-In v1.0    }
  3. { Autor: Karol Wierzcholowski}
  4.  
  5.  
  6. // Przyklad: Pole HINT z podpowiedziami
  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.   PH: TListBox;
  25. begin
  26.  
  27.        PH:=_FindComponent('PoleHint');
  28.        PH.Items.Clear;
  29.        PH.Items.Add('Linia 1');
  30.        PH.Items.Add('Linia 2');
  31.        PH.Visible:=TRUE;
  32.  
  33. end;
  34.  
  35. end.
  36.