1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
| unit Unit1;
interface
uses
Windows, Messages, Menus, Classes, ActnList, SysUtils, Variants, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
ActionList1: TActionList;
MainMenu1: TMainMenu;
Edition1: TMenuItem;
Objet1: TMenuItem;
Liaisons1: TMenuItem;
N1: TMenuItem;
Allerligne1: TMenuItem;
Remplacer1: TMenuItem;
Chercher1: TMenuItem;
N2: TMenuItem;
Collagespcial1: TMenuItem;
Coller1: TMenuItem;
Copier1: TMenuItem;
Couper1: TMenuItem;
N3: TMenuItem;
Refairecommande1: TMenuItem;
Dfaire1: TMenuItem;
procedure Coller1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Coller1Click(Sender: TObject);
begin
Application.Messagebox(PChar(Coller1), 'Look', MB_OK);
end;
end. |
Partager