FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#1
|
|||
|
|||
Nuevo en Delphi
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 -----------------------
Forma Nro 2 -----------------------------
Última edición por ecfisa fecha: 31-10-2016 a las 19:01:49. Razón: Agregar etiquetas [delphi] [/delphi] |
#3
|
|||
|
|||
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 |
#4
|
||||
|
||||
Necistar importar la Unit Dialogs para mas informacion revisa el enlace
http://www.delphibasics.co.uk/RTL.as...dCode1=Yes#Ex1
|
#5
|
|||
|
|||
Mil gracias amigo...lo acabo de probar y funciona
Saludos |
#6
|
|||
|
|||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
nuevo en delphi | Kastore | Varios | 5 | 09-10-2010 00:12:05 |
Nuevo en el club, nuevo en el trabajo, nuevo en la vida | winzo | La Taberna | 26 | 29-04-2008 19:13:52 |
Nuevo con Delphi | jose6106 | Varios | 2 | 03-01-2008 15:57:35 |
Nuevo update para delphi 2007 / delphi .net | avmm2004 | Noticias | 0 | 18-12-2007 20:19:25 |
Lo nuevo en delphi 6 | frankmch | Noticias | 5 | 11-09-2003 17:04:42 |
|