(p'tit exemple) simplifiez vous la vie

Télécharger le projet
Commenter

Description

P'tit exemple de code qui peut vous simplifiez la vie (Mai 2004)
----------------------------------------------------------------

Ce petit bout de code peut je pense vous simplifiez la vie
si vous etez comme moi et que vous detestez tapez et retapez
la meme chose !

Lors de la creation d'une application on doit bien souvent retaper le meme
code pour faire apparaitre les boutons, les panels, les rendre actifs
inactifs, visible, invisible etc.....Bref chiant quoi !


c'est vrai qu'on pourrait faire du copier coller mais bon
pourquoi ne pas cree une procedure qui par
un simple appel
s'en chargera et nous simplifira donc la VIE....

Ce n'est q'un exemple qui montre la creation d'une procedure qui active desactive les menus, panel et et mets a blanc les edit

Voila j'ai mis des commentaires...

Tout est dans le .zip

Source / Exemple : 


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Shellapi, Buttons, ExtCtrls, Menus;

type
  TFpanel = class(TForm)
    Panelajout: TPanel;
    Editnom: TEdit;
    Editprenom: TEdit;
    bajouter: TBitBtn;
    bannuler: TBitBtn;
    Menu: TMainMenu;
    Fichier1: TMenuItem;
    Ouvrir1: TMenuItem;
    Fermer1: TMenuItem;
    N1: TMenuItem;
    Quitter1: TMenuItem;
    Divers1: TMenuItem;
    Monsite1: TMenuItem;
    Mecrire1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Quitter1Click(Sender: TObject);
    procedure Ouvrir1Click(Sender: TObject);
    procedure Fermer1Click(Sender: TObject);
    procedure Monsite1Click(Sender: TObject);
    procedure Mecrire1Click(Sender: TObject);
    procedure bannulerClick(Sender: TObject);
    procedure bajouterClick(Sender: TObject);
     //declaration
    procedure ouvre();
    procedure ferme();
     //edit a blanc
     procedure blanc();
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Fpanel: TFpanel;

implementation

{$R *.dfm}

//DEMARRAGE PROGRAMME
procedure TFpanel.FormCreate(Sender: TObject);
begin
fpanel.Top:=150;
fpanel.Left:=150;
fpanel.Width:=800;
fpanel.Height:=500;
end;

//TERMINE TOUT
procedure TFpanel.Quitter1Click(Sender: TObject);
begin
application.Terminate;
end;

//OUVRE  LE PANEL
procedure tfpanel.ouvre;
begin
panelajout.Visible := true; //affiche le panel
ouvrir1.Enabled := false;  //MENU OUVRIR EN GRISE
fermer1.Enabled := true;   //MENU FERMER OK
editnom.setfocus;          //PLACE LE FOCUS
end;

//FERME LE PANEL
procedure tfpanel.ferme;
begin
panelajout.Visible := false;  //FERME LE PANEL
fermer1.Enabled := false;     //MENU FERMER EN GRISE
ouvrir1.Enabled := true;     //MENU OUVRIR OK
end;

//EDIT A BLANC
procedure tfpanel.blanc;
begin
editnom.Text := '';
editprenom.text := '';
end;

//APPEL OUVRIR
procedure TFpanel.Ouvrir1Click(Sender: TObject);
begin
ouvre();
end;

 //FERMER
procedure TFpanel.Fermer1Click(Sender: TObject);
begin
ferme();
end;

//BOUTON ANNULER
procedure TFpanel.bannulerClick(Sender: TObject);
begin
//MISE A BLANC
blanc();

end;

//AJOUTER
procedure TFpanel.bajouterClick(Sender: TObject);
begin
 if (editnom.Text <> '') then
    begin
     //MESSAGE
      if messagedlg('Souhaitez vous enregistrer '+ editnom.text + ' ' +editprenom.text + ' ' +'?',mtconfirmation,[mbyes,mbno],0)=mryes  then
      else blanc(); //mets a blanc 
    end
 else
   begin
    showmessage('Le champ nom est vide, veuillez le remplir svp!');
    editnom.setfocus;  //PLACE LE FOCUS
   end;

end;

end.

Conclusion :


Enjoy

Jimmy

Mon site web
http://membres.lycos.fr/annmysql/
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_jimmy69)