| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ошибка Error: method identifier expected

Страницы:   < 1 2 3 >

SoulOfAngel ©   (2011-01-03 12:57:00) 

делал простое перемещение картинки с помощью мыши не знаю почему ругается( может модуль не дописал какойто.lazarus

var x0,y0:integer;
move:boolean;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button<>mbLeft then move:=false //если нажали не левой кнопкой, то перемещать не будем!
else begin
move:=true;
x0:=x; //запоминаем начальные координаты
y0:=y; //запоминаем начальные координаты
end;
end;  

---

KilkennyCat   (2011-01-03 14:36:00) [41]

> 12 ©   (03.01.11 14:15) [3]

с какого перепугу? только одной из двух, никаких "и"!

---

SoulOfAngel   (2011-01-03 14:31:00) [42]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); -  ошибка в этой строке

---

SoulOfAngel   (2011-01-03 14:30:00) [43]

uses
 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
 ExtCtrls, Buttons, StdCtrls, ShellApi;  
может тут чего-то не хватает?

---

12   (2011-01-03 14:15:00) [44]

> KilkennyCat ©   (03.01.11 13:55) [2]

прально, и сможем перемещать и правой тоже :)


> SoulOfAngel   (03.01.11 12:57)  

D7, winXP, полет нормальный

---

KilkennyCat   (2011-01-03 13:55:00) [45]

а зачем его набирать, он некрасивый. я бы написал так:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
move:= button<>mbLeft;
x0:=x;
y0:=y;
end;

---

Anatoly Podgoretsky   (2011-01-03 13:41:00) [46]

В какой строке, неужели ты думаешь, что кто то будет набирать этот огрызок кода?

---

Страницы:   < 1 2 3 >

Наверх