Unit1.pas 927 B

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051
  1. unit Unit1;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5. Dialogs, Menus;
  6. type
  7. TForm1 = class(TForm)
  8. mm1: TMainMenu;
  9. Colores1: TMenuItem;
  10. Rojo1: TMenuItem;
  11. Verde1: TMenuItem;
  12. Azul1: TMenuItem;
  13. procedure Rojo1Click(Sender: TObject);
  14. procedure Verde1Click(Sender: TObject);
  15. procedure Azul1Click(Sender: TObject);
  16. private
  17. { Private declarations }
  18. public
  19. { Public declarations }
  20. end;
  21. var
  22. Form1: TForm1;
  23. implementation
  24. {$R *.dfm}
  25. { Realiza la acción del menú de colores en Azul. }
  26. procedure TForm1.Azul1Click(Sender: TObject);
  27. begin
  28. Color := ClBlue;
  29. end;
  30. { Realiza la acción del menú de colores en Rojo. }
  31. procedure TForm1.Rojo1Click(Sender: TObject);
  32. begin
  33. Color := ClRed;
  34. end;
  35. { Realiza la acción del menú de colores en Verde. }
  36. procedure TForm1.Verde1Click(Sender: TObject);
  37. begin
  38. Color := ClGreen;
  39. end;
  40. end.