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

Вниз

Запрет на перетаскивание   Найти похожие ветки 

 
VJar   (2002-05-07 14:15) [0]

Как запретить перетаскивать форму по экрану???
Как запретить пункт "Переместить", который вызывается
щелкнув правой клавишей мыши по заголовку окна???


 
MBo   (2002-05-07 14:21) [1]

WM_WINDOWPOSCHANGING обрабатывать


 
Song   (2002-05-07 14:29) [2]

DeleteMenu()


 
JC   (2002-05-07 15:14) [3]

В [Форма].OnResize пиши Left:=[Значение], Top:=[Значение].


 
VJar   (2002-05-08 01:39) [4]

Я не спей, а только учусь. Может кто-то поконкретней напишет???


 
SoftOne   (2002-05-08 02:48) [5]

Конкретнее MBo © (07.05.02 14:21)
быть не может.


 
MBo   (2002-05-08 07:04) [6]

Варианты
1)
TForm1 = class(TForm)
private
procedure WMWINDOWPOSCHANGING(var msg: TWMWINDOWPOSCHANGING);
message WM_WINDOWPOSCHANGING;

procedure TForm1.WMWINDOWPOSCHANGING(var msg: TWMWINDOWPOSCHANGING);
begin
msg.WindowPos^.flags:=msg.WindowPos^.flags or SWP_NOMOVE ;
end;

но это не очень хорошо работает- рамка двигается

2)
private
procedure WMNCHitTest(var M:TMessage); message WM_NCHITTEST;

procedure TForm1.WMNCHitTest(var M:TMessage);
begin
inherited;
if M.Result=2 then M.Result:=0;
end;

3)
private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType and $FFF0)=SC_MOVE then
Msg.Result := 0
else
inherited;
end;


 
Anatoly Podgoretsky   (2002-05-08 21:23) [7]

SoftOne © (08.05.02 02:48)
Ни фига, не только MBo © (07.05.02 14:21), но и Song © (07.05.02 14:29), у него же два вопроса.



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

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

Наверх





Память: 0.46 MB
Время: 0.007 c
1-64605
3asys
2002-05-07 16:42
2002.05.20
Изменение размеров компонент в run-time


1-64610
hoaxer
2002-05-05 14:13
2002.05.20
srand hna Delphi


3-64562
savva
2002-04-23 18:06
2002.05.20
Сегодня обнаружил такую вешь - в MS Access есть ...


14-64781
paul_shmakov
2002-04-09 11:33
2002.05.20
MSDN Magazine теперь на русском!


3-64524
Alexxx1
2002-04-23 13:32
2002.05.20
Реализация графов в реляционной БД





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