Procedure verwenden!!!

Pepp3r · Beiträge: 82

hi,
also habe folgende Prozedur geschrieben:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.freihand(Sender: TObject; Shift: TShiftState; x,y:integer);
begin
if shift=[ssleft] then
canvas.lineto(x,y)
else
canvas.moveto(x,y)
end

und möchte diesen in procedure "TForm1.FormMouseMove" verwenden.
Habe folgendes versucht, aber es klapt nicht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
freihand
end;

Ich bin mir sicher, dass mir hier jmd helfen kann

Gruß
Pepp3r

Moderiert von Gausi: Code- durch Delphi-Tags ersetzt

Andreas L. · Verfasst: Di 28.11.06 13:28

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

...
type
  TForm1 = class(TForm)
    Button1: TButton;
    ...
    procedure freihand(Shift: TShiftState; x,y:integer);  //Prozedur deklarieren
    ...
  private
...
...
...
...
procedure TForm1.freihand(Shift: TShiftState; x,y:integer); //Sender: TObject brauchste nicht ;-)
begin
if shift=[ssleft] then
  canvas.lineto(x,y)
else
  canvas.moveto(x,y)
end; //du hattest ein semikolon vergessen
...
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  freihand(Shift, X, Y); //Parameter übergeben
end;

Ich empfehle dir dringend nochmal die Grundlagen zu lesen und zu verstehen!

EDIT: Wieso nicht gleich so?:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if shift=[ssleft] then
  canvas.lineto(x,y)
else
  canvas.moveto(x,y)
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme