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.
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
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.