Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.027 c
2-1173422964
Spnal
2007-03-09 09:49
2007.04.01
Мишина Поста ... plz


2-1173293266
Ezorcist
2007-03-07 21:47
2007.04.01
вывести текст на image сожержащий jpeg?


15-1173177660
Novice
2007-03-06 13:41
2007.04.01
Что в имени тебе моем? (Опрос железа)


2-1173552150
Зм1й
2007-03-10 21:42
2007.04.01
Контроллы и потоки


2-1173663124
Andrewww
2007-03-12 04:32
2007.04.01
Позиция в строке