|
Les Principaux raccourcis que nous utiliserons.
| F1 |
Aide de delphi |
| F9 |
Execute le programme |
| Ctrl+S |
Enregistrer |
| Maj+Ctrl+S |
Tout enregistrer |
| F11 |
Inspecteur d'objets |
| Maj+ Alt+F11 |
Arborscence d'objets |
| Ctrl+F2 |
Réinitialise le programme |
| Maj+F11 |
Ajouter un fichier au projet |
Commencez par créer une nouvelle application : ( Fichier / Nouveau / Application)

En language de programmation nous appellons la fiche ( Form), car celle ci fait parti des objets de classe TForm. Lorsque vous visualisez le code source du programme vous pouvez constater que votre Form1 correspond à :
type
TForm1 = class(TForm)
Pressez la touche F11 afin d'afficher l'inspecteur d'objets.
Quelques propriétés de la Form à l'aide de l'inspecteur d'objets:
Caption Corresponds au texte du titre de votre Form.
Color Couleur d'arrière plan de votre Form.
Cursor Curseur qui sera affiché lorsque le pointeur de votre souris passera sur la Form.
Height Hauteur de votre Form en pixels.
Width Largeur de votre Form en pixels.
WindowState Permet de définir si la form doit apparaittre reduite, de taille maximale ou normale à l'écran.
BorderStyle Permet de définir l'aspect de votre Form.
BorderIcons: Cette propriété permet définir les icones dans la barre de titre.
Visible: Cette propriété permet de rendre la Form visible ou invisible.
En utilisant certains composants de la palette Standard, nous allons créer notre premier programme qui permettra de modifier le caption de notre form lorsque nous cliquerons sur le bouton ou lorsque nous ecrirons dans la partie texte de notre Edit1.
En Utilisant l'inspecteur d'objets (F11) Modifiez la propriété de votre Form Height = 170 puis Width = 275.
Ensuite sur votre form insérez les composants suivant de la palette standard:
1 panel, et sur le panel insérez 1 Label, 1 Button ainsi que 2 Edit afin d'obtenir ceci.

En Utilisant l'arborscence d'objets (Maj - Alt - F11) sélectionnez votre Label1

Puis à l'aide l'inspecteur d'objets (F11) modifiez la propriété Caption de votre Label1 en écrivant Propriété caption de la Form.

Afin de vous familliariser avec l'inspecteur d'objets, modifiez aussi la propriété Font de votre Label1 en cliquant sur les ... à droite de Font
Style Gras, Effets Souligné, Couleur Bleu, Taille 8.
Name |
Palette |
Caption |
Font => |
Style |
Effets |
Couleur |
Taille |
Label1 |
Standard |
Propriété caption de la Form |
|
Gras |
Souligné |
Bleu |
8 |
Vous devriez obtenir ceci :

En Utilisant l'arborscence d'objets ainsi que l'inspecteur d'objets Mofifiez la propriété Caption de votre Panel1 ainsi que de votre Buttonl, puis la propriété Text de votre Edit1 puis Edit2.
Une Form, un Panel, un Label et bouton ont une propriété Caption
Un Edit possède une propriété Text 
Name |
Palette |
Caption |
Text |
Panel1 |
Standard |
Vide |
|
Button1 |
Standard |
Modifier |
|
Edit1 |
Standard |
|
Vide |
Edit2 |
Standard |
|
Vide |

Nous allons maintenant enregistrer notre projet ( Fichier / Tout enregistrer) ou (Maj- Ctrl-S) ou encore cliquer sur l'icone .
Enregistrez Unit1.pas sous le nom Main.pas puis Project1.dpr sous le nom de ModifierCaptionForm.dpr.
Passons maintenant au code qui permettra de modifier le caption actuel de la form et d'afficher à la place le texte que nous écrirons dans l'Edit1.
Sélectionnez votre Edit1 et dans la partie Evènement de votre Inspecteur d'objets faites un double Click gauche à droite de OnChange dans la partie vide.

Entrez le code suivant puis pressez la touche F9
procedure TForm1.Edit1Change(Sender: TObject);
begin
Form1.Caption := Edit1.Text; //Code à écrire.
end;
Si tout c'est déroulé correctement, ce que vous écrirez dans l'Edit1 apparaittra sur le caption de votre form.

Passons maintenant au code qui permettra de modifier le caption actuel de la form et d'afficher à la place le texte que nous écrirons dans l'Edit2 lorsque nous cliqueront sur le bouton (Button1) .
Sélectionnez votre bouton (Button1) et dans la partie Evènement de votre Inspecteur d'objets faites un double Click gauche à droite de OnClick dans la partie vide.

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption := Edit2.Text; //Code à écrire.
end;
Enregistrer votre projet delphi en cliquant sur , puis presser la touche F9.

---- FIN ----
Le 16 Novembre 2007
 Télécharger le code source  
Vous pouvez utilisez l'aide de delphi en cliquant sur votre Form puis en pressant F1, afin d'avoir toutes les informations au niveau des propriétés, des évenements ainsi que des Exemples disponibles.
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
procedure Edit1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1Change(Sender: TObject);
begin
Form1.Caption := Edit1.Text; //Code à écrire.
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption := Edit2.Text; //Code à écrire.
end;
end.
|