Deutsches Lazarusforum

Danke für die schnelle Hilfe, aber jetzt kommt folgende Meldung :

unit1.pas(918,12) Error: identifier idents no member "MouseDown"

Vielen lieben Dank, ich glaube ich bin der Sache jetzt schon deutlich näher, aber jetzt habe ich folgendes Problem:
Das hier habe ich bei type , also der Definition oben im Quellcode:
procedure FormCreate(Sender: TObject);
procedure ShapeMouseDown(Sender: TObject; Button: TMouseButton;
Shift ...

Hi, ich bin wirkloich noch sehr unerfahren und habe folgenden Code, der auch funktioniert:
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Shape1.brush.color=clWhite then
if Spieler=true
then begin
Shape1.brush.color:=clgreen ...