Код: Выделить всё
procedure figura(var cnv:TCanvas);
begin
{Тут рисование фигуры или чего там еще}
end;
procedure drawoncanvas(sender:TObject);
begin
if sender is TForm
then figura((sender as TForm).canvas)
else if sender is TImage
then figura((sender as TImage).canvas)
else if sender is TMyComponent
then figura((sender as TMyComponent).canvas);
{Все это прописывается для нужного количества компонентов}
end;
Например так? Можно же не на окне рисоваться а прям на рабочем столе так скажем.Код: Выделить всё
if Sender is TGraphicControl then
begin
MyCanvas := (Sender as TGraphicControl).Canvas;
// и далее обращаться к ней
end;
Вот! Именно это я и пытался вспомнить: где же определяется канвас. Так и не вспомнил. Спасибо, Игорь!Игорь Акопян писал(а):Свойство Canvas определено в классе TGraphicControl
Кликаем на панели инструментов любой контрол - давим F1, выбираем Properties и листам окно вниз до слова Canvas (или ещё какого) и читаем название класса. ))Код: Выделить всё
procedure something(sender: TObject);
var
C: TCanvas;
begin
if (Sender is TWinControl) then
begin
C := TCanvas.Create;
try
C.Handle := GetDC((Sender as TWinControl).Handle);
C.Rectangle(5,5,20,20);
ReleaseDC(0, C.Handle);
finally
C.Free;
end;
end;
end;