Ok, so I want to combine my Tsender procedures into 1, I know it's possible but I'm not sure how to:
Simba Code:procedure Quit(Sender: TObject);
begin
Pressed := False;
Writeln('Script stopped');
DsgnForm.CLOSE;
end;
procedure Antimsg(Sender: TObject);
begin
case (CheckBoxs[0].Checked) of
True: writeln('ANTI BAN ON');
False: writeln('ANTI BAN OFF');
end;
end;
procedure progressmsg(Sender: TObject);
begin
case (CheckBoxs[1].Checked) of
True: writeln('PAINT ON');
False: writeln('PAINT OFF');
end;
end;
procedure bankmsg(Sender: TObject);
begin
case (CheckBoxs[2].Checked) of
True: writeln('BANK HIGHLIGHTING ON');
False: writeln('BANK HIGHLIGHTING OFF');
end;
end;
procedure modmsg(Sender: TObject);
begin
case (CheckBoxs[2].Checked) of
True: writeln('LOGOUT ON MOD ON');
False: writeln('LOGOUT ON MOD OFF');
end;
end;
That just seems repetitive




Reply With Quote










