Nix da mit
Width!
Delphi-Quellcode:
Der Typ TRect definiert ein Rechteck.
Unit
Types
type
TRect =
packed record
case Integer
of
0: (Left, Top, Right, Bottom: Integer);
1: (TopLeft, BottomRight: TPoint);
end;
So ungefähr:
Image1.Right := Image1.left+Rechteckbreite;
Dasselbe bei
Image1.height!
Ach, jetzt sehe ich deinen eigentlichen Fehler: Du hast die Image-Komponente IMAGE1 und deinen Record IMAGE1 genannt ....so wird das natürlich nix.
Benenne mal deine beiden Records nach z.B. img1 und img2 um.....dann gehts und du kannst Image1.left+Image1.width dann auch so stehenlassen.
Alternativ geht auch das: (Fördert aber nicht die Übersichtlichkeit.)
Delphi-Quellcode:
.
.
.
image1 := Rect(Form1.Image1.left,Form1.Image1.Top,
Form1.Image1.left+Form1.Image1.Width,Form1.Image1.Top+Form1.Image1.Height);
.
.
.
MfG GM