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

Вниз

Изменение размеров   Найти похожие ветки 

 
P.N.P. ©   (2004-06-27 20:54) [0]

При посылке сообщения
SendMessage(MyComp.Handle,WM_SYSCOMMAND,SC_SIZE,0);
Компонент переходит в стандартный для Windows режим
изменения размера, однако для указания - какой
именно параметр (Width, Height) надо изменять необходимо
нажать на клавиатуре соответствующую клавишу со стрелкой.
В принципе это нормально, НО мне нужно, что бы пользователь
наведя курсор мыши на границу компонента
и нажав левую кнопку сразу же мог изменять размеры.

Я сейчас застрял на том, как же отправить сообщение о нажатии
соответствующей клавиши компоненту (или кому?), т.к.
сообщения о нажатии
(например keybd_event(VK_DOWN,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
или SendMessage(MyComp.Handle,WM_KEYDOWN,VK_DOWN,0);)
обрабатываются после того, как компонент
выходит из режима изменения размера.

Подскажите пожалуйста, как быть в этом случае?


 
KilkennyCat ©   (2004-06-27 22:43) [1]

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
pt : TPoint;
begin
   if ssCtrl in Shift then begin
   ReleaseCapture;
   SendMessage(Edit1.Handle, WM_SYSCOMMAND, $F012, 0);
   GetCursorPos(pt);
 end;
end;


Вот ежели перебрать вместо $F012 другие значения, то можно и размеры поменять, или превратить едит в каптион ($F020)


 
KilkennyCat ©   (2004-06-27 22:45) [2]

$F008 - изменение размеров


 
KilkennyCat ©   (2004-06-27 22:47) [3]

точнее

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if ssCtrl in Shift then begin
  ReleaseCapture;
  SendMessage(Edit1.Handle, WM_SYSCOMMAND, $F008, 0);
 end;
end;


 
P.N.P. ©   (2004-06-27 23:16) [4]

Спасибо, то, что надо



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

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

Наверх




Память: 0.45 MB
Время: 0.034 c
3-1089274904
Ander
2004-07-08 12:21
2004.08.08
Помогите с восстановлением рухнувшего индекса БД средствами Delph


6-1086558721
Prankster.
2004-06-07 01:52
2004.08.08
Как получить доменное имя по IP


4-1088593773
noname
2004-06-30 15:09
2004.08.08
CreateRemoteThread в Win9X


1-1090847248
Protoss
2004-07-26 17:07
2004.08.08
Извините, еще вопросик - а как сохранить элементы ListView1


1-1090479966
Lamer_Of_Delphi
2004-07-22 11:06
2004.08.08
Интерпретатор





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