Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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
3-97119
Oleg_er
2002-05-06 07:26
2002.05.30
В чем ошибка? - ругается на несовместимость типов!


1-97250
spi
2002-05-17 08:19
2002.05.30
Ошибка в try-finally-end?


7-97435
Soul
2002-03-06 20:13
2002.05.30
volume


3-97144
abcd
2002-05-04 22:59
2002.05.30
Как можно остановить сервер Interbase


4-97450
Jack`
2002-03-05 13:57
2002.05.30
Объём оперативки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский