Q&A
- 이해가 되질 않습니다. 도와 주세요
implementation
uses centform;
{$R *.DFM}
procedure TForm1.show1Click(Sender: TObject);
var
r : Trect;
begin
r := application.mainform.BoundsRect;
with form2 do
{form2의 크기와 위치를 계산한 후에 출력한다.}
begin
top := (((r.bottom - r.top) + height) div 2 );
left := (((r.right - r.Left) - width) div 2) + r.left;
show;
end;
end;
크기계산이 이해가 될것같으면서도 잘 되질않습니다.
고수님들 이해할수 있게 설명해주시면 감사하겠습니다.
수고하세요..
uses centform;
{$R *.DFM}
procedure TForm1.show1Click(Sender: TObject);
var
r : Trect;
begin
r := application.mainform.BoundsRect;
with form2 do
{form2의 크기와 위치를 계산한 후에 출력한다.}
begin
top := (((r.bottom - r.top) + height) div 2 );
left := (((r.right - r.Left) - width) div 2) + r.left;
show;
end;
end;
크기계산이 이해가 될것같으면서도 잘 되질않습니다.
고수님들 이해할수 있게 설명해주시면 감사하겠습니다.
수고하세요..
3
COMMENTS
-
-
안녕하세여.. 타락임다..^^
함 바꿔 봤습니다..
procedure TForm1.show1Click(Sender: TObject);
begin
with Application.MainForm do
begin
Form2.Position := poScreenCenter;
Form2.Show;
end;
end;
즐푸하세여..^^
타락천사...
-
타락한 천사님....
천사님이 하신거는여... 항상 화면 중앙이자나여...
근데 첨에.. 질문 올리신님의 소스는.. 중앙이 아니에여...
mainform의 좌우중앙에... form2가 뜨구여...
상하는... (mainform의 높이 * from2의 높이) / 2 에요..
절대 중앙아님...
타락천사 wrote:
> 안녕하세여.. 타락임다..^^
>
> 함 바꿔 봤습니다..
>
> procedure TForm1.show1Click(Sender: TObject);
> begin
> with Application.MainForm do
> begin
> Form2.Position := poScreenCenter;
> Form2.Show;
> end;
> end;
>
> 즐푸하세여..^^
>
> 타락천사...
>
(NOTICE) You must be logged in to comment on this post.
-
- 박일용
- 2000.12.07 03:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 응가보이
- •
- 2000.12.07 03:12
- 1 COMMENTS
- /
- 0 LIKES
-
껄떡쇠•2000.12.07 17:34권경미님께서 올리신내용인데 간단하면서도 정확해요. 저도 그런식으로 쓰는뎁...
-
- mi1022
- 2000.12.07 02:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 정규식
- •
- 2000.12.07 02:46
- 1 COMMENTS
- /
- 0 LIKES
-
TriCLove•2000.12.13 19:51ActiveX로 만든 것을 컴퓨터에 등록시키면 컴퓨터는 그것의 class id로 관리를 합니다. 아래처럼 단순히 ...
-
- 우희정
- 2000.12.07 02:27
- 0 COMMENTS
- /
- 0 LIKES
-
-
권민호•2000.12.07 04:34초보중 초보 wrote: > 가상키 중 "ESC"키를 사용 하려고 하는데 도움을...... > > PageControl1.Active...
-
방경주•2000.12.07 02:44KeyUp 이벤트에서... case Key of Vk_Escape : PageControl1.ActivePageIndex := 0; end; 이렇...
-
-
- 성병규
- •
- 2000.12.07 02:19
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.12.07 03:19Indy ServerSocket의 Execute 이벤트로 들어 올때 이미 메인 쓰레드가 아닌 다른 쓰레드 상태로 실행됩니다...
-
- 정성기
- •
- 2000.12.07 02:12
- 3 COMMENTS
- /
- 0 LIKES
-
배인철•2000.12.07 02:58정성기 wrote: > Table - Source - Grid 로 연결된 상태에서 > 테이블에 insert를 하게되면, Grid상에는...
-
정성기•2000.12.07 03:43답변글 잘 받았습니다. 그런데, 제가 원하는 것은 마지막 레코드위치에 빈 레코드가 생기는 것이 아니고...
-
성더기•2000.12.07 19:52음 일단... 디비에서 데이터의 위치는 별루 중요하지 않습니다 왜나하믄 프라이머리 키라는 것이 없다면 ...
-
- sedari
- •
- 2000.12.07 02:08
- 1 COMMENTS
- /
- 0 LIKES
-
최은석•2000.12.07 02:28gauge 컴포넌트의 maxvalue 를 table 레코드갯수로 준다음 레코드가 하나씩 옮겨갈때마다..... gauge 의 ...
-
- 오정훈
- 2000.12.07 01:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 기타맨
- •
- 2000.12.07 01:37
- 3 COMMENTS
- /
- 0 LIKES
-
뿌요•2001.01.02 20:24혹, ColumnHeader Band가 2개있는 건 아닌지요.. Band를 잘 살펴보세요.. 기타맨 wrote: > QRBa...
-
최영근•2000.12.07 02:03안녕하세요 ? 디테일 밴드에 놓여진 데이터들이 오직 한 레코드만 출력되는 경우는 데이터 셋이 제대...
-
최은석•2000.12.07 01:49이상도하여라......저는 잘나오던데..... 왜 안되지요? 미리보기에서는 칼럼헤더가 안보이는경우가 종종...
-
- 김규억
- •
- 2000.12.07 01:36
- 1 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.07 18:09join한 테이블을 직접 변경할수는 없습니다... 변경해야만 한다면... stringgrid 같은것을 이용해서.. 해...
-
- 강호은
- 2000.12.07 01:32
- 0 COMMENTS
- /
- 0 LIKES
-
- yanginmo
- 2000.12.07 01:25
- 0 COMMENTS
- /
- 0 LIKES
-
- chobo//
- •
- 2000.12.07 01:20
- 1 COMMENTS
- /
- 0 LIKES
-
뻐록이•2000.12.07 02:47chobo// wrote: > 시간을 누적해서 계산필드에 넣는건데요.. > 레코드카운트수만큼 계산하는겁니다.. > ...
-
- 초보델파이
- •
- 2000.12.07 01:04
- 3 COMMENTS
- /
- 0 LIKES
-
최은석•2000.12.07 01:46스트링을 연결하는 함수는 strcat EDit.Text := 현재 'aaa' 라고 할때 aaa뒤에 bbb라는 String을 연결하고...
-
heimdal•2000.12.07 01:13> 결론적으로 String 대 String 연결하는 API는 ? > Edit1.Text := Edit1.Text+ComboBox1.items([ComboBox...
-
로비•2000.12.07 01:11procedure TForm1.ComboBox1Change(Sender: TObject); var s : string; begin s := edit1.text; ...
-
- 홍혁표
- •
- 2000.12.07 01:02
- 3 COMMENTS
- /
- 0 LIKES
implementation uses centform; {$R *.DFM} procedure TForm1.show1Click(Sender: TObject); var r : Trect; begin r := application.mainform.BoundsRect; with form2 do {form2의 크기와 위치를 계산한 후에 출력한다.} begin top := ((...-
김종언•2000.12.07 04:12별로 좋은 프로그램은 아니네요.... 주석 달아 놓고.. 아래쪽에.. 다시 만들어놨어요.. 끝까지 보믄 이해...
-
타락천사•2000.12.07 05:49안녕하세여.. 타락임다..^^ 함 바꿔 봤습니다.. procedure TForm1.show1Click(Sender: TObject); be...
-
김종언•2000.12.07 18:08타락한 천사님.... 천사님이 하신거는여... 항상 화면 중앙이자나여... 근데 첨에.. 질문 올리신님의 소...
-
- 이승엽
- 2000.12.07 00:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 문제
- •
- 2000.12.07 00:57
- 3 COMMENTS
- /
- 0 LIKES
-
허준•2000.12.07 01:18반갑소 허준이오. datamodul1에 있는 Query1의 name을 바꿀수는 없고 동적으로 생성시키면 될것같소.... ...
-
문제•2000.12.07 01:34허준 wrote: > 반갑소 허준이오. > datamodul1에 있는 Query1의 name을 바꿀수는 없고 > 동적으로 생성...
-
최은석•2000.12.07 01:50여기 조회해보면 방법나와있어요.... 찾아보세요......... 문제 wrote: > 허준 wrote: > > 반갑소 허...
-
- 금강산
- •
- 2000.12.07 00:54
- 1 COMMENTS
- /
- 0 LIKES
-
heimdal•2000.12.07 01:15금강산 wrote: > > DB콤보박스의 item을 디비의 한 필드항목들을 불러오고 싶은데.. 어케해야 하는지요....
주석 달아 놓고..
아래쪽에.. 다시 만들어놨어요.. 끝까지 보믄 이해가 갈것이요.
이것은.. 띄울폼(form2)의 위치를 정하는 거여요...
상하는 고정... 좌우는 form1의 중앙에 위치하게 되지요...
implementation
uses centform;
{$R *.DFM}
procedure TForm1.show1Click(Sender: TObject);
var
r : Trect;
//=========== r 이 머신지는 알겄죠? rect 즉.. 사각형입니다요...
begin
r := application.mainform.BoundsRect;
//=========== 이거시 머시냐.. 현재 폼의 범위를 r에다 쑤셔박았습니다요...
//=========== 여그서부터는 폼2에다 하는 짓거리여요...
with form2 do
begin
top := (((r.bottom - r.top) + height) div 2 );
//=========== 폼2가 보여지는 위치가 어디냐...
//=========== r.bottom 은 아까 메인폼의 미테쪽이어여
//=========== r.top은 머시냐.. 당근 메인폼의 우에쪽이것지요...
//=========== 아래에서 위를 빼면 머시냐.......... 그것은 노피지요....
//=========== 즉.... 메인폼의 Height 이어요...
//=========== 거기다가 다시 Height를 더했어요... 여기서는 form2의 높이지요..
//=========== 그럼 현재까지의 값은.. 현재폼하고 보여줄폼의 높이를 더했지요..
//=========== 그것을 다시 2로 나눴어요.. 여그까지 알것쮸?
//=========== 요건 항상 높이가 일쩡하쥬...
//=========== 머땀이 이지랄을 했당가요?
//=========== 그냥 가볍게.. 할것이지.. 짱나게...
//=========== 넘들이 보믄 무쟈게 복잡한것 처럼 보이네요.
//=========== 그럼 아래껏을 보씨요.
//=========== 그냥 메인폼의....중앙에 폼이 위치하게 하는거여요...(좌우...)
left := (((r.right - r.Left) - width) div 2) + r.left;
show;
end;
end;
//=========== 아래 꺼슨.. 우에 꺼슬... 내맘대로 바꼬분거여요...
//=========== 이것도 똑같은 거싱께... 한번 해보셔요..
//=========== 우에꺼시 변수를 사용한거고.. 난 변수 사용안한거고..
//=========== 쓰잘떼기 없는 연산이 하나 줄었어요...
//=========== 쓸데없이 변수만들어 쓴고 쓸데없는 연산 하는
//=========== 우에꺼 보담은.. 훨씬 나슬꺼시요...
//=========== 자 이제 복창 하서유... 쓸모없는 연산을 없애자....
//=========== 없애자... 없애자...
procedure TForm1.show1Click(Sender: TObject);
begin
with application.mainform do
begin
form2.top := (((height) + form2.height) div 2 );
form2.left := (((Width) - form2.width) div 2) + BoundsRect.left;
end;
form2.show;
end;
//=========== 아고 타이삥 뜯기 힘드요.. 그믄 열씨미 공부하씨요...