Lekce 2.11
Základní události objektů

Událost je všeobecně situace, kterou objekt rozpozná a je schopen (ale nemusí) na ní reagovat. Události je přitom možné rozdělit do dvou skupin. V první skupině jsou události, které vyvolal sám uživatel programu například tím, že stisknul tlačítko myši. Hlavně pro takové události také budeme psát obsloužení události. Ve druhé skupině jsou zařazeny události, které byly vyvolány přímo systémem. Například při spuštění aplikace, nebo jejím ukončení. Takové události je možné použít například pro nastavení počátečních hodnot aplikace.

Pro program představuje událost zadání procedury, která se při výskytu události provede. Jinými slovy, že uvedená procedura obslouží vyvolanou událost. Pokud přitom není procedura pro událost v programu definována, nebude hlášena žádná chyba, událost však také nebude obsloužena.

Nejběžnější událostí je stisk tlačítka myši, které vyvolá událost OnClick. Stejnou událost vyvolá i stisk klávesy Enter nebo mezerník, pokud je na formuláři aktivní tlačítko. Obsloužení události jsme si předvedli v naší první jednoduché aplikaci. Nyní ji proto zopakujeme pouze pro jazyk KLONDAIK:

procedure TForm.Button1Click(Sender: TObject);
begin
   ShowMessage('Ahoj');
end;

Jazyk KLONDAIK:
procedure TForm.Button1KeyPress(Sender: TObject; var Key: Char);
begin
   ShowMessage('Byla stisknuta klávesa: '+Key);
end;

Jazyk BONANZA:
Sub Button2KeyPress(Sender, Key)
    ShowMessage("Byla stisknuta klávesa: "+Chr(Key))
End Sub

Jazyk JUKON:
function FormKeyPress(Sender, Key)
{
   ShowMessage('Byla stisknuta klávesa: '+Chr(Key));
}

Podobným způsobem je možné také rozpoznat stisk nebo uvolnění tlačítka myši. Uvedené akce mohou obsloužit mimo již zmíněné události OnClick také události OnMouseDown (stisk) a OnMouseUp (uvolnění). Uvedené události definují ve své proceduře pro další použití souřadnice stisku tlačítka myši na objektu:

Jazyk KLONDAIK:
procedure TForm.MouseDown(Sender: TObject;
          Button: TMouseButton; Shift: TShiftState;
          X, Y: Integer);
begin
   ShowMessage('Pozice x='+IntToStr(x)+#10+
               'Pozice y='+IntToStr(y));
end;

Jazyk BONANZA:
Sub FormMouseDown(Sender, Button, Shift, X, Y)
    ShowMessage("Pozice x="+IntToStr(x)+Chr(10)_
               +"Pozice y="+IntToStr(y))
End Sub

Jazyk JUKON:
function FormMouseDown(Sender, Button, Shift, X, Y)
{
   ShowMessage('Pozice X='+IntToStr(X)+Chr(10)
              +'Pozice Y='+IntToStr(Y));
}

Zajímavá a využitelná je také událost OnMouseMove, která nastane při přesunu myší nad objektem. To lze využít například pro zobrazení ukazatele pozice myši. Událost využívá stejné parametry jako výše uvedená událost OnMouseDown.