Форум: "KOL";
Текущий архив: 2007.04.01;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "KOL";
Текущий архив: 2007.04.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.058 c