Unbedingt noch case of verwenden, z.B. anstatt
Delphi-Quellcode:
if image1.top=120 then
Label1.caption:=inttostr(4);
if image1.top=0 then
Label1.caption:=inttostr(5);
if image1.top=240 then
nimmst du:
Delphi-Quellcode:
case Image1.Top of
120: Label1.Caption := '4';
0: Label1.Caption := '5';
240: Label1.Caption := '?';
end;
Wie du siehst, brauchst du auch kein IntToStr, wenn du die Zahl direkt in Apostrophe packst.
Noch was: Verwende für jeden Button die selbe Klick-Prozedur. Schreibe in den Tag des Buttons (per Objektinspektor) die Zahl Z und greife dann auf (Sender as TButton).Tag darauf zu.