[Risolto] Menu' Pop up

[Nicola]

Sto seguendo le videolezioni del Prof. Camuso (su Delphi ma vanno bene anche per Lazarus) per l'uso delle Forms; sto provando a creare un menu' pop-up (tasto dx ecc..);
però seguendo le indicazioni del Prof. quando mando in esecuzione al click del tasto dx non succede nulla; da cosa potrebbe dipendere ? (il codice mi sembra corretto);
grazie.

Codice: [Seleziona]

program LPproject1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Uunit1
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

la unit

Codice: [Seleziona]

unit Uunit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus;

type

  { TForm1 }

  TForm1 = class(TForm)
    MenuItem1: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem15: TMenuItem;
    MenuItem16: TMenuItem;
    NRosso: TMenuItem;
    NVerde: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    MenuPrincipale: TMainMenu;
    ScegliSfondoFinestra: TPopupMenu;
    procedure MenuItem10Click(Sender: TObject);
    procedure MenuItem12Click(Sender: TObject);
    procedure MenuItem17Click(Sender: TObject);
    procedure NRossoClick(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem5Click(Sender: TObject);
    procedure NVerdeClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.MenuItem4Click(Sender: TObject);
begin
  showmessage ('Hai selezionato la voce apri');
end;

procedure TForm1.MenuItem10Click(Sender: TObject);
begin

end;

procedure TForm1.MenuItem12Click(Sender: TObject);
begin
       MenuItem12.enabled:=true;
end;

procedure TForm1.MenuItem17Click(Sender: TObject);
begin
  showmessage ('on click');
end;

procedure TForm1.NRossoClick(Sender: TObject);
begin
  form1.color:=ClRed; showmessage ('Rosso');
end;

procedure TForm1.MenuItem5Click(Sender: TObject);
begin
  showmessage ('Hai selezionato la voce salva');
end;

procedure TForm1.NVerdeClick(Sender: TObject);
begin
  form1.color:=ClGreen;  showmessage ('rosso');
end;

end.

[bonmario]

Hai collegato nell'ObjectInspector il popup al componente a cui deve essere associato?

Ciao, Mario

[Nicola]

No non l'avevo collegato, infatti ora funziona perfettamente 
il bello è che nella videolezione era spiegato per bene 
grazie e scusate l'imbranaggine

[bonmario]

Sapessi quante ore ho perso io per problemi banali !!!!!

Ciao, Mario