1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Formulaire
  5. Webdezign formulaire

Webdezign formulaire

Soyez le premier à donner votre avis sur cette source.

Vue 8 337 fois - Téléchargée 1 490 fois

Télécharger le projet
Commenter

Description

Salut à tous

Bon cette source n'a rien d'exceptionnel mais mine de rien elle est bien pratique.

c'est un générateur de formulaire.

pour stocker les infos des TEdit, TLabeledEdit, TComboBox, TColorBox, je fait une boucle avec chacun des composants, rien de nouveau aussi mais cette technique est vraiment utile quand on c'est l'utiliser.

Ensuite une fois les infos édité on sauvegarde dans un fichier WDF (ini) et on envoie un mail au WebMaster.

@++

Source / Exemple : 


{—————————————————————————————————————————————————————————————————————————}
{    Génére un formulaire *.WDF  [F9]                                     }
{—————————————————————————————————————————————————————————————————————————}
procedure Twin.Button1Click(Sender: TObject);
var
  Edit: tedit;
  LabelEdit: TLabeledEdit;
  ComboBox: TComboBox;
  ColorBox: TColorBox;
  a, b, c, d: integer;
  email, destinataire, sujet, messge, filelier: string;
begin
  if savedialog1.Execute then begin
    win.Caption := savedialog1.FileName;
    ini := tinifile.Create(savedialog1.FileName);
    try
      for a := 0 to componentcount - 1 do
        if components[a] is tedit then begin
          edit := tedit(components[a]);
          ini.WriteString('Edit', edit.Name, edit.Text);
        end;
      for b := 0 to componentcount - 1 do
        if components[b] is TLabeledEdit then begin
          LabelEdit := TLabeledEdit(components[b]);
          ini.WriteString('LabelEdit', LabelEdit.Name, LabelEdit.Text);
        end;
      for c := 0 to componentcount - 1 do
        if components[c] is TComboBox then begin
          ComboBox := TComboBox(components[c]);
          ini.WriteString('ComboBox', ComboBox.Name, ComboBox.Text);
        end;
      for d := 0 to componentcount - 1 do
        if components[d] is TColorBox then begin
          ColorBox := TColorBox(components[d]);
          ini.WriteString('ColorBox', ColorBox.Name, inttostr(colorbox.Selected));
        end;
    finally
      ini.Free;
    end;
  end;
  memo.Lines.LoadFromFile(savedialog1.FileName);
  destinataire := webmaster.Text;
  filelier := savedialog1.FileName;
  if filelier = '' then begin
    filelier := Opendialog1.FileName;
    if filelier = '' then begin
      filelier := Win.Caption;
    end;
  end;
  sujet := 'Demande de site de ' + nom_client.Text + ' ' + prenom_client.Text;
  messge := 'Si vous avez des questions n''hésité pas.' + '%0D%0A' + '%0D%0A' + 'Le reste du message est généré automatiquement, donc ne l''effacé pas !!' + '%0D%0A' + '%0D%0A' + '[Edit]' + '%0D%0A' + 'adress2_client=' + adress2_client.text +
    '%0D%0A' + 'des1_site=' + des1_site.text + '%0D%0A' + 'des2_site=' + des2_site.text +
    '%0D%0A' + '[LabelEdit]' + '%0D%0A' + 'nom_client=' + nom_client.text + '%0D%0A' + 'prenom_client=' + prenom_client.text +
    '%0D%0A' + 'adress_client=' + adress_client.text + '%0D%0A' + 'code_postal_client=' + code_postal_client.text +
    '%0D%0A' + 'ville_client=' + ville_client.text + '%0D%0A' + 'tel_client=' + tel_client.text + '%0D%0A' + 'mail_cliient=' + mail_cliient.text +
    '%0D%0A' + 'adress_ftp=' + adress_ftp.text + '%0D%0A' + 'login_ftp=' + login_ftp.text + '%0D%0A' + 'pass_ftp=' + pass_ftp.text +
    '%0D%0A' + 'nom_site=' + nom_site.text + '%0D%0A' + 'domaine_site=' + domaine_site.text + '%0D%0A' + 'webmaster=' + webmaster.text +
    '%0D%0A' + '[ComboBox]' + '%0D%0A' + 'type_site=' + type_site.text + '%0D%0A' + 'style_site=' + style_site.text +
    '%0D%0A' + 'style_menu_site=' + style_menu_site.text + '%0D%0A' + '[ColorBox]' + '%0D%0A' + 'color_principal=' + inttostr(color_principal.selected) +
    '%0D%0A' + 'color_police=' + inttostr(color_police.selected);
  email := 'mailto:' + destinataire + '?subject=' + sujet + '&body=' + messge + '&file=' + filelier;
  ShellExecute(Handle, 'open', PChar(email), nil, nil, SW_SHOW);
end;

Conclusion :


J'espère que le code sera bien formaté sinon veuillez m'excuser
pour l'exécutable changer WebDezign_Formulaire-exe en WebDezign_Formulaire.exe
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
jackalunion
Messages postés
128
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
14 juillet 2008
22 juin 2008 à 12:41
bien
craftsystem
Messages postés
143
Date d'inscription
samedi 21 juillet 2007
Statut
Membre
Dernière intervention
7 mars 2009
27 mai 2008 à 13:25
... Je vais regarder sa. Merci de l'info Cantador.
cs_cantador
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
 14
27 mai 2008 à 11:09
Bonjour craftsystem,

Une seule boucle est nécessaire.
La méthode FindComponent me semble plus adaptée..
->>> snippets
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 (craftsystem)