Скачать: CL | DM;

Супер лёгкая задачка для начинающих 3 !   Найти похожие ветки 

← →
IronHawk ©   (2002-04-23 00:00) [0]

В стандартной форме (по умолчанию) задать свойство которое пеализует "прилипание" формы к каям DeskTop-а !

---

← →
IronHawk ©   (2002-04-23 10:38) [1]

Чё всё ?
Исчерпались ?

---

← →
Anatoly Podgoretsky ©   (2002-04-23 10:47) [2]

Ну не хотят тебя таким методом обучать

---

← →
IronHawk ©   (2002-04-23 10:57) [3]

> Anatoly Podgoretsky © (23.04.02 10:47)
> Ну не хотят тебя таким методом обучать

Замечание глупо, безпрециндентно, и не имеет ничего общего с моим обучением !

---

← →
esu ©   (2002-04-23 11:05) [4]

Ну если нужно сделать просто прилипание то енто еще можно, тоесть там за 5 пикселей до края перемещать к краю... Но если нужно рарегистрировать нормальный AppBar то это SHAppBarMessage. Понятно что приводить пример в форуме несколько лениво :)
(из апрельского MSDN 2001)

SHAppBarMessage


Sends an appbar message to the system.

UINT_PTR SHAppBarMessage(
DWORD dwMessage,
PAPPBARDATA pData
);

Parameters
dwMessage
Appbar message value to send. This parameter can be one of the following values: ABM_ACTIVATE Notifies the system that an appbar has been activated.
ABM_GETAUTOHIDEBAR Retrieves the handle to the autohide appbar associated with a particular edge of the screen.
ABM_GETSTATE Retrieves the autohide and always-on-top states of the Windows taskbar.
ABM_GETTASKBARPOS Retrieves the bounding rectangle of the Windows taskbar.
ABM_NEW Registers a new appbar and specifies the message identifier that the system should use to send notification messages to the appbar.
ABM_QUERYPOS Requests a size and screen position for an appbar.
ABM_REMOVE Unregisters an appbar, removing the bar from the system"s internal list.
ABM_SETAUTOHIDEBAR Registers or unregisters an autohide appbar for an edge of the screen.
ABM_SETPOS Sets the size and screen position of an appbar.
ABM_SETSTATE Sets the state of the appbar"s autohide and always-on-top attributes.
ABM_WINDOWPOSCHANGED Notifies the system when an appbar"s position has changed.

pData
Address of an APPBARDATA structure. The content of the structure depends on the value set in the dwMessage parameter.

---

← →
IronHawk ©   (2002-04-23 11:10) [5]

> Понятно что приводить пример в форуме несколько лениво :)

А для чегож тогда эта ветка создавалась ?

---

← →
Anatoly Podgoretsky ©   (2002-04-23 11:14) [6]

IronHawk © (23.04.02 11:10)
Ты нам этот вопрос задаешь, может сам ответишь для чего?

---

← →
ProgMan ©   (2002-04-23 11:17) [7]

>IronHawk © (23.04.02 10:57)
> ... безпрециндентно :-))))) 3 ошибки в одном слове!
Ты хоть знаешь, что оно означает?

> и не имеет ничего общего с моим обучением !
Разумеется, речь не об обучении, а о работе за тебя участников форума.

---

← →
IronHawk ©   (2002-04-23 11:30) [8]

> Anatoly Podgoretsky © (23.04.02 11:14)

Ветка для новичков .... !
Так шо Вы Анатолий свободны.

> ProgMan © (23.04.02 11:17)
> Разумеется, речь не об обучении, а о работе за тебя участников
> форума.

Глупо .... беспрецедентно ..... флуд !

---

← →
esu ©   (2002-04-23 11:46) [9]

> > Понятно что приводить пример в форуме несколько лениво
> :)
>
> А для чегож тогда эта ветка создавалась ?

Я использую перелопаченный но чужой AppBar и в нем ~1700строк кода. Приводить на форуме ? :)

---

← →
Anatoly Podgoretsky ©   (2002-04-23 11:50) [10]

IronHawk © (23.04.02 11:30)
Форум публичный, так что не выгонишь, пока не станешь его хозяином.
А вот для чего эта ветка создавалась, так и не ответил, что скрываешь?

---

← →
esu ©   (2002-04-23 11:53) [11]

Да и вряд ли это задача для новичка, боюсь что и из мастеров кто-то за пару дней справися, если конечно писать с нуля и отлаживать.

---

← →
IronHawk ©   (2002-04-23 12:14) [12]

> esu © (23.04.02 11:46)

В своей ветке, а сюда линк :-)

---

← →
Pat ©   (2002-04-23 12:18) [13]

Ну, как новичок, придумал только это:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if left<=50 then left:=0;
if top<=50 then top:=0;
if left+width>=screen.width-50 then
left:=screen.Width-width;
if top+height>=screen.Height-50 then
top:=screen.Height-height;
end;

Вроде прилипает...

---

← →
IronHawk ©   (2002-04-23 12:51) [14]

> Anatoly Podgoretsky © := Ignor

(Это за порядочность, "ответы" по теме)

> Pat © (23.04.02 12:18)

Отлично !
Хоть и по таймеру, но отличное решение !
Поздравляю !

---

← →
Pat ©   (2002-04-23 13:06) [15]

Можно и не по таймеру, если перемещать форму за определенную область. :-))

---

← →
Val ©   (2002-04-23 13:07) [16]

>IronHawk © (23.04.02 12:51)
Хоть и по таймеру
Так, может быть, продемонстрируете свой ответ без таймера, нам же, новичкам, интересно. ;)

---

← →
Rooman ©   (2002-04-23 13:44) [17]

TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure OnMove(var msg:TMsg); message WM_MOVE;
end;

procedure TForm1.OnMove(var msg: TMsg);
begin
if left<=50 then left:=0;
if top<=50 then top:=0;
if left+width>=screen.width-50 then
left:=screen.Width-width;
if top+height>=screen.Height-50 then
top:=screen.Height-height;

end;

---

← →
IronHawk ©   (2002-04-23 13:59) [18]

> Rooman © (23.04.02 13:44)

BEST !
Отлично !
Так и надо было !

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.008 c