|
...я использую TOutline, выровненный с помощью alLeft, и desktop, выровненной
по его правой части. Панель расположена после TOutline, и также выровнена с
помощью alLeft. Все это дело прилипает к TOutline. Я назвал новую панель
'splitter'. "Отрегулируйте" splitter под себя, сделайте его поУже, создайте
красивый контур и нарисуйте двунаправленный курсор. В приведенном ниже примере
вы можете заменить TOutLine на нужный вам компонент. Создайте обработчик события
мыши и напишите следующий код:
procedure TMainForm.SplitterMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if ssLeft in Shift then
outline.Width := outline.Width + X; {замените OutLine нужным вам объектом}
end;
|
|
Splitter Bar