Forum: Object-Pascal / Delphi-Language
Delphi
by Tonic1024,
29. Okt 2004
Hi
Natürlich hat ein Shape kein onClick :wall: - bin wohl wieder nur hald da gewesen...
aber ist das gleiche, musst nur, wie jim schon sagte, onMouseDown nehmen...
TForm1 = class(TForm)
procedure ShapeClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Forum: Object-Pascal / Delphi-Language
Delphi
by Tonic1024,
28. Okt 2004
Hi...
Da wo du deinen Shapes die breite und die Höhe und so zuweist, kannst du auch eine Prozedur zuweisen, die z.B. bei onClick ausgeführt wird.
Shape2.OnClick:=ShapeClick;
Deine Prozedur kannst du dann ganz normal deklarieren.
TForm1 = class(TForm)