Einführung in das Programmieren mit DELPHI  

9. Ereignisse der Komponenten

a) Mausereignisse

Ereignis tritt ein wenn
OnClick auf die Komponente geklickt wird.
OnDblClick auf die Komponente doppelt geklickt wird.
OnMouseDown eine Maustaste niedergedrückt wird.
OnMouseup eine Maustaste losgelassen wird.
OnMauseMove die Maus bewegt wird

Bei OnClick und OnDbICIick wird nur der Sender-Parameter übermittelt.

Jeder Doppelklick löst auch ein ,,normales" Klickereignis aus.

procedure TForm1.FormClick(Sender: TObject);
 

Bei OnMouseDown und OnMouseUp werden zusätzlich die Mauskoordinaten X, Y und die Maustaste und der Status aller Maustasten übermittelt. 

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
                                Shift: TShiftState; X, Y: Integer);
begin
    if Shift = [ssRight,ssLeft] then ...  {beide Maustasten gedrückt }
    if Button = mbLeft then ...           {linke Maustaste  gedrückt }
end;
 

b) Tastaturereignisse

Ereignis tritt ein wenn
OnKeyPress eine Taste gedrückt wurde.
OnKeyDown eine Taste nieder gedrückt wird.
OnKeyUp eine Taste losgelassen wird.

Bei OnKeyPress wird neben dem obligatorischen Sender-Parameter das Zeichen der Taste übermittelt:

procedure TFormLEdit1KeyPress (Sender: TObject; var Key: Char);

OnKeyDown und OnKeyUp übergeben nicht das Tastaturzeichen sondern den Tastaturcode und den Zustand der Alt-, Strg- und Umschalttaste.

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

OnKeyDown und OnKeyUp können damit auf alle Tasten (einschließlich Funktionstasten) und auf Kombinationen mit der Alt-, Strg- und Umschalttaste.

if (Shift=[ssCtrl]) and (Key=VK_F8) then ...           { Strg + F8 gedrückt }

Tabelle der Virtual Key Codes

© 2008 : Bernd Schultheiss