Мені треба зробити так щоб місце розташування картинки було б одно положенню курсору на формі
що мається на увазі під картинкою?
можна, можливо.
Дізнаватися координати курсора і виводити туди картинку. На формі це вийде, а ось якщо по екрану, то інші засоби.
Підкажіть як плз на прімере.Мне потрібно це зробити на фомі.
І взагалі як дізнатися координати курсора а потім під ці координати підлаштувати местанахожденія картинки?
> Lavo4nik (22.03.03 11:44)
> Підкажіть як плз на прімере.Мне потрібно це зробити на фомі.
> І взагалі як дізнатися координати курсора а потім під ці координати
> Підлаштувати местанахожденія картинки?
У форми є подія Form1.OnMouseMove
Then write in procedure: image1.left: = x; image1.top: = y;
Elementary, my dear Watson!
> To Mihey
а які кошти по екрану?
Ну допоможіть же! DAema123 запропонував спосіб але я або щось не так зрозумів, або чо-то не так. Допоможіть будь ласка! Бажано на прикладі а то ваще не наздожену :)
Як сказав би Репницький: "Це ж школярізми"
коротше:
Вибираєш Form1.
Заходиш в Events (в менюшке зліва)
Тикаєш 2 рази в поле праворуч від OnMouseMove.
У програмі створюється процедура.
Формальні параметри X і Y - це і є те, що тобі потрібно.
Якщо під картинкою ти розумієш Image, то делий, як каже deema123:
image1.left: = x; image1.top: = y;
Усе. Мабуть можна ще відключити стандартний курсор і т.п, але все це дурниця.
Чувак не напружує, все дуже просто! Для початку ставиш на форму картинку (Image1) і таймер (Timer1).
// Подія OnTimer таймера має бути таким:
procedure TForm1.Timer1Timer (Sender: TObject);
var
// Є така змінна формат p0.x і p0.y
p0: TPoint;
begin
// Беремо координати курсора по вирішенню всього екрану
GetCursorPos (p0);
// Ліпимо до Image1 мінус поправка на позціі форми на екрані
Image1.Left: = p0.x-Form1.Left;
Image1.Top:=p0.y-Form1.Top;
end;
// А Подія OnShow форми таким:
procedure TForm1.FormShow (Sender: TObject);
begin
// Мінімальний інтервал
Timer1.Interval: = 1;
// Щоб великі TImage НЕ моргали при перемальовуванні
Form1.DoubleBuffered: = True;
end;
На скільки я пам'ятаю, гра без циклу що член без куль.
Люди могли б явно пояснити Lavo4nik-у. А чи не пудрити йому мізки всякими дебільними властивостями! Lavo4nik читай HELPи, FaQі і станеш мудрим до старості.
Пам'ять: 0.73 MB
Час: 0.043 c