Супер лёгкая задачка для начинающих 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]

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