To get the right I would imagine: Right := image.left + image.width and to get bottom would be Bottom := Image.top + image.height. Hope this helps
Something like:
Code:
procedure TForm1.BitBtn1Click(Sender: TObject);
var Right, Bottom : integer;
ResultRight, ResultBottom : string;
begin
Right := image1.Left + image1.Width;
Bottom := image1.Top + image1.Height;
ResultRight := IntToStr(Right);
ResultBottom := IntToStr(Bottom);
LabelRight.Caption := ResultRight;
LabelLeft.Caption := ResultBottom;
end;
Bookmarks