Sur delphi 'caption' me fait défaut.
Résolu
PhilTony
Messages postés
31
Date d'inscription
Statut
Membre
Dernière intervention
-
PhilTony Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
PhilTony Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
Bonjour chers amis,
Je suis entrain d'apprendre le delphi pour cela, j'ai delphi 6 et delphi 7 pour débuter. Ma question est la suivante quand j'utilise le bouton `édit' de la barre ni dans le 6 ni dans le 7 il n'y a la possibilité d'effacer l'intérieur édit 1 et édit 2 et pour programmer une simple addition sur la feuille de travail.
Pourriez-vous me dire après avoir sélectionné la cellule `édit' ou passe le choix `caption' pour pouvoir effacer l'intérieur. J'ai vu pas mal de tuto mais personnes en parle. Merci.
Cordialement.
Je suis entrain d'apprendre le delphi pour cela, j'ai delphi 6 et delphi 7 pour débuter. Ma question est la suivante quand j'utilise le bouton `édit' de la barre ni dans le 6 ni dans le 7 il n'y a la possibilité d'effacer l'intérieur édit 1 et édit 2 et pour programmer une simple addition sur la feuille de travail.
Pourriez-vous me dire après avoir sélectionné la cellule `édit' ou passe le choix `caption' pour pouvoir effacer l'intérieur. J'ai vu pas mal de tuto mais personnes en parle. Merci.
Cordialement.
A voir également:
- Sur delphi 'caption' me fait défaut.
- Delphi 7 - Télécharger - Langages
- Ouvrir avec par défaut - Guide
- Dns par defaut - Guide
- Google page d'accueil par défaut - Guide
- Windows 11 clic droit afficher plus d'options par défaut - Guide
2 réponses
La classe TEdit n'a pas de propriété Clear par de faut ni de propriété Caption, pour effecer le contenu d'un TEdit il faut simplement nitialiser sa valeur Text et lui assigner une chaine vide :
Pose sur la fiche Form1 deux composants TEdit soit Edit1, Edit2 et deux composants TButton soit Button1, Button2 et en fin un composant TLabel soit Label1.
Double-Clique respectivement sur Button1, Button2, selectionne les deux squelettes de code generés,copie le code suivant et colle-le sur le code selectionné, compile, clique sur Button1 vois ce qui sepasse et clique sur Button2, l'exemple est assez parlant.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := '1234';
Edit2.Text := '4321';
Label1.Caption := IntToStr(StrToInt(Edit1.Text)) +
IntToStr(StrToInt(Edit2.Text));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text := '';
Edit2.Text := '';
Label1.Caption := '';
end;
end.
Pose sur la fiche Form1 deux composants TEdit soit Edit1, Edit2 et deux composants TButton soit Button1, Button2 et en fin un composant TLabel soit Label1.
Double-Clique respectivement sur Button1, Button2, selectionne les deux squelettes de code generés,copie le code suivant et colle-le sur le code selectionné, compile, clique sur Button1 vois ce qui sepasse et clique sur Button2, l'exemple est assez parlant.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := '1234';
Edit2.Text := '4321';
Label1.Caption := IntToStr(StrToInt(Edit1.Text)) +
IntToStr(StrToInt(Edit2.Text));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text := '';
Edit2.Text := '';
Label1.Caption := '';
end;
end.