Webdezign formulaire
Soyez le premier à donner votre avis sur cette source.
Vue 7 970 fois - Téléchargée 1 445 fois
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.
@++
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
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
- Messages postés
-
4719
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 1 février 2021
14Une seule boucle est nécessaire.
La méthode FindComponent me semble plus adaptée..
->>> snippets
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.