[Aleks26]

Я имею достаточно простой пример по использованию сообщений Windows:

Код:

unit unGMMain1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
    procedure WMRButtonUp(var Msg: TWMRButtonUp); message WM_RButtonUp;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}
 Procedure TForm1.WMPaint(var Msg: TWMPaint);
 var
// R1: TRect;
 begin
  Panel1.Color := clRed;
  Beep;
   {R1 := Rect(0,0,200,200);
   Brush.Color := clYellow;
   Canvas.FrameRect(R1);}
  inherited;
 end;

 Procedure TForm1.WMRButtonUp(var Msg: TWMRButtonUp);
 Var
  pos: TPoint;
 begin
   GetCursorPos(pos);
  if (pos.X < Left+200) and (pos.Y < Top+200) then
  Close else
   begin
   Panel1.Color := clGreen;
   Panel1.Caption := 'X = '+ inttostr(Left)+'  Y = '+inttostr(Top);
   end;
  inherited;
 end;

При запуске приложения Panel1 закрашивается цветом из Инспектора объектов, а затем при нажатии и отпускании правой кнопки мыши на форме либо панель перекрашивается в зеленый цвет и на ней выводятся координаты нажатия, либо (при попадании в левый верхний квадрат размером 200) форма, а потому и все приложение закрывается.
Я хочу начертить этот квадрат (в процедуре WMPaint каким-то цветом - сейчас закомментировано), но не получается. Если заменить Canvas.FrameRect(R1) на Canvas.Rectangle(R1), бесцветный прямоугольник рисуется без проблем. Объясните кто-нибудь, почему не работают методы FrameRect или FillRect экземпляра класса TCanvas?

[YVitaliy]

Если рисуешь на канве, то свойство Brush.Color применяй для него:

Код:

Canvas.Brush.Color := clYellow;

[Aleks26]

Благодарю Вас. Еще один маленький вопрос по данному примеру: если канва пересекается с компонентом Panel1, можно ли вывести ее на передний план? Чтобы нарисованный квадрат был виден полностью?

[Pyro]

можно если это Panel2.Canvas

[Aleks26]

Я не совсем понял. Ведь компонент TPanel не имеет свойства Canvas. Как же это можно организовать?

[Pyro]

тогда на него можно paintbox положить – у него есть