Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: Spieleprogrammierung Hilfe benötigt
21. Mär 2015, 14:23
Eine Variable mehr könnte aber auch nicht schaden.
Delphi-Quellcode:
Procedure TForm1.ButtonAllClick(Sender:TObject);
var
X,Y : Integer;
Btn: TButton;
begin
Btn := TButton(Sender); //ein Cast genügt
X := Btn.Left;
Y := Btn.Top;
(* usw. *)
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|