Nuevo en Delphi

[compuin]

Buenos dias a todos,

Soy nuevo con Delphi y estoy tratando la version 6. Me gustaria orientacion en como puedo crear 1 formulario que llame un procedimiento en un 2do formulario.

A pesar de intenralo me arroja un error de 'Undeclare identifier'

Aca el codigo

Forma Nro 1
-----------------------

Código Delphi [-]
unit Forma1;

interface

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

type
  TForma1 = class(TForm)
    Image1: TImage;


  private
    { Private declarations }
  public
    { Public declarations }
        procedure FormCreate(Sender: TObject);
  end;

var
  Forma1: TForma1;

implementation

{$R *.dfm}

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

end.

Forma Nro 2

-----------------------------

Código Delphi [-]
unit Forma2;

interface

procedure rueda;

implementation

uses Forma1;

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

end.

[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