Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.03.03;
Скачать: [xml.tar.bz2];

Вниз

Управление настройками рабочего стола   Найти похожие ветки 

 
YanVal   (2003-01-04 11:52) [0]

Как изменить опцию "Отображать содержимое окна при его перетаскивании"(Свойства экрана-Эффекты в Win98)
Заранее благодарен Ян:)


 
Севостьянов Игорь   (2003-01-04 13:53) [1]

Очень просто
Текущее значение получаем так:
var
B: BOOL;
begin
if SystemParametersInfo(SPI_GETDRAGFULLWINDOWS, 0, @B, SPIF_SENDCHANGE) then ShowMessage(IntToStr(Integer(B))); // где 1 - True, 0 - False
//Устанавливаем "Отображать содержимое окна при его перетаскивании" в True:
if not SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 1, 0, SPIF_SENDCHANGE) then ShowMessage("Error");
//Устанавливаем "Отображать содержимое окна при его перетаскивании" в True:
if not SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 0, 0, SPIF_SENDCHANGE) then ShowMessage("Error");
end;



 
Севостьянов Игорь   (2003-01-04 13:54) [2]

Сорри в последнем случае конечно же False (тестировал на W2K)


 
YanVal   (2003-01-04 14:40) [3]

Спасибо, Игорь!



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

Форум: "Система";
Текущий архив: 2003.03.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.034 c
6-5680
M_a_x
2003-01-12 00:52
2003.03.03
Помогите плиз.


14-5822
andrey_lamer
2003-02-13 08:44
2003.03.03
Как зарегистрировать Trial версию Delphi studio 7?


14-5771
Vint
2003-02-13 09:14
2003.03.03
UNREAL II


14-5767
professor
2003-02-16 20:17
2003.03.03
Вируссссссссссссссссссссссссс


8-5667
pasha676
2002-11-21 11:00
2003.03.03
DirectShow DSPack 2.0 вопросы.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский