РАБОТА СО  EVENTS

Прво се подига програмскиот јазик Delphi и се прави избор на нова апликација File->NEW Application.

Се поставува една компонента Image1  од палетата со компоненти Additional со подесување на висината

и ширината на сликата Height=100 со Width=100, и подесување на опцијата за растегнување на сликата

Stretch - true (да ја растегне истата).
 

Се поставува и еден  Button  со Caption - Otvori  од палетата со компоненти Standard,  
како и еден OpenPictureDialog  од палетата со компоненти Dialogs.

Потоа се поставуваат филтри на OpenPictureDialog1 - се селектира OpenPictureDialog1 и во Object Inspector-> Filter

се дефинираат кои типови на датотеки ќе се отвораат;
Филтерот е предефиниран видете го !!!

Потоа се селектира сликата  Image1 и на неа се прават неколку акции за определени Events на формата:

Се селектира формата, потоа во Object Inspector, Events во различни Евентс на двоен клик се впишува:    

Event - onShow                             showmessage('Dobredojdovte !');

Event - onClose                             showmessage('Prijaten den !');

Event - onMouseDown                   Image1.Width:=200;
                                                        Image1.Height:=200;

Event - onMouseMove                   Image1.Width:=300;
                                                        Image1.Height:=300;

Event - onMouseUp                       Image1.Width:=400;
                                                        Image1.Height:=400;

Потоа на двоен клик на  Button1 се впишува следиот код:

OpenPictureDialog1.execute;
if openpicturedialog1.FileName<>'' then                                                    //контрола дали е впишано име на слика
    image1.Picture.LoadFromFile(openpicturedialog1.FileName);               //полнење на сликата во Image1