[casperock]

Доброго времени суток всем.
Есть такой вопрос. К примеру, есть батон на форме, когда на нее нажимаешь - воспроизводиться файл, когда отпускаешь - воспроизведение прекращается. Это в общем не проблема, мышкой я сделал это через события OnMouseDown и OnMouseUp, сделать управление кнопкой через стрелочку на клавиатуре не выходит. Вот пример кода, который почемуто работает при нажатии Ctrl.

Код:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if GetKeyState(VK_LEFT) <> 0 then
MediaPlayer1.FileName:='1.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

Windows 7, Delphi 7.
Заранее благодарю за помощь.

[poli-smen]

Сообщение от casperock

Вот пример кода, который почемуто работает при нажатии Ctrl.

Код:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if GetKeyState(VK_LEFT) <> 0 then
MediaPlayer1.FileName:='1.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

Заключи в операторные скобки begin..end всё что должно выполниться при выполнении условия.

[casperock]

Сообщение от poli-smen

Заключи в операторные скобки begin..end всё что должно выполниться при выполнении условия.

Спасибо, но все равно не помогло. Вот весь код с импровизацией:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    MediaPlayer1: TMediaPlayer;
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
MediaPlayer1.FileName:='1.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
MediaPlayer1.Stop;

end;

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if GetKeyState(VK_LEFT) <> 0 then
begin;
MediaPlayer1.FileName:='1.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
MediaPlayer1.Stop;
end;

end.

[Alegun]

Похоже здесь всё дело в повторах нажатия клавиши - даже при отпускании из буфера клавы идёт повтор на запуск, попробуйте вот так

Код:

var flg: boolean = true;
procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if GetKeyState(VK_LEFT) <> 0 then flg:= true;
end;

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
 if flg then
  begin
   MediaPlayer1.FileName:='1.mp3';
   MediaPlayer1.Open;
   MediaPlayer1.Play;
  end;
end;

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  flg:= false;
 MediaPlayer1.Stop;
end;

не проверял, нечем, но так должно сработать

З.Ы. Косяк только сейчас заметил -

вместо

Код:

if GetKeyState(VK_LEFT) <> 0 then flg:= true;

нужно

Код:

if Key = VK_LEFT then flg:= true;

[casperock]

Сообщение от Alegun

Похоже здесь всё дело в повторах нажатия клавиши - даже при отпускании из буфера клавы идёт повтор на запуск, попробуйте вот так

Код:

var flg: boolean = true;
procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if GetKeyState(VK_LEFT) <> 0 then flg:= true;
end;

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
 if flg then
  begin
   MediaPlayer1.FileName:='1.mp3';
   MediaPlayer1.Open;
   MediaPlayer1.Play;
  end;
end;

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  flg:= false;
 MediaPlayer1.Stop;
end;

не проверял, нечем, но так должно сработать

Спасибо, попробовал. К сожалению не подошло, с мышки все работает отлично. А вот если зажать любую стрелочку на клавиатуре во время работы программы, никаких действий не происходит. А как только отпускаешь зажатую стрелочку - вылазит ошибка "No MCI device open". Как я понимаю, то что я отпустил кнопку программа видит и реагирует вот так:

Код:

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
flg:= false;
MediaPlayer1.Stop;
end;

Но вылазит ошибка, т.к. программа почему-то не понимает когда я нажимаю клавишу, но отлично понимает когда я её отпускаю и соответственно дает команду компоненту TMediaPlayer прекратить воспроизведение трека, а компонент не понимает что от него хотят и выдает ерорр =((

[Alegun]

Извнт за ляп, тогда отмена, попробуйте вот так

Код:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_LEFT then
  begin
   MediaPlayer1.FileName:='1.mp3';
   MediaPlayer1.Open;
   MediaPlayer1.Play;
  end;
end;

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_LEFT then MediaPlayer1.Stop;
end;

З.Ы. Тяжело без делфи код под неё собирать, извнт :-)