|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Image Position überprüfen
10. Mär 2012, 22:05
Delphi-Quellcode:
var
r: Trect;
begin
if intersectRect(r, Image1.BoundsRect, Image2.BoundsRect) then
begin
Caption := Format('L: %d, T: %d, R: %d B: %d', [r.Left, r.Top, r.Right,
r.Bottom]);
end;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|
|
|
Zitat
|