<!--CodeS-->
procedure TMainForm.tmr1Timer(Sender: TObject);
begin
Label1.Caption := TimeToStr(Now);
MainForm.Perform(WM_SIZE, 0, 0);
end;
<!--CodeE-->

편법입니다만 음 이 방법이 있긴 하겠네요. 결국 클라이언트 영역을 다시 뿌리게 하는 게 핵심인데
이상하게 먹는게 별로 없네요. ㅡ_ㅡ;;

답변 감사합니다.
그런데 그것도 역시 안되네요.. ㅎㅎ

혹시 다른 방법은 .....

감사합니다..

참 이상하지요...

7.0 에서는 잘되는 데 이상하군요 ㅠ_ㅠ

감사합니다..
아무래도 6.0에선 안되는 듯하니
버젼을 올려서 해봐야 겠어요..
답변 정말로 감사합니다.
행복하세요

2007로 해보니 그냥은 안되고 알려주신 코드를 추가하니 되긴하네요.
다시 그려서 그런가 화면이 약간 깜빡 거리는 듯 하지만요.

감사합니다

Label1.Caption := TimeToStr(Now);
Label1.Update;

를 해보세요.

참.. 그리고, 폼 OnCreate 에서 DoubleBuffered := True; 를 주시면 깜빡임은 없앨 수 있습니다.

Label은 Graphic 컨트롤입니다.


무슨 말이냐면 자신을 나타낼 핸들이 없기때문에 Parent의 DC에 자신을 그려줍니다.
보통의 경우 Parent DC에 자신을 draw해주면 문제가 없는데

MDI폼인경우 자신이 있는 위치가 Parent.Handle 인 Form.Handle이 아니라

Form.ClientHandle 인것에서 문제가 발새합니다.

vcl 소스를 보면 Label.Caption을 수정할때 맨마지막에 InvalidateControl 함수가 호출됩니다.

<!--CodeS-->
procedure TControl.InvalidateControl(IsVisible, IsOpaque: Boolean); 함수에서

...

begin
if (IsVisible or (csDesigning in ComponentState) and
not (csNoDesignVisible in ControlStyle)) and (Parent <> nil) and
Parent.HandleAllocated then
begin
Rect := BoundsRect;
InvalidateRect(Parent.Handle, @Rect, not (IsOpaque or
(csOpaque in Parent.ControlStyle) or BackgroundClipped)); //Parent에서 자신이 있는 영역을 무효화 하는 메세지를 보냅니다.
end;
end;
<!--CodeE-->

저기 InvalidateRect 함수에 문제가 있는것이죠

InvalidateRect에서 Parent.Handle 이 아니라 Form.ClientHandle 로 해야하구 Rect도 mdi에 맞춰서 조정해줘야 하구요

결론적으로 다음과 같이하면 문제가 해결될것입니다.

<!--CodeS-->
procedure TForm1.Timer1Timer(Sender: TObject);
var
rc: TRect;
begin
Label1.Caption:=FormatDateTime('yyyy-mm-dd hh:nn:ss',Now); //Label1.Caption을 수정하고

rc:=Self.ClientRect;
InvalidateRect(self.ClientHandle, @rc, true); //InvalidateRect 를 Form의 ClientHandle을 넣어서 호출해줍니다.
end;
<!--CodeE-->

그런데 위함수에도 문제가 하나 있는데...
InvalidateRect 호출할때 Rect가 홈 Client전체 라는것입니다.
MDI의 경우 Label의 Rect(Lebel.left , Lebel.top ...) 으로 하니까 안되더군요

Label의 Left , Label.top은 Form의 ClientRect를 기준으로 하지만
MDI의 Client의 Rect가 Form의 ClientRect 와 같지가 않더군요

아래는 MDI폼의 왼쪽에 Panel이 Align=alLeft 로 놓여있는경우에 처리입니다.

<!--CodeS-->
procedure TForm1.Timer1Timer(Sender: TObject);
var
rc: TRect;
begin

Label1.Caption:=FormatDateTime('yyyy-mm-dd hh:nn:ss',Now);

rc:=Rect(0,Label1.Top, Self.Width,Label1.Top+ Label1.Height); //이 영역을 구하는 문제가 아직 남아있음...

InvalidateRect(self.ClientHandle, @rc, true);

end;

<!--CodeE-->

<!--CodeS-->
procedure TMainForm.tmr1Timer(Sender: TObject);
begin
Label1.Caption := TimeToStr(Now);
InvalidateRect(self.ClientHandle,nil,False);
end;
<!--CodeE-->

아 그러고 보니 이렇게 하면 일단 되겠네요. ㅎㅎ 장성호님 저도 이번에 하나 배웠네요.
감사합니다.

찾았습니다.

InvalidateRect(self.ClientHandle,nil,False); 이렇게 하면
MDI Client 전체를 다시 repaint 하게 됩니다.


그래서 Label 영역만 InvalidateRect 해주려면?
Label의 ClientRect를 InvalidateRect 함수로 전달해 줘야하는데...

문제는 Label의 Left , Top 의 기준이

Form의 Handle의 Client 영역 기준이지
MDI Handle인 Form.ClientHandle 기준이 아니라는것입니다.

Label의 CleintRect 값을 MDI 기준으로 바꿔서 InvalidateRect 호출해주는 함수입니다.

<!--CodeS-->

procedure TForm1.Timer1Timer(Sender: TObject);
var
rc,rc_mdi: TRect;
pt_delta,pt_mdi_ctrl: TPoint;
begin
Label1.Caption:=FormatDateTime('yyyy-mm-dd hh:nn:ss',Now);

GetWindowRect(self.ClientHandle,rc_mdi);
pt_delta.X:=(self.Width - ClientRect.Right ) div 2 ;
pt_delta.Y:= self.Height - ClientRect.Bottom - pt_delta.X;
pt_mdi_ctrl:=Point((Label1.Left + pt_delta.X + self.Left ) - rc_mdi.Left ,(Label1.Top + pt_delta.Y + self.Top ) - rc_mdi.Top );
rc:=Rect(pt_mdi_ctrl.x,pt_mdi_ctrl.y,pt_mdi_ctrl.x+Label1.Width,pt_mdi_ctrl.y+Label1.Height);
InvalidateRect(self.ClientHandle, @rc, true);
end;

<!--CodeE-->

저도 MDI Form에서 Graphic 컨트롤에 이런 문제가 있는지 오늘 처음 알았습니다.

그럼 ..

정말 감사들 합니다.
저의 한 질문에 이렇게 신경을 써 주셔서 감사합니다
모두 행복하세요..