Button abfrage

[Alf]

Hi

danke für die Schnellen Antworten, aber komischerweise funct nichts davon

hiehr mein Code;

Delphi-Quellcode:

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

var
    len:dword;
    zt: longint;
begin
      btime:=btime-100;
       .......
      .......
end;

muss trotzdem immer wieder neu klicken!!

Gruss Alf