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

Вниз

Такой вопрос по перетаскиванию формы за клиентскую обл.   Найти похожие ветки 

 
DimC   (2003-02-18 12:10) [0]

Делаю перетаскивание формы через форточное сообщение WM_NCHITTEST
перестают работать кнопки SpeedButton. В чем тут дело?


 
Игорь Шевченко   (2003-02-18 12:46) [1]

Не так делаешь....


 
maxim2   (2003-02-18 12:59) [2]

Делай так

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;
begin
ReleaseCapture;
Perform(WM_SysCommand, SC_DragMove, 0);
end;


 
DimC   (2003-02-24 18:07) [3]

Так я тоже делал, кнопки работают, но форма не перемещается


 
Юрий Зотов   (2003-02-24 18:35) [4]

> перестают работать кнопки SpeedButton. В чем тут дело?

В том, что SpeedButton - это всего лишь рисунок на форме.
Добавьте проверку:

if ControlAtPos(...) = nil then
Message.Result := HTCAPTION
else inherited



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

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

Наверх





Память: 0.55 MB
Время: 0.04 c
6-17249
Grin
2003-01-14 15:59
2003.03.06
TidHttp в цикле после неудачного запроса больше не конектится


14-17373
Sergey-ZZZ
2003-02-18 17:06
2003.03.06
Help for Delphi5


6-17254
$hade
2002-11-21 11:43
2003.03.06
Пара вопросов по Indy...


1-17038
Adolf
2003-02-21 20:49
2003.03.06
FindDialog


14-17294
Demon
2003-02-19 15:45
2003.03.06
Архиваторы





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