Q&A

  • PageControl 페이지 전환신 MouseMove이벤트
안녕하세요..

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;
0  COMMENTS