| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

mbLeft or mbRight? [Delphi, Windows]

stals ©   (2006-07-29 09:57:00) 

Давненько я на KOL ничего не писал...
Почему-то не работает нижеследущее, в watch'e пишет "a: (out of bound) 8".
Что делаю не так? :-/
------------------------------------------------------------
program Project1;
uses
 KOL, windows, messages;
var
 form , button :PControl;

procedure ButtonDown( Sender: PControl; var Mouse: TMouseEventData );
var a : TMouseButton;
begin
 a:=Mouse.Button;
 if Mouse.Button=mbright then MsgOK('Right');
 if Mouse.Button=mbleft then MsgOK('Left');
end;

begin
 form := NewForm(Applet,'Window');
 Button := NewButton(Form, 'Button');
 Button.OnMouseDown := TOnMouse( MakeMethod( nil, @ButtonDown ) );
 run(form);
end.------------------------------------------------------------

И в догонку: что-то не могу свой курсор из res-файла достать,
киньте строчку, блин... :)

---

Stals   (2006-07-30 12:29:00) [1]

:p Thanks...

---

thaddy   (2006-07-29 13:01:00) [2]

procedure ButtonDown( Dummy:pointer;Sender: PControl; var Mouse: TMouseEventData );
And makemethod!!!

remember?

---

Наверх