Nuevo en Delphi

[BDWONG]

El uses debe ir en la Unit Forma1

Código Delphi [-]
var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Forma2;



procedure TForm1.FormCreate(Sender: TObject);
begin
  Rueda();
end;

end.

[compuin]

Gracias

Hice la correccion pero en la Unit 2 me sigue apareciendo una linea roja sobre la funcion showmessage

unit Forma2;

interface

procedure rueda;

implementation


procedure rueda;
begin
showmessage('funciona');
end;

end.

Aparentemente algo no esta bien en el llamado de la showmessage

Atento a sus comentarios

[BDWONG]

Necistar importar la Unit Dialogs para mas informacion revisa el enlace
http://www.delphibasics.co.uk/RTL.as...dCode1=Yes#Ex1

Código Delphi [-]
unit Forma2;

interface
uses
  Dialogs;

procedure rueda;

implementation


procedure rueda;
begin
showmessage('funciona');
end;

end.

[compuin]

Mil gracias amigo...lo acabo de probar y funciona


Saludos

[compuin]

Cambiando un poco ahora el showmessage por una Imagen en el Form1.

Necesito que el Form1 al arrancar me muestre en un rectangulo y la funcion que lo hace esta en la Unit2

Algo asi,

unit Forma1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
Forma1 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;

procedure FormCreate(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Forma1: TForma1;

implementation

uses
Unit2;

{$R *.dfm}


procedure TForma1.FormCreate(Sender: TObject);
begin
Rueda;
end;

end.

////---------------------------------------------

Unit Forma2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, ExtCtrls, Math, StdCtrls, Buttons;

procedure rueda;

implementation

procedure rueda;
begin
with TForma1.Image1.Canvas do
begin
Pen.Color := clNavy;
Pen.Width := 5;
Brush.Color := clYellow;
Brush.Style := bsDiagCross;
Ellipse( 160, 10, 260, 110 );
end;
end;

end.


Solo cambie el showmessage pero no genera la rueda,,,sigue el mismo error de Undefined identifier

[Casimiro Noteví]

1:
Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

2:
Recuerda poner los tags al código fuente, ejemplo:



Gracias

3:
No olvides poner títulos descriptivos a tus preguntas, "Nuevo en Delphi" no es un título que describa el problema que quieres resolver. Gracias.

[BDWONG]

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....

[compuin]

Muchisimas gracias.

Logro funcionar