判斷按下按鍵的應用．沒反應-有解無憂

sololie哥，新開的例子就可以監控到，但是一應用到下面透明的地方，按下Ａ鍵就沒反應．
還有就是一直閃屏．秒數越少，閃的越歷害．

unit falsh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, ShockwaveFlashObjects_TLB, ExtCtrls, jpeg,
  Buttons, dxGDIPlusClasses, MPlayer;

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    BitBtn1: TBitBtn;
    Panel2: TPanel;
    img1: TImage;
    shckwvflsh1: TShockwaveFlash;
    tmr1: TTimer;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Image3: TImage;
    Timer1: TTimer;

    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
  private

    { Private declarations }
  public
    OldWndProc: TWndMethod;
    procedure NewWndProc(var msg: TMessage);

    { Public declarations }
  end;

var
  Form1: TForm1;
  leftFoot,rightFoot : Boolean;

implementation

{$R *.dfm}
var
   bmpBuf: TBitmap;
   isKeyDown: ShortInt;

procedure TForm1.FormCreate(Sender: TObject);
begin

    OldWndProc := shckwvflsh1.WindowProc;
    shckwvflsh1.WindowProc := NewWndProc;
    DoubleBuffered := True;   // 設定跟 shckwvflash 控制元件寬高和xy 一致
    bmpBuf := TBitmap.Create;
    bmpBuf.PixelFormat := pf16bit;
    bmpBuf.Transparent := true;
    bmpBuf.Width := shckwvflsh1.Width;
    bmpBuf.Height := shckwvflsh1.Height;
    img1.Width := shckwvflsh1.Width;
    img1.Height := shckwvflsh1.Height;
    img1.Top := shckwvflsh1.Top;
    img1.Left := shckwvflsh1.Left;
    img1.Transparent := True;
    shckwvflsh1.Visible := False;
    shckwvflsh1.Quality2 := 'High';
  //  shckwvflsh1.Movie := 'c:\1.swf';
    DoubleBuffered:=True;
    shckwvflsh1.Movie:='C:\Documents and Settings\Administrator\桌面\瑜伽2\Flash\yoga\1.swf';
    shckwvflsh1.Scale:='ShowAll' ;

end;

procedure TForm1.FormResize(Sender: TObject);
begin
    Repaint;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
bmpFormBg: TBitmap;
begin
//  bmpFormBg := TBitmap.Create;
// bmpFormBg.LoadFromFile('C:\Documents and Settings\Administrator\桌面\瑜伽素材\Main.bmp');
//  Canvas.StretchDraw(ClientRect, bmpFormBg);
// bmpformBg.Free;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
bmpBuf.Free;
//bmpFormBg.Free;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  if isKeyDown = 1 then
  begin
      Caption := '按住了A鍵';
      Image3.Visible:=true;
  end;
  if isKeyDown = 2 then
  begin
      Caption := '松開了A鍵';
      image3.Visible:=false;
  end;
  shckwvflsh1.PaintTo(bmpBuf.Canvas, 0, 0);
  bmpBuf.Canvas.Brush.Style := bsClear;
  bmpBuf.Transparent := True;
  img1.Picture.Bitmap.Assign(bmpBuf);
  Label1.Caption:=inttostr(shckwvflsh1.FrameNum);
end;

procedure TForm1.NewWndProc(var msg: TMessage);
begin
if msg.Msg = WM_KEYDOWN then
begin// 這里做處理

if (msg.Msg = WM_KEYDOWN) and ((msg.WParam = Ord('A'))) then
   isKeyDown := 1;
if (msg.Msg = WM_KEYUP) and (msg.WParam = Ord('A')) then
   isKeyDown := 2;

   OldWndProc(msg);

end;
OldWndProc(msg);
end;

end.

uj5u.com熱心網友回復：





procedure TForm1.NewWndProc(var msg: TMessage);

begin

if msg.Msg = WM_KEYDOWN then

begin// 這里做處理



 if (msg.Msg = WM_KEYDOWN) and ((msg.WParam = Ord('A'))) then

   isKeyDown := 1;

 if (msg.Msg = WM_KEYUP) and (msg.WParam = Ord('A')) then

   isKeyDown := 2;



   // OldWndProc(msg); // 這個哪來的？去掉。

end;

 OldWndProc(msg);

end;

uj5u.com熱心網友回復：



// 分兩個timer來處理



procedure TForm1.tmr1Timer(Sender: TObject);

begin

  if isKeyDown = 1 then

  begin

      Caption := '按住了A鍵';

      Image3.Visible:=true;

  end;

  if isKeyDown = 2 then

  begin

      Caption := '松開了A鍵';

      image3.Visible:=false;

  end;

  Label1.Caption:=inttostr(shckwvflsh1.FrameNum);

end;



procedure TForm1.tmr2Timer(Sender: TObject);

begin

  shckwvflsh1.PaintTo(bmpBuf.Canvas, 0, 0);

  img1.Picture.Bitmap.Assign(bmpBuf);

end;

uj5u.com熱心網友回復：

從前我就跟你講過，那個透明的flash其實是個透明的IMAGE控制元件，flash控制元件本身不顯示，你怎么能把那個用到專案中，專案中應該考慮找第三方組件來做。

難得還有高人給你指路，你都不把握

uj5u.com熱心網友回復：

sololie哥，我菜啊．　有什么好的第三方控制元件推薦啊．

uj5u.com熱心網友回復：

看這些東西頭都大啊．你們懂的太多了，　如果有個第三控制元件能實作這個，就超爽了．

uj5u.com熱心網友回復：

另外紙條怎么發啊．別說我菜．．我真的不知道怎么發紙條，留言？私信？

uj5u.com熱心網友回復：

就是讓你站內發短訊息，PM

uj5u.com熱心網友回復：

謝謝sololie 哥解決的閃屏問題，感動流Ｔ中．．
最后的就是按鍵按下問題了．．．

uj5u.com熱心網友回復：

應該可以做到，找空給你改改代碼

uj5u.com熱心網友回復：

座等sololie 哥的代碼，哈哈，這么些了，真的很謝謝sololie 了哥的幫助，要怎么謝你啊．真的想表達一下．

uj5u.com熱心網友回復：

剛郵件發送了一個問題給Sololie哥，怎么實作調換，我真是沒經過思考，后面把前面的代碼，封裝在一個程序里面,控制time開關，釋放對像．放一個button單擊事件，再重建一次就可以了．呵呵．．

還是原來那個問題．檢測按鍵按下的問題，現在是一有空就研究這個東西，越研究越有意思．座等Sololie哥給的代碼，

uj5u.com熱心網友回復：

這個flash本身沒有互動功能，你按A鍵干嘛？
我還以為這flash你按A鍵，它里面的人就跳一下之類的。
你還是想說清楚你想干什么吧，按A鍵做什么？

碎嚼碎嚼

uj5u.com熱心網友回復：

flash 本身是個影片演示，用鍵盤模似動作，如單腿按下左鍵，程式寫代碼可以控制到跟他同步，從而讓玩家感覺到已經置身其中了，如踩上的是Ａ鍵，影片的左腳是單踩的話，我可以判斷，按下Ａ鍵的時間是否跟影片左腳立住的時間是否是一樣長，是一樣長，表明正確，反之而錯誤，這是所謂的交復，這種方法，可以用在很多flash游戲上．．．
藍色光芒兄給了一個例子，也很不錯．

procedure TForm1.FormCreate(Sender: TObject);
begin
  ActiveX.CoInitialize(NIL);
  fMainLoaded := false;
  psSoftPath := ExtractFilePath(Application.ExeName);
  SWF.Movie := psSoftPath + '容器.swf';
  Self.KeyPreview := True;
end;

//Flash自定義回呼介面,最好用XML決議 request , 偷懶了...
//初始化完成,可以呼叫LoadFromFile和Clear介面了
//<invoke name="InitFinished" returntype="xml"><arguments></arguments></invoke>
//該檔案裝入成功
//<invoke name="LoadFinished" returntype="xml"><arguments><string>file://E:\xxx\dog_rose.jpg</string></arguments></invoke>
//該檔案裝入失敗,原因:無法讀取該檔案或者不是可顯示物件
//<invoke name="LoadFaild" returntype="xml"><arguments><string>file://E:\xx\xx.swf</string></arguments></invoke>

procedure TForm1.SWFFlashCall(ASender: TObject; const request: WideString);
var
  S : String;
begin
  S := request;
  if not fMainLoaded then begin
    if Pos('"InitFinished"' , S)>0 then begin  //容器初始化完成,之后就可以呼叫LoadFromFile和Clear介面了
      fMainLoaded := True;
      CallLoadFromFile('dog_rose.jpg',0,0);    //裝入背景圖，全路徑或者相對于容器.swf的路徑，最好用全路徑
      CallLoadFromFile(psSoftPath + '楓葉.swf',0,0);
    end;
  end;
end;

//呼叫容器Flash中的裝入介面,引數width,height<=0的話,將采用裝入物件默認的寬和高,否則就是縮放該物件
//裝入介面是耗時介面,裝入結果會延遲通過OnFlashCall通知,通知包括:LoadFinished和LoadFaild
//由于是延遲介面，因此可以連續投放到裝入佇列中
function TForm1.CallLoadFromFile(Const URL : String; x:integer=0; y : integer=0; width:integer=0; height:integer=0) : Boolean;
var
  W : WideString;
begin
  W := '<invoke name="LoadFromFile" returntype="xml">' +
          '<arguments>' +
          '<string>' + URL + '</string>' +
          '<number>' + IntToStr(x) + '</number>' +
          '<number>' + IntToStr(y) + '</number>' +
          '<number>' + IntToStr(width) + '</number>' +
          '<number>' + IntToStr(height) + '</number>' +
          '</arguments>'+
       '</invoke>';
  try
    SWF.CallFunction(W);
    Result := True;
  except
    Result := False;
  end;

procedure TForm1.ReLoadBtnClick(Sender: TObject);
begin
  CallClear();
  CallLoadFromFile(psSoftPath + 'Main.png');
  CallLoadFromFile(psSoftPath + '1.swf',0,0,1000,0);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = Ord('A')) and (Self.ActiveControl<>NIL) and (Self.ActiveControl is TShockwaveFlash) then
    Caption := 'A Down'
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = Ord('A')) and (Self.ActiveControl<>NIL) and (Self.ActiveControl is TShockwaveFlash) then
    Caption := 'A Up'
end;

優點是表單可以直接監控到按鍵情況．
但容器不透明，我還需要放置Ｎ個圖片顯示在flash之上．
同過他的想到的辦法是在上面做一個panel容器在ＳＷＦ之上，但必須把ＰＡＮＥＬ做成透明的，才可以．

uj5u.com熱心網友回復：

但容器不透明，我還需要放置Ｎ個圖片顯示在flash之上．

CallLoadFromFile(psSoftPath + 'Main.png');
不同的圖片都呼叫一次,
CallLoadFromFile,給你寫了引數來調整位置以及大小的,
先CallLoadFromFile的在后面,后CallLoadFromFile在上面

uj5u.com熱心網友回復：

例：我加載了10個，
１．CallLoadFromFile(psSoftPath + 'Main1.png');
２．CallLoadFromFile(psSoftPath + 'Main2.png');
３．CallLoadFromFile(psSoftPath + 'Main3.png');
４．CallLoadFromFile(psSoftPath + 'Main4.png');
５．CallLoadFromFile(psSoftPath + 'Main5.png');

１＞加載以后，按鍵按下Ａ字母，'Main2.png'處于不可顯狀態．指定某個清楚．可不可以做到？
２＞還有一個問題，CallClear　這個清除不了，等于是重復加截！
謝了

uj5u.com熱心網友回復：

如果你要指定洗掉,需要修改容器.swf ,改AS3代碼,
也可以在按A后,Clear,然后加載除了Main2.png外的其他來實作,不過這方法顯然沒有第一個方法好,
有點無語了,你這么加載圖片,圖片都放到一起了,位置引數都沒給

uj5u.com熱心網友回復：

位置那個現在可以忽略．其實加截那么多，東西，上面放個Ｐanel容器還是好點．把Ｐanel容器搞成透明的，圖片，png的也是透明的，這樣做應該沒問題，我試過ＤＥＬＰＨＩ原來的Ｐanel　只是不透明，要做panel透明處理，我給你的圖片，上面還要實時的去統計分值／就是不知道，加了以后還會遇到什么問題，呵呵．
kiboisme
藍色光芒　兄，覺的有沒有問題．

uj5u.com熱心網友回復：

CallClear();
　這代碼，清楚不了．幫看看，加一次，就是重復一次，原來的還在！

uj5u.com熱心網友回復：

kiboisme
藍色光芒　給的這個例子，我發現，表單在打開的時候，按下按鍵可以做判斷，但是只要一按BUTTON按鈕加載，就沒辦法判斷了．有點抓逛了．．．

sololie 哥的方法，座等．．555555555

uj5u.com熱心網友回復：

if (Key = Ord('A')) and //判斷是否是按了A鍵
    (Self.ActiveControl<>NIL) and //判斷存在有焦點的控制元件
    (Self.ActiveControl is TShockwaveFlash) then //判斷焦點是否在Flash上，如果3個條件滿足，那顯示，
     Caption := 'A Down'

暈阿！！！你放了一個按鈕，而當前焦點在按鈕上，條件3不滿足當然不顯示了，如果你點一下Flash，再按A，就顯示了，

代碼要學會閱讀并嘗試去理解，這樣的進步才踏實。

uj5u.com熱心網友回復：

我錯了．后面我看了．
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = Ord('A')) and (Self.ActiveControl<>NIL)  then //and (Self.ActiveControl is TShockwaveFlash)
    Caption := 'A Down';
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = Ord('A')) and (Self.ActiveControl<>NIL)  then //and (Self.ActiveControl is TShockwaveFlash)
    Caption := 'A UP';

我這樣處理了一下，我也發現了，我把button的事件keydown ,keyUP事件呼叫表單的就可以了
我真錯了，后面我想回復，回復不了，我回復三次了．．

uj5u.com熱心網友回復：

CallClear();
　這代碼，清除不了．幫看看，加截一次，就是重復一次，畫面不在了，但原來的聲音還在！
　如果你加截三次，就有三個聲音．．不理解．．．

uj5u.com熱心網友回復：

確實是這樣，修改容器.swf 后發給你

uj5u.com熱心網友回復：

我現在發現．檢測按鍵事件只能判斷一個按鍵，如果同時判斷兩個鍵是否同時按下就沒有用另開新貼　

sololie 哥，關于在你給的那個例子上按鍵的問題．可以放一個ＢＵＴＴＯＮ，來監控到按下什么鍵，同樣，但是同要也實作不了多字母同時按下的判斷！
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (Key = Ord('A')) and (Self.ActiveControl<>NIL)   then
       Caption := 'An Down'

end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if (Key = Ord('A')) and (Self.ActiveControl<>NIL) then   // and (Self.ActiveControl is TShockwaveFlash)
      Caption := 'A Up'
end;

procedure TForm1.BitBtn2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
bitbtn2.OnKeyUp := form1.OnKeyUp;
end;

procedure TForm1.BitBtn2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   bitbtn2.OnKeyDown := form1.OnKeyDown;
end;

uj5u.com熱心網友回復：

修改后的容器.swf已經發給你了，釋放問題解決，增加了一個介面可以釋放指定加載項（按照順序釋放）

Delphi呼叫代碼

function TForm1.CallRemove(index: integer): Boolean;

var

  W : WideString;

begin

  W := '<invoke name="Remove" returntype="xml">' +

          '<arguments>' +

          '<number>' + IntToStr(index) + '</number>' +

          '</arguments>'+

       '</invoke>';

  try

    SWF.CallFunction(W);

    Result := True;

  except

    Result := False;

  end;

end;

注意index，比如你一次加載了,A,B,C,D,E 5個檔案，要釋放A就index=0，依次，當釋放一個之后，后面的序號依次往前靠,也就是釋放A之后，B的序號變成0了。

uj5u.com熱心網友回復：

你自己好歹也想想怎么做嘛，都給了你判斷一個按鍵的代碼了，你就不會改改成判斷2個按鍵的，不然下次就又要問判斷3個按鍵，4個按鍵，沒玩沒了了。你這不是學習的態度。

uj5u.com熱心網友回復：

LSS的方法比較治本，有空把它封裝成個完善的類好了。

uj5u.com熱心網友回復：

keyDown事件，和keyUp事件，好像只能監控到一個按鍵是否按下，兩個按鍵，用keyDown ,Keyup事件，沒辦法判斷，Ｓorry,我真的很菜．

uj5u.com熱心網友回復：

多個個鍵是否按下了,同樣可以判斷,一個陣列,按下時對應位設定為TRUE,松開時,對應位設定為FALSE,只需要檢查這個陣列就知道,當前那些鍵是按下的,那些是松開的.

uj5u.com熱心網友回復：

哦，明白了．．謝謝！你們的處理方法總是讓人興奮．

uj5u.com熱心網友回復：

kiboisme 哥，去這個貼子回復一下，謝分貼　

http://bbs.csdn.net/topics/390461439

就是想表達一下對你們崇敬，向你們學習！

轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/132848.html

標籤：VCL組件開發及應用

上一篇：indy 10 ftp訪問中文檔案夾和檔案的問題

下一篇：怎么參考delphi中combobox的每一行