컴포넌트 하나를 폼에 놓고 앞의 좌표와 뒤의 좌표를 구하는 겁니다. 그러니까
요기 앞에 좌표하궁→요기에 컴포넌트가 있다구 가정←요기 뒤에 좌료를 구해야 해영
앞에 자표는 구했꺼든영 요렇게
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
iI := bevel1.Left;
iJ := bevel1.Top;
iL := form1.Left-Bevel1.Left;
iT := form1.Top-bevel1.Top;
showmessage('시작' + inttostr(iI) + inttostr(ij) +
'끝' + inttostr(iL) + inttostr(iT));
end;
end.
뒤에것둥 했는뎅 잘못된 값이 나오거든여 고수님들에 지도를 부탁드립니다.!~~~~
코딩이 잘못된거 같은데 어떻게 구해야 할지 감이 않잡혀여
재발여!~~~
시작위치(Bevel1.Top, Bevel1.Left)에서 그 컨트롤의 크기를 더해주면 되죠...
iL := Bevel1.Left + Bebel1.Width;
iT := Bevel1.Top + Bebel1.Height;
^^ 항상 즐코하세요.
왕초보 wrote:
> 컴포넌트 하나를 폼에 놓고 앞의 좌표와 뒤의 좌표를 구하는 겁니다. 그러니까
> 요기 앞에 좌표하궁→요기에 컴포넌트가 있다구 가정←요기 뒤에 좌료를 구해야 해영
>
> 앞에 자표는 구했꺼든영 요렇게
>
> procedure TForm1.BitBtn1Click(Sender: TObject);
> begin
> iI := bevel1.Left;
> iJ := bevel1.Top;
> iL := form1.Left-Bevel1.Left;
> iT := form1.Top-bevel1.Top;
> showmessage('시작' + inttostr(iI) + inttostr(ij) +
> '끝' + inttostr(iL) + inttostr(iT));
> end;
> end.
>
> 뒤에것둥 했는뎅 잘못된 값이 나오거든여 고수님들에 지도를 부탁드립니다.!~~~~
> 코딩이 잘못된거 같은데 어떻게 구해야 할지 감이 않잡혀여
> 재발여!~~~
>