Ver Mensaje Individual
  #2  
Antiguo 31-10-2016
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.234
Reputación: 20
ElKurgan Va camino a la fama
Si el código que has publicado está completo, en la Forma2 no puede ver el TForm1 de ninguna manera. Tendrías que añadirlo a una clausula uses del Forma2.

Yo lo que haría (sobre todo para evitar acoplamiento entre una función y un formulario) sería poner esto:

Código Delphi [-]
procedure rueda(MiCanvas: TCanvas);
begin
  MiCanvas.Pen.Color := clNavy;
  MiCanvas.Pen.Width := 5;
  MiCanvas.Brush.Color := clYellow;
  MiCanvas.Brush.Style := bsDiagCross;
  MiCanvas.Ellipse( 160, 10, 260, 110 );
end;

Y lo llamaría desde Forma1 como

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

Un saludo
Responder Con Cita