Delphi, свойства формы

[Artful]

Есть форма, полупрозрачная, степень прозрачности задана в свойствах формы, нужно чтобы при наведении на форму указателя мыши она становилась полностью не прозрачная... и после того как мышь убрали - снова становилась полупрозрачная!
Как это сделать? Через события мыши? Если да, то через какие и как?!

[Koba]

Mouseenter
mouseleave

[dron-s]

событие OnMouseMove

Цитата: Сообщение от Koba  Mouseenter mouseleave

сорри, но что это за события такие?

[Koba]

Ну формы сообытия
on (само обой подрозумевется)

[dron-s]

Цитата: Сообщение от Koba  Ну формы сообытия

ты меня конечно извини, но я у себя таких собый у формы не вижу...
да и вообще первый раз про такие события слышу...

[SHKoder]

Цитата: Сообщение от dron-s  ты меня конечно извини, но я у себя таких собый у формы не вижу... да и вообще первый раз про такие события слышу...

ты инспектор лбъектов видиш в делфе?? Object Inspector
если Delphi 7 то вызвать его можно F11
а там две закладки
Properties - свойства
Events - события
только ты выбери свою TForm предварительно, иначе то что у тебя в фокусе, то в инспекторе объектов и отображается

[dron-s]

SHKoder
умного из себя не строй!!!
я с delphi работаю с 1998 года и все эти события знаю на изусть!!!
у формы всего 6 свойств на Mouse
MouseDown, MouseMove, MouseUp, MouseWheel, MouseWheelDown, MouseWheelUp

[SHKoder]

Цитата: Сообщение от dron-s  SHKoder умного из себя не строй!!! я с delphi работаю с 1998 года и все эти события знаю на изусть!!! у формы всего 6 свойств на Mouse MouseDown, MouseMove, MouseUp, MouseWheel, MouseWheelDown, MouseWheelUp

что же ты за такие годы и не смог мышку приручить

procedure TForm1.FormMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
Label1.Caption := 'Position Cursor X on screen - ' + IntToStr(X);
Label2.Caption := 'Position Cursor Y on screen - ' + IntToStr(Y);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
MyMouse: TMouse;
lX{left X}, rX{right X}, tY{top Y}, bY{bottom Y} : Integer;
begin
Label3.Caption := 'Position Cursor X on form - ' + IntToStr(MyMouse.CursorPos.X);
Label4.Caption := 'Position Cursor Y on form - ' + IntToStr(MyMouse.CursorPos.Y);
end;

и не забывай про свойства формы
Self.BorderWidth - не забывай что их два, левый и правый, верхний и нижний
Self.Width;
Self.Top;
Self.Height;

Добавлено через 1 минуту
подключи также фантазию и математическую дедукцию, и все у тебя получится

[dron-s]

SHKoder
это для первого класса что ты написал, и то не тянет...
речь зашла не о том как опеределить положение мышки на форме, а о том, где такие свойства у формы как Mouseenter и mouseleave?

[Koba]

Возможно перепутал с компонентом

[Alexo]

Есть эти собития у формы в Турбо точно есть, на крайняк можно самому реализовать.. За 9 лет и не знать такого - это перебор. SHKoder описал тебе как определить положение мышки и используя простую математику можно определить вышла мышка за форму или нет.

[miakl]

Извените что влезаю в ваш разговор,
но не потскажете как сделать так:
после многочисленных монипуляций с формой,
при нажатии определённой кнопки форма обрела первоночальное состояние?
С уважением к мэтрам.

[Koba]

Что значит
"обрела первоночальное состояние?"

[miakl]

В краце опишу программку:
допустим на форме три кнопки(первоночальное состояние)
при нажатии первой меняеться вид курсора
нажатие на вторую происходит сдвиг кнопок
нажатие на третью приводит в первоночальное состояние форму
С уважением к мэтрам

[4kusNick]

miakl, ну перед изменением курсора сохраняй в глобальную переменную типа TCursor текущий курсор, а уже затем меняй его на новый:

procedure TForm1.Button1Click(Sender: TObject);
begin

  idCur := Screen.Cursor;
  Screen.Cursor := crHourGlass;

end;

Затем по второй кнопке сохраняй координаты кнопок в переменные типа Integer например, кстати тут есть некие зависимости от того, знаешь ли ты кол-во кнопок, которые ты сдвигаешь, постоянно ли это кол-во:

если кнопки статичны и их не много (кол-во не изменяется и оно изначально известно, так же, как и имена), то делай так:

procedure TForm1.Button3Click(Sender: TObject);
begin

  iX1 := Button1.Left;
  iX2 := Button2.Left;
  iX3 := Button3.Left;
  iY1 := Button1.Top;
  iY2 := Button2.Top;
  iY3 := Button3.Top;

end;

Если кнопок много, то разумнее их координаты хранить в массиве или массивах. Я бы сделал свой тип (конструкцию, класс, коллекцию, называйте как хотите ), который бы содержал в себе 2 переменные - X и Y, но опять же, если вы еще меняете ширину и высоту, то их тоже можно добавить; а потом бы работал с массивом элеентов этого своего типа.

В общем уточните задачу, и мы поможем

PS:
совсем забыл написать о том, как все вернуть по клику 3й кнопки, но думаю, сами справитесь, а если нет, то попробуйте сначала получше, а только потом спрашивайте, опыт на ошибках строится порой Все логично и просто, поэкспериментируйте.

Кстати чтобы объявить глобальную переменную пропишите ее до слова implementation.