Форум: "Потрепаться";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];
ВнизСупер лёгкая задачка для начинающих 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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.007 c