Results 1 to 6 of 6

Thread: Button pop up.

  1. #1
    Join Date
    Nov 2006
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Button pop up.

    SCAR Code:
    program New;
    var
      frmDesign : TForm;
      Jeffsgay1 : TButton;

    procedure buttonclick(sender: TObject);
    begin
      Writeln('You are gay!');
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;

    procedure InitForm;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 0;
      frmDesign.Top := 10;
      frmDesign.Width := 200;
      frmDesign.Height := 200;
      frmDesign.Caption := 'You are GAY!';
      frmDesign.Color := clBtnFace;
      frmDesign.Font.Color := clWindowText;
      frmDesign.Font.Height := 12;
      frmDesign.Font.Name := 'MS Sans Serif';
      frmDesign.Font.Style := [];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 50;
      Jeffsgay1 := TButton.Create(frmDesign);
      Jeffsgay1.OnClick:= @buttonclick;
      Jeffsgay1.Parent := frmDesign;
      Jeffsgay1.Left := 69;
      Jeffsgay1.Top := 61;
      Jeffsgay1.Width := 83;
      Jeffsgay1.Height := 30;
      Jeffsgay1.Caption := 'You are GAY!!';
      Jeffsgay1.TabOrder := 2;
      end;

    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    begin
      SafeInitForm;
      SafeShowFormModal;
    end.

  2. #2
    Join Date
    Nov 2006
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    If you want to change what it says search for you are GAY!

  3. #3
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    Lol whats the use of this script?



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

  4. #4
    Join Date
    Nov 2006
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just to like trick your friends or sometihng just make it ti say like virus downloading lol i guees i just "made it"

  5. #5
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Rofl, nice i edited a bit and came up wit this
    Code:
    program New;
    var
      frmDesign : TForm;
      Jeffsgay1 : TButton;
    
    procedure buttonclick(sender: TObject);
    begin
      Writeln('Fuck you! Virus is attacking!');
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;
    
    procedure InitForm;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 0;
      frmDesign.Top := 10;
      frmDesign.Width := 200;
      frmDesign.Height := 200;
      frmDesign.Caption := 'Fuck you! Virus is attacking!';
      frmDesign.Color := clBtnFace;
      frmDesign.Font.Color := clWindowText;
      frmDesign.Font.Height := 12;
      frmDesign.Font.Name := 'MS Sans Serif';
      frmDesign.Font.Style := [];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 50;
      Jeffsgay1 := TButton.Create(frmDesign);
      Jeffsgay1.OnClick:= @buttonclick;
      Jeffsgay1.Parent := frmDesign;
      Jeffsgay1.Left := 69;
      Jeffsgay1.Top := 61;
      Jeffsgay1.Width := 150;
      Jeffsgay1.Height := 30;
      Jeffsgay1.Caption := 'Fuck you! Virus is attacking!';
      Jeffsgay1.TabOrder := 2;
      end;
    
    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;
    
    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;
    
    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;
    
    begin
      SafeInitForm;
      SafeShowFormModal;
    end.

  6. #6
    Join Date
    Nov 2006
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cool i like it

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. How To Use The Search Button
    By TViYH in forum Forum Guides
    Replies: 19
    Last Post: 06-07-2018, 06:06 AM
  2. How to use the Edit Button
    By Torrent of Flame in forum Forum Guides
    Replies: 24
    Last Post: 06-18-2012, 05:34 AM
  3. The Rep Button Abuse.
    By Torrent of Flame in forum The Bashing Club / BBQ Pit
    Replies: 37
    Last Post: 12-15-2008, 07:29 PM
  4. Help with clicking this button.
    By turner850 in forum OSR Help
    Replies: 8
    Last Post: 01-22-2008, 07:02 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •