Главная страница
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.042 c
15-1173250174
palva
2007-03-07 09:49
2007.04.01
Кто хочет поработать в технопарке


2-1173248405
Oleg_teacher
2007-03-07 09:20
2007.04.01
Описание процедуры


4-1163515236
Max_2006
2006-11-14 17:40
2007.04.01
Вывести bmp-рисунок на окно на API


15-1173448867
Германн
2007-03-09 17:01
2007.04.01
Delphi - The Best


2-1173182643
pop
2007-03-06 15:04
2007.04.01
не подключается dbf через ado