Einzelnen Beitrag anzeigen

Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#6

Re: Undefinierter Bezeichner: 'Sender'

  Alt 26. Jun 2005, 15:04
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
  Mit Zitat antworten Zitat