Как сделать список с кнопками на каждом элементе в Delphi

Question

Как показано на рисунке, мне нужно создать список с кнопками на каждом элементе, одну кнопку слева от элемента, а некоторые справа внизу.

я сделать демо-приложение с помощью ListBox управления и некоторые кнопки в панели выше на ListBox, но когда ListBox прокруткой, это трудно сделать кнопки следовать ListItem.

, кто может помочь, спасибо ~~~

Answer 1

Я получил способ сделать это! Так, я отправлю Ответ на этот вопрос сам ~, но Реми Лебо вдохновило меня. в начале, я использовал DrawFrameControl(), чтобы сделать кнопку в списке. Он работает, но стиль был похож на классический стиль окна, и трудно сделать задний цвет, как в примере на рис. тогда, я использовал FillRect() и DrawEdge() сделать кнопку, я думаю, что это хорошо, вот код:

hitPoint := lst1.ScreenToClient(Mouse.CursorPos); 
    // there is a btnRect var of the Button Rect 
    edgeRect.Left := btnRect.Left - 1; 
    edgeRect.Top := btnRect.Top - 1; 
    edgeRect.Right := btnRect.Right + 1; 
    edgeRect.Bottom := btnRect.Bottom + 1; 
    // make button 
    lst1.Canvas.FillRect(btnRect); 
    // make edge, FListMouseDown is bool var and setting value at MouseDown/MouseUp Event 
    // 
    if PtInRect(edgeRect, hitPoint) and FListMouseDown then begin 
    DrawEdge(lst1.Canvas.Handle, edgeRect, EDGE_ETCHED, BF_RECT); // button down style 
    end else begin 
    DrawEdge(lst1.Canvas.Handle, edgeRect, EDGE_RAISED, BF_RECT); 
    end; 

Следующая работа сохранить Rect кнопок в памяти, написать код события ButtonOnClick, и вызов ButtonOnClick событие в ListMouseUp() Событие после того, как судья, если точка попадания мыши находится в кнопке Rect, код не имеет значения, как показано на рисунке выше, кнопки, поэтому он опущен