Ich kenne dein Programm nicht, also weiß ich nicht obs läuft. Probiers mal so.
Delphi-Quellcode:
procedure TForm1.down;
var
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer;
begin
if Button = mbLeft then
begin
sendText(befehle[1].befehl);
image1.Picture:=img_btn_gedrueckt.Picture;
Label1.Top:=Label1.Top+2;
Label1.Left:=Label1.Left-1;
end;
end;
procedure TForm1.key;
var Msg: TWMHotKey
begin
if Msg.HotKey = id1 then
down;
.
.
.
end;
{procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Down;
end;} //unnötig