Ver Mensaje Individual
  #5  
Antiguo 01-09-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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:y encontrarás mas información en los buscadores.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita