Q&A
- MDI Child에서 대하여...
폼 없는 Common 유닛을 하나 만들고 거기어 다음과 같이 프로시져를 하나 만들었습니다.
procedure ClearForm(Sender:TForm);
var
nI : Integer;
begin
with TForm(Sender) do
begin
for nI := 0 to ComponentCount -1 do
begin
if (Components[nI] is TEdit) then
(Components[nI] as TEdit).Text := '';
if (Components[nI] is TCheckBox) then
(Components[nI] as TCheckBox).Checked := False;
if (Components[nI] is TComboBox) then
(Components[nI] as TComboBox).itemindex := -1;
if (Components[nI] is TMaskEdit) then
(Components[nI] as TMaskEdit).text := '';
end;
end;
end;
그리고 MDI-Parent에서 MDI-Child 폼하나를 Create하는데
문제는 MDI-Child 폼 OnShow Events에서 위의 프로시져 ClearForm(MDI-Child Name)를
호출했더니 에러가 발생하네요...
왜 그런지 좀 답변을 바랍니다...
procedure ClearForm(Sender:TForm);
var
nI : Integer;
begin
with TForm(Sender) do
begin
for nI := 0 to ComponentCount -1 do
begin
if (Components[nI] is TEdit) then
(Components[nI] as TEdit).Text := '';
if (Components[nI] is TCheckBox) then
(Components[nI] as TCheckBox).Checked := False;
if (Components[nI] is TComboBox) then
(Components[nI] as TComboBox).itemindex := -1;
if (Components[nI] is TMaskEdit) then
(Components[nI] as TMaskEdit).text := '';
end;
end;
end;
그리고 MDI-Parent에서 MDI-Child 폼하나를 Create하는데
문제는 MDI-Child 폼 OnShow Events에서 위의 프로시져 ClearForm(MDI-Child Name)를
호출했더니 에러가 발생하네요...
왜 그런지 좀 답변을 바랍니다...
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 최재성
- 2000.08.28 20:16
- 0 COMMENTS
- /
- 0 LIKES
-
- azure
- •
- 2000.08.28 19:42
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.08.28 19:53안녕하세요.. 델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다.. 당연히 TComponent...
-
- 코스모
- •
- 2000.08.28 19:42
- 1 COMMENTS
- /
- 0 LIKES
-
권오정•2000.08.28 19:57코스모 wrote: > 일주일째 만지구 있네염... > 멀 ? 소스를... > 왜 ? 머리가 나빠서... > > 여러 고...
-
- 초보
- •
- 2000.08.28 19:36
- 2 COMMENTS
- /
- 0 LIKES
-
공성환•2000.08.28 20:21제경우는 TPriter로 해결하였습니다... 먼저 cad로 dfx 파일포맷으로 저장하여 필요한 좌표값을 획득하여 ...
-
이선구•2008.07.22 04:15음 퀵리포트에 QRImage를 사용했다면 다음과 같은 편법이 있습니다. 실제 백이미지를 넣는방법은 저도
-
- 왕따
- 2000.08.28 19:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 고유진
- •
- 2000.08.28 19:17
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2000.08.28 23:06답변이 아니고 참고 사항입니다. 우선 ODBC나 BDE설정을 제대로 하셨다고 하셨는데 프로그램에서 못 불러...
-
- 이창식
- 2000.08.28 19:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 사발우성
- •
- 2000.08.28 18:55
- 5 COMMENTS
- /
- 0 LIKES
-
plan0611•2000.08.28 20:37[답변] sql문은 이상한 곳이 없는 것 같은데, 혹시 a.검사수량의 합 또는 a.불량수량 의 합이 0인 ...
-
사발우성•2000.08.28 22:39답변 감솨함당...^^ 하지만 sum(a.불량수량)은 절대루 never 0 이아님당...^^ 1이상임다.... 헐 ...
-
이창식•2000.08.28 19:23저도 잘은 모르지만 group by 절 때문인 것 같군요. group by 절을 다시 작성 해보세요. 실력이 딸려 더 ...
-
사발우성•2000.08.28 20:21답변 감솨 함당...^^ 하지만 group by 절은 암이상 없다구여 ^^ group by절을 삭제하면 에러가 남당....
-
이창식•2000.08.28 20:52네~ ^^; 제 생각에는 group by 절에 앞에서 sum함수를 쓰신 부분 그대로를 추가 해주세요. as 절 이하는 ...
-
- SDS
- 2000.08.28 18:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 정용광
- 2000.08.28 18:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 신승욱
- 2000.08.28 19:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 권오정
- •
- 2000.08.28 18:38
- 2 COMMENTS
- /
- 0 LIKES
-
코스모•2000.08.28 19:18권오정 wrote: > var > lww_temp:real; > lww_temp2:real; > begin > > lww_t...
-
권오정•2000.08.28 19:25코스모 wrote: > 권오정 wrote: > > var > > lww_temp:real; > > lww_temp2:real; > > ...
-
- 박준하
- 2000.08.28 18:33
- 0 COMMENTS
- /
- 0 LIKES
-
- nia
- •
- 2000.08.28 09:58
- 2 COMMENTS
- /
- 0 LIKES
-
이진우•2000.08.28 11:49nia wrote: > > 다른 사이트로 링크를 걸려고 합니다. 이
-
철진•2001.09.26 20:42되도 않는구만 모르는 것이 아는척을 하구 있어??? 당신 테스트는 해본거야? 이진우 wrote: > nia wr...
-
- [델파이]
- 2000.08.28 09:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2000.08.28 08:40
- 0 COMMENTS
- /
- 0 LIKES
-
- Swan
- 2000.08.28 08:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 박일용
- •
- 2000.08.28 07:08
- 1 COMMENTS
- /
- 0 LIKES
폼 없는 Common 유닛을 하나 만들고 거기어 다음과 같이 프로시져를 하나 만들었습니다. procedure ClearForm(Sender:TForm); var nI : Integer; begin with TForm(Sender) do begin for nI := 0 to ComponentCount -1 do begin if (Compo...-
권오정•2000.08.28 20:12박일용 wrote: > 폼 없는 Common 유닛을 하나 만들고 거기어 다음과 같이 프로시져를 하나 만들었습니다. ...
-
- ray
- •
- 2000.08.28 05:14
- 1 COMMENTS
- /
- 0 LIKES
-
노을•2000.08.28 07:39안녕하세요 노 을 입니다. skin은 직접 그려 주어야 합니다. 조각조각 나누어서 만들어 줘도 되구요....
-
- 호야
- 2000.08.28 03:01
- 0 COMMENTS
- /
- 0 LIKES
> 폼 없는 Common 유닛을 하나 만들고 거기어 다음과 같이 프로시져를 하나 만들었습니다.
> procedure ClearForm(Sender:TForm);
> var
> nI : Integer;
> begin
> with TForm(Sender) do
> begin
> for nI := 0 to ComponentCount -1 do
> begin
> if (Components[nI] is TEdit) then
> (Components[nI] as TEdit).Text := '';
>
> if (Components[nI] is TCheckBox) then
> (Components[nI] as TCheckBox).Checked := False;
>
> if (Components[nI] is TComboBox) then
> (Components[nI] as TComboBox).itemindex := -1;
>
> if (Components[nI] is TMaskEdit) then
> (Components[nI] as TMaskEdit).text := '';
> end;
> end;
> end;
>
> 그리고 MDI-Parent에서 MDI-Child 폼하나를 Create하는데
> 문제는 MDI-Child 폼 OnShow Events에서 위의 프로시져 ClearForm(MDI-Child Name)를
> 호출했더니 에러가 발생하네요...
> 왜 그런지 좀 답변을 바랍니다...
>
저도 이와같은 방법을 사용하는데....
with TForm(Sender) do ====> with sender do 로 바꾸어 사용해보세요....