Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problema con PopupMenu (https://www.clubdelphi.com/foros/showthread.php?t=51491)

angelp4492 17-12-2007 16:04:59

Problema con PopupMenu
 
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 17-12-2007 16:21:18

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 17-12-2007 16:48:58

Eso mismo llevo haciendo un rato y me da error

este es el codigo que tengo

angelp4492 17-12-2007 16:52:46

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 17-12-2007 17:04:49

Cita:

Empezado por angelp4492 (Mensaje 253109)
Eso mismo llevo haciendo un rato y me da error

Que error te da?

Chris 17-12-2007 17:05:36

Cita:

Empezado por angelp4492 (Mensaje 253109)
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 17-12-2007 17:13:43

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


La franja horaria es GMT +2. Ahora son las 11:29:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi