我需要在 TPanel 上绘制，最好是直接绘制，这样我就不会在它上面有另一个组件妨碍 mousevent 事件捕获（我想在它上面绘制一点“尺寸控制”）。我该怎么做呢？
【问题讨论】：
标签： delphi canvas components tpanel
这是Raize Components 可以让您的生活更轻松的众多方式之一。我只是进入 Delphi，放在 TRzPanel 上，然后输入：
RzPanel1.Canvas.Rectangle...
我确信还有其他解决方案 - 但我不必通过 Raize 寻找它们。
（只是大约 10 年的满意客户......）
编辑：鉴于您的目标以及您已经拥有 Raize 组件的声明，我还应该指出 TRzSizePanel 处理面板的大小调整和 OnCanResize 等有用事件（以确定您是否要允许调整到特定的新宽度或高度）。
【讨论】：
要真正做到这一点，您可能应该编写一个后代类。覆盖 Paint 方法以绘制大小控制夹点，并覆盖 MouseDown、MouseUp 和 MouseMove 方法以向控件添加调整大小功能。
我认为这比尝试在您的应用程序代码中使用 TPanel 更好的解决方案，原因如下：
Canvas 属性在TPanel 中受到保护，因此您无法从类外部访问它。你可以通过类型转换来解决这个问题，但这是作弊。以下是帮助您入门的内容：
type
TSizablePanel = class(TPanel)
private
FDragOrigin: TPoint;
FSizeRect: TRect;
protected
procedure Paint; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
end;
procedure TSizeablePanel.Paint;
begin
inherited;
// Draw a sizing grip on the Canvas property
// There's a size-grip glyph in the Marlett font,
// so try the Canvas.TextOut method in combination
// with the Canvas.Font property.
end;
procedure TSizeablePanel.MouseDown;
begin
if (Button = mbLeft) and (Shift = [])
and PtInRect(FSizeRect, Point(X, Y)) then begin
FDragOrigin := Point(X, Y);
// Need to capture mouse events even if the mouse
// leaves the control. See also: ReleaseCapture.
SetCapture(Handle);
end else inherited;
end;
【讨论】：
如何为在运行时调整大小的控件添加大小句柄： http://delphi.about.com/library/weekly/aa110105a.htm
【讨论】：
最简单的方法是在面板上放置一个 TImage。但是，如果您真的不想这样做，请在代码编辑器中键入 TCanvas，按 F1，然后愉快地了解它是如何工作的。 （别说我没警告过你……）
【讨论】：