Popup windows - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Popup windows

We've seen how MSN Messenger is showing small popup windows when a contact is online. How can one do that?

Comments

  • zibadianzibadian Posts: 6,349Member
    : We've seen how MSN Messenger is showing small popup windows when a contact is online. How can one do that?
    :
    Create a borderless form. Then using a TTimer update the Top property of the form to make it "scroll". Here is a code, which scroll a form from the bottom of the screen to the top, and then jumps to the bottom again.
    [code]
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    Top := Top - 1;
    if Top <= 0 then
    Top := Screen.Height;
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    Top := Screen.Height;
    end;
    [/code]
  • jobromediajobromedia Posts: 168Member
    : : We've seen how MSN Messenger is showing small popup windows when a contact is online. How can one do that?
    : :
    : Create a borderless form. Then using a TTimer update the Top property of the form to make it "scroll". Here is a code, which scroll a form from the bottom of the screen to the top, and then jumps to the bottom again.
    : [code]
    : procedure TForm1.Timer1Timer(Sender: TObject);
    : begin
    : Top := Top - 1;
    : if Top <= 0 then
    : Top := Screen.Height;
    : end;
    :
    : procedure TForm1.FormCreate(Sender: TObject);
    : begin
    : Top := Screen.Height;
    : end;
    : [/code]
    :
    Well I'm starting to get a hang on this, however is there any way to detect the height of the startmenu and include that in the code?
Sign In or Register to comment.