Acceso a procedures protected en canvas.

[ecfisa]

Hola.

Te aconsejé usarlo como método de Form1 por que sólo lo aplicas a él y es buena práctica en OOP. Pero tranquilamente lo podrías declarar como un procedimiento normal, al que le pasas el formulario como parámetro, vgr.:

Código Delphi [-]
procedure DibujaForm(aForm: TForm; const NumPix: Integer);
var
  i, PixCol: integer;
  Pto: TPoint;
begin
  Randomize;
  for i := 1 to NumPix do
  begin
    PixCol := Random($FFFFFF);
    Pto.x  := Random(aForm.Width);
    Pto.y  := Random(aForm.Height);
    aForm.Canvas.Pixels[Pto.x, Pto.y] := PixCol;
  end;
end;     

// Ejemplo de uso:
procedure TForm2.Button1Click(Sender: TObject);
begin
  DibujaForm(Self, 2000);
end;

Un buen libro sobre Delphi y OOP es: La cara oculta de Delphi 4, Aquí, en el FTP de Club Delphi, encontrarás mas material interesante de lectura sobre el tema.

Una pagina de consulta muy útil es: Delphi Basics.

Algunos tutoriales:

• Learning Object Oriented Programming with Delphi
• Object Orientation overview
• Object Oriented Programming in Delphi A Guide for Beginners

y encontrarás mas información en los buscadores.

Saludos