Mes premiers pas de delphi 7 sur youtube

Fermé
PhilTony Messages postés 31 Date d'inscription lundi 10 juillet 2006 Statut Membre Dernière intervention 22 février 2013 - Modifié par PhilTony le 6/03/2012 à 10:00
Bonsoir,

J'ai un problème a la compilation de ce petit programme ligne 30.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Label1: TLabel;
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
Procedure Tform1.Button1Click(Sender: Tobject);
begin
form1.color:=clred;
end;

Procedure Tform1.Button2Click(Sender: Tobject);
begin
form1.color:=clblue;
end;

Procedure Tform1.Button3Click(Sender: Tobject);
begin
form1.color:=clwhite;
end;

Procedure Tform1.Button4Click(Sender: Tobject);
begin
form1.color:=clskyblue;
end;

Procedure Tform1.Button5Click(Sender: Tobject);
begin
form1.color:=clbtnface;
end;

Procedure Tform1.Button6Click(Sender: Tobject);
begin
close;
end;
end.


Après compilation.

[Erreur] Unit1.pas(30): Identificateur non déclaré : 'Button1Click'
[Erreur] Unit1.pas(30): ';' attendu(e) mais '(' trouvé(e)
[Avertissement] Unit1.pas(35): Texte après le 'END.' final ignoré par le compilateur
[Erreur fatale] Project1.dpr(5): Impossible de compiler l'unité utilisée 'Unit1.pas'
A voir également: