Бъркаш :)
Шегувам се, но все пак правилото за по-просто важи за потребителя, не за разработчика - трябва да е просто за потребителя, за разработчика може да е и по - сложно.
Впрочем, вече си го направих сам и дори го интегрирах в проекта.
Постарах се да си направя универални фреймове (едва ли ще си играя да правя компонент)
В това предложение най-сложно се указа взаимодействието между универсалните фреймове (с които направих времето) и приложната форма, в която ги ползвам.

ПП
Впрочем, поиграх си да го направя да се сменя и така, че като се цъка по цифрите да се сменят подходящо (така, че твоите стрелкички нагоре/надолу си ги има :):

{}procedure TFrame_TimePickerHHMM.Label_TimeMouseDown(Sender: TObject; 

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

    var

      xDlt: integer;

    begin

      if Button=mbLeft then begin

        if Y<(Label_Time.Height div 2) then begin

          xDlt := -1;

        end else begin

          xDlt :=  1;

        end;

        if X<(Label_Time.Width div 2) then begin

          TrackBar_HH.Position := TrackBar_HH.Position+xDlt;

        end else begin

          TrackBar_MM.Position := TrackBar_MM.Position+xDlt;

        end;

//      TrackBar_Change(nil);

      end;

    end;

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Редактирано от NikB на 29.06.06 23:38.