Q&A

  • 메신저 알림창처럼. 폼이 천천히 밑에서 올라오게 할수 잇나요???
메신저보면요.. 상대방이 로그인할때 정보 알림으리 메세지 폼이 올라오잖아요

이처럼.. 구현할수 있나요. 알려주세요..

감사합니다.
이 게시물을
1  COMMENTS
  • Profile
    이순구 • 2003.03.14 21:09
    procedure TForm1.FormCreate(Sender: TObject);
    begin
            Top := Screen.Height;
            Left := Screen.Width - Width;
            Timer1.Interval := 1;
            Timer1.Enabled := True;
    end;

    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
            if Top <= Screen.Height - Height then
            begin
                    Timer1.Enabled := False;
                    exit;
            end;

            SetBounds(Left, Top - 3, Width, Height);
    end;

    간단하게 위와같이 해도 될 것 같은데요.....

←First Page
714 715 716 717 718 719 720 721 722 723
Last Page→
한델 로그인 하기