안녕하세요..
PageControl을 일정한 시간마다 자동으로 페이지전환하는데 왜 마우스가 움직이지 않는데 Form등에 MouseMove 이벤트가 발생하나요...
procedure TForm1.Timer1Timer(Sender: TObject);
var
st: string;
s: integer;
begin
st := formatdatetime('ss', now);
s := strtoint(st) mod 3;
PageControl1.ActivePageIndex := s;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
caption := formatdatetime('hh:mm:ss' ,now);
end;