Einzelnen Beitrag anzeigen

Kranich

Registriert seit: 25. Aug 2006
Ort: Essen
11 Beiträge
 
Delphi 7 Personal
 
#4

Re: Drag&Drop Listbox ---> Groupbox (---> Label)

  Alt 5. Okt 2006, 23:46
Hey, kaum hat sich das eine gelöst, kommt ein anderes Problem auf.

Ich habe Hotkeys definiert, mit dem keydown ereignis.
Die Tasten F1, F3 und F4 funktionieren nachwievor ohne Probleme, doch F2 streikt und tut gar nichts, dabei hat es vorher funktioniert...

Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then playaClick(Sender);
  if key=VK_F2 then breakaClick(Sender);
  if key=VK_F3 then stopaClick(Sender);
  if key=VK_F4 then fadeaClick(Sender);
end;
Ich versteh's nicht, da die anderen nach wie vor funktionieren.

Ach so:
Delphi-Quellcode:
procedure TForm1.breakaClick(Sender: TObject);
begin
  if playera.filename<>'then begin
    playera.Pause;
    timera.Enabled:=false;
  end;
end;
Liebe Grüße und vielen Dank im Voraus:
Kranich
Kai Lamers