Implementation

{$R *.dfm}

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Begin

x0 := x; {запоминание предыдущего положения мыши в локальной системе объекта Shape }

y0 := y;

drag := true; {мышь нажата}

end;

procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Begin

if drag then

Begin

Shape1.Left := Shape1.Left + x - x0; {пересчет координат нового положения объекта Shape после отпускания мыши}

Shape1.Top := Shape1.Top + y - x0;

drag := false; {мышь отпущена}

end;

end;

end.

OnMouseDown OnMouseUp

Листинг 54

procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Begin

with Sender as TShape do

if drag then

Begin

Shape1.Left := Shape1.Left + x - x0; {пересчет координат нового положения объекта Shape после отпускания мыши}

Shape1.Top := Shape1.Top + y - x0;

drag := false; {мышь отпущена}

end;

end;

Листинг 55

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Begin

if drag then

with TShape (Sender) do

Begin

Left := Left + x - x0; {пересчет координат нового положения объекта Shape после отпускания мыши}

Top := Top + y - x0;

end;

end;

drag := false;

- OnKeyPress;

- OnKeyDown;

- OnKeyUp.

Листинг 56

procedure Form1.Edit1KeyPress(Sender:TObject; var key:char);

Begin

Ifkey = 'a' then

Beep;

end;

VK_<имя клавиши> VK_RETURN

Листинг 57

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

Begin

if Key = VK_RIGHT then

Form1.Left := Form1.Left + 1;

end;

Листинг 58

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

Begin

if Key = VK_F1 then

Form1.Caption := 'F1';

end;

Листинг 59

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

Begin

if (Shift = [ssCtrl]) and (chr(Key) = 'a') then

MessageDlg('Комбинация Ctrl/A', mtInformation, [mbOK], 0);

end;

Рис. 46

Name

ClientHeight, ClientWidth

ClientRect º (0, 0, Clientwidth, ClientHeight).

BringToFront, SendToBack

Enabled: boolean

Hint ShowHint: boolean

Parent ... : boolean

.mpg, .mpa, .avi, .mpeg, .mpe, .mov, .mp2, .mlv, .gt

TMediaPlayer nn nn (System)

Device Type (CDROM, dtSelect)

TOpenDialog bb bbb ((((Dialogs)

Листинг 60

Type

TForm1 = class(TForm)

Panel1: TPanel;

Button1: TButton;

MediaPlayer1: TMediaPlayer;

OpenDialog1: TOpenDialog;

procedure Button1Click(Sender: TObject);

end;

Var

Form1: TForm1;