PDA

View Full Version : Button pop up.



darksid
11-20-2006, 09:26 AM
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.

darksid
11-20-2006, 09:27 AM
If you want to change what it says search for you are GAY!

Wizzup?
11-20-2006, 09:37 AM
Lol whats the use of this script?

darksid
11-20-2006, 12:32 PM
Just to like trick your friends or sometihng just make it ti say like virus downloading lol i guees i just "made it"

Hey321
11-20-2006, 12:50 PM
Rofl, nice i edited a bit and came up wit this ;)



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.

darksid
11-20-2006, 01:41 PM
cool i like it