Ich habe eine Prozedur
Delphi-Quellcode:
procedure Tfrm_main.Image1MouseDown(Sender: TObject; 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;
und diese möchte ich nun über eine andere Prozedur aufrufen:
Delphi-Quellcode:
procedure Tfrm_main.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = id1 then
Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
.
.
.
Leider bekomme ich nur Fehlermeldungen:
Delphi-Quellcode:
[Fehler] Unit_main.pas(323): Undefinierter Bezeichner: '
Sender'
[Fehler] Unit_main.pas(323): Anweisung erforderlich, aber Ausdruck vom Typ '
Class reference' gefunden
[Fehler] Unit_main.pas(323): '
(' erwartet, aber '
;' gefunden
[Fehler] Unit_main.pas(323): '
(' erwartet, aber '
;' gefunden
[Fehler] Unit_main.pas(324): '
;' erwartet, aber '
IF' gefunden
[Fehler] Unit_main.pas(362): '
.' erwartet, aber '
;' gefunden
[Fataler Fehler] Befehlstool.dpr(9): Verwendete
Unit '
Unit_main.pas' kann nicht compiliert werden
Da scheint wohl was an der parametern nicht zu stimmen.
Weiss hier vielleicht wer Rat ?