Ma`lumotlar : 1092
Xabarlar soni: 314
Bugun: 29.3.2024
Soat: 10:6
Delphida kursorni xarakatlantirish dasturi
Muallif: Mengliyev Sh.
Qo`shilgan sana: 2014-10-27
Delphida kursorni xarakatlantirish dasturi
Button1 tugmachasiga yoziladigan dastur
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
ok: boolean;
begin
ok:=false;
repeat
randomize;
setcursorpos(random(Screen.Width-1),random(Screen.Height-1));
sleep(500);
until ok;
end;
end.
2427 marta o`qildi.