Текущий архив: 2007.04.01;
Скачать: CL | DM;

Вниз

mbLeft or mbRight?   Найти похожие ветки 

← →
stals ©   (2006-07-29 09:57) [0]

Давненько я на 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-файла достать,
киньте строчку, блин... :)

---

← →
thaddy   (2006-07-29 13:01) [1]

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

remember?

---

← →
Stals ©   (2006-07-30 12:29) [2]

:p Thanks...

---

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

Текущий архив: 2007.04.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.048 c