Comment dessiner sur un TPanel

Vraiment le faire correctement, vous devriez probablement écrire une classe descendante. Remplacer le Paint méthode pour dessiner le dimensionnement de l'adhérence et de remplacer la MouseDown, MouseUp, et MouseMove méthodes pour ajouter le redimensionnement de la fonctionnalité de contrôle.

Je pense que c'est une meilleure solution que de tenter de tirer sur un TPanel dans le code de votre application pour un couple de raisons:

1. La Canvas propriété est protégée dans TPanel, de sorte que vous n'avez pas accès en dehors de la classe. Vous pouvez obtenir autour de ce type de coulée, mais c'est de la triche.
2. La "possibilité d'agrandir" sonne plus comme une caractéristique du panneau d'une fonctionnalité de l'application, afin de le mettre dans le code pour le panneau de contrôle, et non pas sur l'application du code principal.

Voici quelque chose pour vous aider à démarrer:

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;

OriginalL'auteur Rob Kennedy

La façon la plus simple de le faire est de mettre juste un TImage sur le panneau. Mais si vraiment vous ne voulez pas le faire, tapez TCanvas dans l'éditeur de code, appuyez sur F1, et amusez-vous à apprendre sur la façon dont il fonctionne sous le capot. (Ne dis pas que je ne vous avais pas prévenu...)

OriginalL'auteur Mason Wheeler