Q&A
- 동적생성된 StaticText의 Caption을 일괄바꾸기하려면?? 제발요..
Shape와 StaticText를 여러개 원하는만큼 만들었거든요?
만들면서 StaticText의 Caption은 만든 순서대로 넘버링 시켰어요.
여기서 Shape 하나를 distroy 시켰을 경우에 destroy된 이후의
StaticText의 Caption을 1씩 빼주려고 하는데 안되는군요.
(Shape와 StaticText는 항상 쌍으로 생성되고 삭제됩니다.)
아래 소스는 aTag를 인수로 받아서 그와 같은 Tag를 가진 Shape와 StaticText를 삭제한후 StaticText의 Caption을 1씩 빼주는 Procedure입니다.
Procedure TfrmAuto.OneShapeSText_Delete(aTag: Integer);
var
i: Integer;
begin
//=============================================================// 선택된 Shape와 StaticText를 삭제
//=============================================================
// Shape의 삭제와 Tag재정립
for i := ComponentCount - 1 downto 0 do
if Components[i] is TShape then
begin
if Components[i].Tag = aTag then
Components[i].Destroy;
if Components[i].Tag > aTag then
Components[i].Tag := Components[i].Tag - 1;
end;
// StaticText의 삭제와 Tag재정립
for i := ComponentCount - 1 downto 0 do
if Components[i] is TStaticText then
begin
if Components[i].Tag = aTag then
Components[i].Destroy;
if Components[i].Tag > aTag then
Components[i].Tag := Components[i].Tag - 1;
end;
end;
이렇게 하면 Shape와 Static의 Tag가 aTag인 것을 삭제한후 Tag도 정리가 싹 다 되거든요?
근데 StaticText의 Caption을 어떻게 바꿔주어야할지... ㅜㅜ
Components[i].Caption이란것도 없고
TStaticText(Sender).Caption을 건드리면 될듯한데 Sender를 어떻게 바꿀수 없나요??
만들면서 StaticText의 Caption은 만든 순서대로 넘버링 시켰어요.
여기서 Shape 하나를 distroy 시켰을 경우에 destroy된 이후의
StaticText의 Caption을 1씩 빼주려고 하는데 안되는군요.
(Shape와 StaticText는 항상 쌍으로 생성되고 삭제됩니다.)
아래 소스는 aTag를 인수로 받아서 그와 같은 Tag를 가진 Shape와 StaticText를 삭제한후 StaticText의 Caption을 1씩 빼주는 Procedure입니다.
Procedure TfrmAuto.OneShapeSText_Delete(aTag: Integer);
var
i: Integer;
begin
//=============================================================// 선택된 Shape와 StaticText를 삭제
//=============================================================
// Shape의 삭제와 Tag재정립
for i := ComponentCount - 1 downto 0 do
if Components[i] is TShape then
begin
if Components[i].Tag = aTag then
Components[i].Destroy;
if Components[i].Tag > aTag then
Components[i].Tag := Components[i].Tag - 1;
end;
// StaticText의 삭제와 Tag재정립
for i := ComponentCount - 1 downto 0 do
if Components[i] is TStaticText then
begin
if Components[i].Tag = aTag then
Components[i].Destroy;
if Components[i].Tag > aTag then
Components[i].Tag := Components[i].Tag - 1;
end;
end;
이렇게 하면 Shape와 Static의 Tag가 aTag인 것을 삭제한후 Tag도 정리가 싹 다 되거든요?
근데 StaticText의 Caption을 어떻게 바꿔주어야할지... ㅜㅜ
Components[i].Caption이란것도 없고
TStaticText(Sender).Caption을 건드리면 될듯한데 Sender를 어떻게 바꿀수 없나요??
2
COMMENTS
-
-
감사.. 감사 합니다
에공 이런것도 몰랐넹
제가 VB는 제법하는데 델파이는 첨이라서용 ^^
차차 알아가니깐 델파이의 장점이 참 많네요. 맘에 들어 ㅋㅋ
다시한번 감사드립니다 (__)
(NOTICE) You must be logged in to comment on this post.
-
- 초보
- •
- 2001.10.31 07:10
- 3 COMMENTS
- /
- 0 LIKES
-
초보•2001.10.31 20:271. 이미지에 10 pixel 단위로 점을 찍습니다. (이미지 전체) 2. 사각형을 그립니다. Brush.Style = b...
-
최용일•2001.10.31 21:45뭘하실려는지는 잘 모르겠지만... 3번에서 그냥 브러쉬의 스타일을 bsSolid로해서 사각형 그리고 점만 ...
-
tester•2001.10.31 11:49뭔 소린지 이해를 할 수가 없네요... 좀더 자세히 써봐요... 아님 그림을 그려서 올리시던가... 쩝~~~ ...
-
- 김명일
- 2001.10.31 06:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 막 시작^^*
- •
- 2001.10.31 06:34
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2001.10.31 10:03실수형을 문자열로 표현하고 싶다는 뜻인가요? Edit1.Text := FloatToStr(10.3 * 3.75) 이런 형태면...
-
초보자•2001.11.01 06:05답변 감사합니다. ^^* 그러나 잘 이해가 가질 않네요 ^^* 시작하지 한 달도 않되거든요...
-
- 초보
- •
- 2001.10.31 04:20
- 1 COMMENTS
- /
- 0 LIKES
-
지나는 이•2001.10.31 11:20초보 wrote: > 델파이 3.0인데요 > with storedproc.Params do > begin > ...
-
- 좋은친구
- 2001.10.31 04:11
- 0 COMMENTS
- /
- 0 LIKES
-
-
사발우성™•2001.10.31 18:07hi~ inner join으로 하면 되겠군엽 ^^ select distinct 가.b,가.c,나.d from 가 inner join 나 on 가....
-
-
- 초보
- •
- 2001.10.31 03:36
- 3 COMMENTS
- /
- 0 LIKES
-
구창민•2001.10.31 03:45무언가 다른 작업을 하시는 듯 하군요. 빈폼을 만들고 다음과 같이 테스트 해보세요 Arc(Canvas.hand...
-
초보•2001.10.31 04:21폼에서 버튼을 만들고 하면 즉시 그려지는 것은 압니다. 그런데 image를 한개 폼위에 놓고 먼저 다른 버튼...
-
구창민•2001.10.31 10:22어떻게 작업을 하고 계신지 잘모르겠는데..^_^; 호를 그린후에 Image.Invalidate 해보세요. 그럼~ ...
-
- 김선태
- •
- 2001.10.31 03:04
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2001.10.31 03:35김선태 wrote: > 스플리터를 사용하려합니다. 프로그램 종료후 스플리터 윈도우의 설정을 이니셜 파일등에...
-
- 전영재
- •
- 2001.10.31 03:03
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2001.10.31 03:40님이 찾아내신 게 맞습니다. 다 찾으셔놓구..^_^; 환경변수를 읽어올땐, GetEnvironmentVariable...
-
전영재•2001.11.01 04:53저도 님께서 알려주신것처럼 사용을 해보았지만 않되더군요... 작성한 프로그램내에서는 얼마든지 적용이 ...
-
-
우히히•2001.11.02 08:26jung wrote: > 제컴터에서 프로그램을 짜서 돌릴때 > new 연산자를 사용하면 년도가 2001 이라고 나오는...
-
무심코•2001.10.31 03:39jung wrote: > 제컴터에서 프로그램을 짜서 돌릴때 > new 연산자를 사용하면 년도가 2001 이라고 나오는...
-
-
- 초보임당
- •
- 2001.10.31 02:37
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.10.31 02:49OnChange with Edit1 do begin if Length(Text) = MaxLength then begin ... end; end;
-
- 꾸룽껭
- 2001.10.31 02:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 처음
- •
- 2001.10.31 03:37
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2001.10.31 10:55처음 wrote: > // Ctrl+Alt+Del 키를 사용못하게... > SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@...
-
- hawkeye
- 2001.10.31 01:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 조언자
- 2001.10.31 01:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 이지인
- •
- 2001.10.31 01:17
- 2 COMMENTS
- /
- 0 LIKES
Shape와 StaticText를 여러개 원하는만큼 만들었거든요? 만들면서 StaticText의 Caption은 만든 순서대로 넘버링 시켰어요. 여기서 Shape 하나를 distroy 시켰을 경우에 destroy된 이후의 StaticText의 Caption을 1씩 빼주려고 하는데 안...-
최용일•2001.10.31 01:26안녕하세요. 최용일입니다. 형변환하세요... ............. // StaticText의 삭제와 Tag재정립 ...
-
이지인•2001.10.31 02:24감사.. 감사 합니다 에공 이런것도 몰랐넹 제가 VB는 제법하는데 델파이는 첨이라서용 ^^ 차차 알아가...
-
- 헬프미
- •
- 2001.10.31 01:01
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.31 06:02헬프미 wrote: > treeview의 structure는 > > 大 > |_中1 > | |_小1 > | > |_中2 > | |_...
-
헬프미•2001.10.31 23:02홍성락 wrote: > 헬프미 wrote: > > treeview의 structure는 > > > > 大 > > |_中1 > > | |_小1...
-
- hawkeye
- 2001.10.31 00:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 박재헌
- 2001.10.31 00:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 송시중
- 2001.10.31 00:11
- 0 COMMENTS
- /
- 0 LIKES
형변환하세요...
.............
// StaticText의 삭제와 Tag재정립
for i := ComponentCount - 1 downto 0 do
if Components[i] is TStaticText then
begin
if Components[i].Tag = aTag then
Components[i].Destroy;
if Components[i].Tag > aTag then
begin
TStaticText(Components[i]).Caption := IntToStr( StrToInt(TStaticText(Components[i]).Caption) - 1);
Components[i].Tag := Components[i].Tag - 1;
end;
^^ 항상 즐코하세요...
이지인 wrote:
> Shape와 StaticText를 여러개 원하는만큼 만들었거든요?
> 만들면서 StaticText의 Caption은 만든 순서대로 넘버링 시켰어요.
> 여기서 Shape 하나를 distroy 시켰을 경우에 destroy된 이후의
> StaticText의 Caption을 1씩 빼주려고 하는데 안되는군요.
> (Shape와 StaticText는 항상 쌍으로 생성되고 삭제됩니다.)
>
> 아래 소스는 aTag를 인수로 받아서 그와 같은 Tag를 가진 Shape와 StaticText를 삭제한후 StaticText의 Caption을 1씩 빼주는 Procedure입니다.
>
> Procedure TfrmAuto.OneShapeSText_Delete(aTag: Integer);
> var
> i: Integer;
> begin
> //=============================================================// 선택된 Shape와 StaticText를 삭제
> //=============================================================
>
> // Shape의 삭제와 Tag재정립
> for i := ComponentCount - 1 downto 0 do
> if Components[i] is TShape then
> begin
> if Components[i].Tag = aTag then
> Components[i].Destroy;
> if Components[i].Tag > aTag then
> Components[i].Tag := Components[i].Tag - 1;
> end;
>
> // StaticText의 삭제와 Tag재정립
> for i := ComponentCount - 1 downto 0 do
> if Components[i] is TStaticText then
> begin
> if Components[i].Tag = aTag then
> Components[i].Destroy;
> if Components[i].Tag > aTag then
> Components[i].Tag := Components[i].Tag - 1;
> end;
> end;
>
> 이렇게 하면 Shape와 Static의 Tag가 aTag인 것을 삭제한후 Tag도 정리가 싹 다 되거든요?
> 근데 StaticText의 Caption을 어떻게 바꿔주어야할지... ㅜㅜ
>
> Components[i].Caption이란것도 없고
> TStaticText(Sender).Caption을 건드리면 될듯한데 Sender를 어떻게 바꿀수 없나요??
>
>