Цитата:
|
Сообщение от Drozh
а вот так, пишешь процедуру
[code]
procedure TForm1.PanelMouse(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Panel: TPanel;
begin
Panel := (Sender as TPanel);
|
замени Panel := (Sender as TPanel) на
(TPanel(Panel))