Ver Mensaje Individual
  #8  
Antiguo 31-10-2016
Avatar de BDWONG
BDWONG BDWONG is offline
Miembro
NULL
 
Registrado: nov 2013
Posts: 113
Reputación: 11
BDWONG Va por buen camino
Hola te aconsejo que cuando tengas dudas diferentes no dudes en abrir otro hilo ya que se mantiene el orden.
Bueno con respecto a tu duda, una forma simple de hacerlo es pasarle la referencia del objeto TImage por parametro a la funcion Rueda
Código Delphi [-]
unit Forma2;

interface
uses
  ExtCtrls,Graphics;

procedure Rueda(var Imagen:TImage);

implementation

procedure Rueda(var Imagen:TImage);
begin
   Imagen.Canvas.Pen.Color:=clNavy;
   Imagen.Canvas.Pen.Width:=5;
   Imagen.Canvas.Brush.Color:=clYellow;
   Imagen.Canvas.Brush.Style:=bsDiagCross;
   Imagen.Canvas.Ellipse(160,10,260,110);
end;

end.

Ya habiendole especificado el parametro hay que llamar a la funcion desdel el formulario principal

Código Delphi [-]
 Rueda(Self.Image1);

La palabra Self hace referencia al formulario Forma1 pero si te confunde este concepto puede hacer esto

Código Delphi [-]
 Rueda(Form1.Image1);

Edito: Tambien simplemente basta con poner
Código Delphi [-]
Rueda(Image1);


En mi caso mi formulario se llama Form1, por ultimo evitar usar WITH.

ScreenShot


Saludos....

Última edición por BDWONG fecha: 31-10-2016 a las 02:09:11.
Responder Con Cita