Дядо живял наистина е жена. Казва старец старицата:
- Стар, нека Bun лепило и го оставете да се направи първия компютър в гората.
Баба се съгласи заслепен Bun, му е дал инструкции за изграждане на компютър.
Gingerbread е подвижен през гората и вижда - вълкът идва. Gingerbread мъж и той пита:
- Wolf, вълк, и искате да сте в системния блок?
- Какво е това?
- Това означава, че ще седна и вие, хората да се хранят сами ще бъде: дискета, диск ...
- Искам да! - каза вълкът и става системния блок. Тя отива отвъд кок. Изведнъж той вижда - лисицата, той й казал, и каза:
- Fox и Fox, и искате да бъдете на монитора?
- Какво е това?
- Е, това е, когато търсите в хората, шпионин, и те не подозират.
- Искам да! - каза Фокс и се превърна в монитора.
Gingerbread се претърколи. Тук таралеж работи другата страна на пътя. Той го спрял и попитал:
- таралеж и таралеж, и искате да бъдете на клавиатура?
- Какво е това?
- Това е, когато хората ще се върне към нулата, така гали всеки ден, а вие ще си легне.
- Искам да! - каза на таралеж и се превръща клавиатурата.
Gingerbread Man продължи. Той вижда - мишката работи. Той я хвана и ме попита:
- мишка, мишка, и искате да сте в компютърна мишка?
- И какво е това и как?
- Това е, когато вие, хората, всеки ден от яката ще вземат и носят на тепиха там - тук, там - тук.
- Да ти го начукам в е # Пу Gingerbread.
От тогава, мишката в кок Ф # NE ...
процедура TForm1.Button6Click (Sender: TObject);
ако GetCursorPos (р) = вярно, тогава
SetCursorPos (p.X 5, p.Y);
В този пример, както се използва SetCursorPos функция, която определя позицията на курсора на мишката. Тя е необходимо да се посочи в скоби две числови стойности на X и Y, които определят координатите на новата позиция на курсора.
За да направите това, направете следното:
Поставете типово форма TLabel
Извадете TTimer компонент
Декларирам две глобални променливи:
x_need, y_need: цяло число;
В тях ние ще проследят координатите на желаната позиция на показалеца на мишката
форма събитие OnActivate () активиране на променливи:
x_need: = Label1.Left Form1.Left 20;
y_need: = Label1.Top Form1.Top 30;
OnTimer събитие Таймер компонент да пише:
процедура TForm1.Timer1Timer (Sender: TObject);
changex, changey: цяло число;
Свързани статии