Не работает Canvas на панели (Panel1)

[nick17]

Доброго времени суток! У меня есть Форма (MainForm), и на ней панель (Panel1). И на панели (Panel1) сообщение клика мыши:

procedure TMainForm.Panel1Click(Sender: TObject);
begin
  Canvas.MoveTo(0,0);
  Canvas.Pen.Color := $FFFF00;
  Canvas.LineTo(100,100);
end;

и вобще ниче не работает)) а хочется, чтоб нарисовалась линия на панели.

если че:
не на панели все работает!

procedure TMainForm.FormClick(Sender: TObject);
begin
  Canvas.MoveTo(0,0);
  Canvas.Pen.Color := $FFFF00;
  Canvas.LineTo(100,100);
end;

пасибки))

[Sam Gold]

А у TPanel есть сойство Canvas ? Создай свой элемент со свойством Canvas.
Например:

type
  TMyPanel = class(TPanel)
//================
public
  property Canvas;
//===========
end;

Далее в проекте подключаешь юнит со своим элементом и создаешь

type
  TForm1 = class(TForm)
//=====================

    Panel1: TMyPanel;
//=====================
end;

//======================

procedure TForm1.Panel1Click(Sender: TObject);
begin
Form1.Panel1.Canvas.MoveTo(0,0);
Form1.Panel1.Canvas.Pen.Color := $FFFF00;
Form1.Panel1.Canvas.LineTo(100,100);
end;

[nick17]

procedure TForm1.Panel1Click(Sender: TObject);
begin
Form1.Panel1.Canvas.MoveTo(0,0);
Form1.Panel1.Canvas.Pen.Color := $FFFF00;
Form1.Panel1.Canvas.LineTo(100,100);
end;

я последнее не понял у Sam Gold((



Я понял, как делать Canvas на панели (TMyPanel)!

unit Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Player,MPlayer, StdCtrls, ExtCtrls,DisplayPanel, Menus,Vfw;

  
type
  TMainForm = class(TForm)
  .........  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TMyPanel = class(TPanel)
//================
public
  property Canvas;
//мне еще и нужен мессажд
  procedure CanvasClick(Sender: TObject);
//===========
end;



var
  MainForm: TMainForm;
  Panel: TMyPanel;

 implementation

{$R *.dfm}


procedure TMainForm.FormCreate(Sender: TObject);
begin
Panel:=TMyPanel.Create(Self);
Panel.Width:=300;
Panel.Height:=300;
Panel.Parent:=MainForm;
OnClick:=Panel.CanvasClick;
end;

procedure TMyPanel.CanvasClick(Sender: TObject);
begin
//мессажд кликается за пределами панели - Panel.Canvas работает
//а в пределах панели ничего не происходит
  Panel.Canvas.MoveTo(0,0);
  Panel.Canvas.Pen.Color := $FFFF00;
  Panel.Canvas.LineTo(100,100);
end;
......
end.

мессажд кликается за пределами панели и Panel.Canvas рисуется
а в пределах панели ничего не происходит((
может быть надо не так, не OnClick:=Panel.CanvasClick;((
а мне нужно, чтоб мессажд кликался на панели и рисовалось Panel.Canvas, а вне панели ниче не рисовалось)
пасиба))