Undefinierter Bezeichner: 'Sender'

[JasonDX]

Zitat von Nils_13:

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

Das klappt ganz sicher nicht.
Na ja, es geht vielleicht zu kompilieren, aber das Programm funktioniert dann nicht mehr.
1. Sollte die Down-Methode ein Ereignis sein. Das kann man jetzt bestimmt nicht mehr zuweisen, da die Parameter nicht mehr stimmen.
2. Die Parameter sind nicht nur Spaß-Variablen, die man sich auch selbst generieren kann, sondern da steht auch was drinnen . So erhält man die Warnung 'Button könnte nicht Initialisiert sein' oder ähnlich. Klar, ist es auch nicht, und somit gibt die Abfrage "if Button = mbLeft" bloß noch Mist -> Logischer Programmfehler.
Es geht also nicht nur, Syntaktische Fehler zu beseitigen, sondern auch die Funktionalität des Programms nicht einzuschränken

[edit=alcaeus]Wortwahl auf Wunsch angepasst, da die 24-Stunden-Grenze ueberschritten war. Mfg, alcaeus[/edit]