Problema con PopupMenu

[angelp4492]

Hola como estan?
Pues veran Tengo una duda, tengo un formulario donde tengo un control TlistView con unas lineas agragadas y esta la tengo linkada al popupmenu para que cuando pinche en algun elemento se despliegue el menu de opciones a realizar, Pues bien aqui es donde tengo la duda no se bien como mostrar otro formulario desde el popup, podrian darme un ejemplo
gracias de antemano
pd..no se si me he explicado bien

[[Chris]]

Hola, loa lógico a entender es que quieres llamar o mejor dicho, mostrar un formulario cuando se hace click en algún elemento del popupmenu, bien:

Código Delphi [-]
Procedure TForm1.MiPopUpMenu1OnClick(Sender:TObject);
Begin
Form2.Show;
end;

en esencia ese sería el código, pero me queda una duda, a si te referías a mostrar el formulario empotrado en el menu?. Cosa que no sé como se hace, pero estoy seguro que hasta cierta medida lo podrías lograr.

Saludos.

[angelp4492]

Eso mismo llevo haciendo un rato y me da error

este es el codigo que tengo

[angelp4492]

codigo delphi[-]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, te_forms, Menus, ComCtrls, te_controls,unit2;
type
TForm1 = class(TForm)
lista: TTeListView;
TePopupMenu1: TTePopupMenu;
CustomItem1: TTeItem;
CustomItem2: TTeItem;
procedure CustomItem1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
form2: Tform2;
implementation
{$R *.dfm}
procedure TForm1.CustomItem1Click(Sender: TObject);
begin
form2.Show;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.


unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm2 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
uno :Tform2;
implementation
uses unit1;
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
end;
end.

[Tal]

Empezado por angelp4492

Eso mismo llevo haciendo un rato y me da error

Que error te da?

[[Chris]]

Empezado por angelp4492

Eso mismo llevo haciendo un rato y me da error

este es el codigo que tengo

¿Ya has creado el form?

Código Delphi [-]
procedure TForm1.CustomItem1Click(Sender: TObject);
begin
Application.CreateForm(TForm2,Form2);  // <--- aquí creo el form.
  form2.Show;
end;

Además que tipo de error te da?

[angelp4492]

Has dado en el clavo D&W, me faltaba crear el form se me habia olvidado
gracias..