-
Вобщем создаю проект, кидаю на форму тракбар, компилирую - всё ок. При повторном открытии проекта выдаёт ошибку " Exeption in module MirrorKolPackageD7.bpl at 006ca0b " и дизайнер формы не открывается - т.е. дальнейшее визуальное редактирование формы не возможно. Пожалуйста помогите разобраться
-
используй обычный из KOLCCtrls
-
program Trackbar;
uses KOL, KOLCCtrls;
procedure TrackbarChange(Dummy: Pointer; Sender: PTrackbar; Code: Integer);
begin
Applet.Caption := Int2Str(Sender.Position);
end;
begin
Applet := NewForm(nil,'Trackbar');
NewTrackbar(Applet,[],TOnScroll(MakeMethod(nil,@TrackbarChange))).ResizeParent;
Run(Applet);
end.
-
Столкнулся с проблемой... Код приведенный RusSun вполне рабочий, но я не могу понять, как именно задать начальное положение "бегунка" и диапазон значений Min и Мах. Допустим, имеется TrackBar работающий в диапазоне от 0 до 10, причем, при старте формы "бегунок" должен находиться в положении 5 (посредине в общем :). Я сделал следующее:
uses KOL, KOLCCtrls;
var W:PControl;
TrackBar1: TKOLTrackBar;
Procedure TrackBar1Scroll(Dummy: Pointer; Sender: PTrackbar; Code: Integer);
begin
W.Caption := Int2Str( TrackBar1.Position );
end;
BEGIN
W := NewForm( Applet, 'MiWin' ).SetSize( 400, 300 );
W.CenterOnParent;
TrackBar1 := PTrackbar(NewTrackBar( W, [trbAutoTicks,trbNoBorder,trbTooltips],
TOnScroll( MakeMethod( nil, @TrackBar1Scroll)))
.SetPosition( 100, 100 )
.SetSize( 200, 30 ));
TrackBar1.RangeMax := 10;
TrackBar1.Position := 5;
Run( W );
END.
При этом и диапазон от 0 до 10 выставился корректно и "бегунок" находится в положении 5. Но заголовок формы НЕ МЕНЯЕТСЯ при перемещении "бегунка"! Что я делаю не так?
-
TrackBar1.Perform( WM_SETFOCUS, 0, 0);
-
uses KOL, KOLCCtrls,messages;
-
Руслан, Спасибо! Но нет, не помогло :( Куда копать дальше - пока не знаю... :)
-
program Project1;
uses KOL, KOLCCtrls,messages;
var W:PControl;
TrackBar1: TKOLTrackBar;
Procedure TrackBar1Scroll(Dummy: Pointer; Sender: PTrackbar; Code: Integer);
begin
W.Caption := Int2Str( TrackBar1.Position );
end;
BEGIN
W := NewForm( Applet, 'MiWin' ).SetSize( 400, 300 );
W.CenterOnParent;
TrackBar1 := PTrackbar(NewTrackBar( W, [trbAutoTicks,trbNoBorder,trbTooltips],
TOnScroll( MakeMethod( nil, @TrackBar1Scroll)))
.SetPosition( 100, 100 )
.SetSize( 200, 30 ));
TrackBar1.RangeMax := 10;
TrackBar1.Position := 5;
TrackBar1.Perform( WM_SETFOCUS, 0, 0);
Run( W );
END.
крутим колесо мыши)
-
-
Когда создаётся окно Ты ещё ничего не делаешь с бегунком KOLMHTrackBar'а поэтому ничего ине происходит в этом начальном событии, но стоит двинуть бегунок и всё робит.
-
Хм... Действительно, всё заработало. Руслан, спасибо!
|