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

Вниз

Чё за обработчик OnChar   Найти похожие ветки 

← →
Ciber SLasH ©   (2003-11-13 08:02) [0]

Мне нужно было, чтоб моя прога закрывалась по <Esc>, я смотрел список обработчиков в KOL-форме, так и не нашёл обработчика OnKeypress. Нашёл OnChar, а что он делает так и не понял.
Народ помогите плиз, сделать так, чтобы прога закрывалась по <Esc>.

---

← →
Ciber SLasH ©   (2003-11-13 08:02) [0]

Мне нужно было, чтоб моя прога закрывалась по <Esc>, я смотрел список обработчиков в KOL-форме, так и не нашёл обработчика OnKeypress. Нашёл OnChar, а что он делает так и не понял.
Народ помогите плиз, сделать так, чтобы прога закрывалась по <Esc>.

---

← →
savva ©   (2003-11-13 10:52) [1]

а на OnKeyUp почему не завязаться? в твоем случае key=27 (вроде:))

---

← →
savva ©   (2003-11-13 10:52) [1]

а на OnKeyUp почему не завязаться? в твоем случае key=27 (вроде:))

---

← →
Ciber SLasH ©   (2003-11-13 11:59) [2]

Я пробовал на OnKeyDown (это типа на нажатие пимпы), но ничего не сработало :(
И всё же, чё за обработчик такой: OnChar ?

---

← →
Ciber SLasH ©   (2003-11-13 11:59) [2]

Я пробовал на OnKeyDown (это типа на нажатие пимпы), но ничего не сработало :(
И всё же, чё за обработчик такой: OnChar ?

---

← →
mike.dld ©   (2003-11-13 12:18) [3]

OnChar - это и есть OnKeyPress, для тебя Key = #27

---

← →
mike.dld ©   (2003-11-13 12:18) [3]

OnChar - это и есть OnKeyPress, для тебя Key = #27

---

← →
Ciber SLasH ©   (2003-11-13 14:20) [4]

//OnChar - это и есть OnKeyPress, для тебя Key = #27
Так почему же тогда он не работает ?
Я вписывал туда код: if Char = #27 then
                      Close;
ставлю бряк на строку if ... then дебаггер даже не останавливается -> форма не закрывается !

---

← →
Ciber SLasH ©   (2003-11-13 14:20) [4]

//OnChar - это и есть OnKeyPress, для тебя Key = #27
Так почему же тогда он не работает ?
Я вписывал туда код: if Char = #27 then
                      Close;
ставлю бряк на строку if ... then дебаггер даже не останавливается -> форма не закрывается !

---

← →
Gandalf ©   (2003-11-13 14:39) [5]

Во первых надо писать


procedure TForm1.KOLForm1Char(Sender: PControl; var Key: Char;
 Shift: Cardinal);
begin
  if Key = #27 then
   Form.Close;
end;


Во вторых в KOL нет KeyPreview - форма должна быть активной чтобы к ней клавиша пришла.

---

← →
Gandalf ©   (2003-11-13 14:39) [5]

Во первых надо писать


procedure TForm1.KOLForm1Char(Sender: PControl; var Key: Char;
 Shift: Cardinal);
begin
  if Key = #27 then
   Form.Close;
end;


Во вторых в KOL нет KeyPreview - форма должна быть активной чтобы к ней клавиша пришла.

---

← →
Ciber SLasH ©   (2003-11-13 14:58) [6]

Блин а чё у меня ничего не получается !
Тока что создал новую форму - OnChar работает.
А в проге которую создал чуть позже - не работат !
Может поможите, я исходники вышлю.

---

← →
Ciber SLasH ©   (2003-11-13 14:58) [6]

Блин а чё у меня ничего не получается !
Тока что создал новую форму - OnChar работает.
А в проге которую создал чуть позже - не работат !
Может поможите, я исходники вышлю.

---

← →
SPeller ©   (2003-11-13 16:35) [7]

> Тока что создал новую форму - OnChar работает.
> А в проге которую создал чуть позже - не работат !

Потому что фокус в первом случае был у формы, а во втором у какого-то контрола. Это недочёт КОЛа. Как вариант - можно использовать скрытые менюшки. Только это уже извращением будет.

---

← →
SPeller ©   (2003-11-13 16:35) [7]

> Тока что создал новую форму - OnChar работает.
> А в проге которую создал чуть позже - не работат !

Потому что фокус в первом случае был у формы, а во втором у какого-то контрола. Это недочёт КОЛа. Как вариант - можно использовать скрытые менюшки. Только это уже извращением будет.

---

← →
Ciber SLasH ©   (2003-11-13 17:00) [8]

А как же тогда сделать ?

---

← →
Ciber SLasH ©   (2003-11-13 17:00) [8]

А как же тогда сделать ?

---

← →
Vladimir Kladov   (2003-11-13 19:58) [9]

Кроме скрытых менюшек, есть еще Applet.OnMessage. И еще вариант: одинаковый обработчик OnChar/OnKeyDown/OnKeyUp - на выбор - у всех контролов на форме.

---

← →
Vladimir Kladov   (2003-11-13 19:58) [9]

Кроме скрытых менюшек, есть еще Applet.OnMessage. И еще вариант: одинаковый обработчик OnChar/OnKeyDown/OnKeyUp - на выбор - у всех контролов на форме.

---

← →
Gandalf ©   (2003-11-14 17:08) [10]

Первый способ мне явно импонирует больше. Если обработку навесить на KOLForm, то следующий KOL эмитирует VCL KeyPreview:


function TForm1.KOLApplet1Message(var Msg: tagMSG;
 var Rslt: Integer): Boolean;
var C : Char;
begin
 Result := False;
 case Msg.message of
   WM_KEYDOWN, WM_SYSKEYDOWN:
     if assigned( Form.OnKeyDown ) then
        Form.OnKeyDown( Form, Msg.wParam, GetShiftState );
   WM_KEYUP, WM_SYSKEYUP:
     if assigned( Form.OnKeyUp ) then
        Form.OnKeyUp( Form, Msg.wParam, GetShiftState );
   WM_CHAR, WM_SYSCHAR:
     if assigned( Form.OnChar ) then
     begin
        C := Char( Msg.wParam );
        Form.OnChar( Form, C, GetShiftState );
        Msg.wParam := Integer( C );
     end;
 end;
end;


---

← →
Gandalf ©   (2003-11-14 17:08) [10]

Первый способ мне явно импонирует больше. Если обработку навесить на KOLForm, то следующий KOL эмитирует VCL KeyPreview:


function TForm1.KOLApplet1Message(var Msg: tagMSG;
 var Rslt: Integer): Boolean;
var C : Char;
begin
 Result := False;
 case Msg.message of
   WM_KEYDOWN, WM_SYSKEYDOWN:
     if assigned( Form.OnKeyDown ) then
        Form.OnKeyDown( Form, Msg.wParam, GetShiftState );
   WM_KEYUP, WM_SYSKEYUP:
     if assigned( Form.OnKeyUp ) then
        Form.OnKeyUp( Form, Msg.wParam, GetShiftState );
   WM_CHAR, WM_SYSCHAR:
     if assigned( Form.OnChar ) then
     begin
        C := Char( Msg.wParam );
        Form.OnChar( Form, C, GetShiftState );
        Msg.wParam := Integer( C );
     end;
 end;
end;


---

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

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

Наверх

Память: 0.5 MB
Время: 0.04 c