Главная страница
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.041 c
15-1173064526
Slider007
2007-03-05 06:15
2007.04.01
С днем рождения ! 4 марта


15-1173418402
sportman
2007-03-09 08:33
2007.04.01
Акт внедрения программного продукта


1-1170732544
Ant205
2007-02-06 06:29
2007.04.01
Delphi и WinAmp


3-1168210408
Lamer666
2007-01-08 01:53
2007.04.01
Подскажите можно ли из DBGrid-а узнать какую таблицу он отражает?


11-1153760523
Alexei6021
2006-07-24 21:02
2007.04.01
Печать в KOL