Главная страница
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.028 c
1-1171015510
DelphiLexx
2007-02-09 13:05
2007.04.01
FreeAndNil


1-1170856465
Badhabit
2007-02-07 16:54
2007.04.01
DBGrid и поле DateTime


2-1173171404
Tar
2007-03-06 11:56
2007.04.01
процедура Randomize


2-1173692409
..::KraN::..
2007-03-12 12:40
2007.04.01
Прозрачность окна в Delphi.


2-1173437359
Polzun
2007-03-09 13:49
2007.04.01
Как задать управляющие коды принтера?