Forum: Object-Pascal / Delphi-Language
Delphi
by Vampyr09,
19. Mai 2008
Ich glaub ich bin fündig geworden.
Nachdem ich auch vor dem ClientWidth und ClientHeight das "Form1." weggenommen habe, trat ein Fehler mehr auf.
Also:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var l, r:integer;
Forum: Object-Pascal / Delphi-Language
Delphi
by Vampyr09,
19. Mai 2008
Also, den Fehler bekomme ich, wenn ich auf die Form klicke.
Fakt ist, nachdem ich das "Form1." vor dem "Canvas.Brush.Color := ..." weggelöscht habe, ist mir kein Fehler aufgetreten.
Allerdings immernoch, wenn ich den gesamten Quelltext benutze.
Das kann allerdings nicht sein, denn ich überschreibe keine Grenze (ich habe mir ja extra 2 Edits angelegt, auf denen die Werte für r und l...
Forum: Object-Pascal / Delphi-Language
Delphi
by Vampyr09,
19. Mai 2008
Genau das hatte ich mir auch gedacht.
Allerdings bekomme ich denselben Fehler, wenn ich alles rausstreiche außer "Form1.Canvas.Brush.Color := clred;"
Also quasi:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin