Développer un logiciel avec Delphi - page 7

Avec Delphi, rien n'est impossible ! Telle a été notre devise pendant des années. A la fois EDI et langage de développement (Pascal), l'outil Delphi facilite grandement la création d'applications. A l'origine, Delphi est un langage compilé qui s'execute sur des plateformes 32 bits. Depuis l'editeur a apporté de nouvelles fonctionnalités qui ne sont pas traitées sur Fobec.com.

Mini projet delphi avec Paradox et Qreport

mini projet delphi + Paradox +QreportPour les Personnes Non Branchées (Interbase ou Firebird)que Je conseil vivement de migrer vers ses derniersvu la mort certaine du BDE Encore une fois...

Charger/Enregistrer un Treeview dans un ini

procedure TreeToIni(Tree: TTreeView; INI: TIniFile; Section: string); var n: Integer; MS: TMemoryStream; tTv: TStringList; Msg: string; begin tTv := TStringList.Create; MS :=...

Lancer un fichier et attendre sa fermeture

{ce truc permet de lancer une application mais aussi d'ouvrir automatiquement l'application associée à un raccourci} uses Shellapi; function StartAssociatedExe(FileName: string; var ErrorCode:...

Retrouver la dernière occurence dans un string

function LastPos(SubStr, S: string): Integer; var Found, Len, Pos: integer; begin Pos := Length(S); Len := Length(SubStr); Found := 0; while (Pos > 0) and (Found = 0) do begin if ...

Editer une page HTML (WYSIWYG HTML)

//Ouvrir une page dans le TWebBrowser WB1 procedure TForm1.Button1Click(Sender: TObject); begin WB1.Navigate('www.fobec.com'); end; //Passer le TWebbrowser en mode édition procedure ...

Editeur de requete sql

Ce programme est didé au programmeur débutant en delphi, qui représente un editeur sql simple pour les requêtes SQL pour des base de données relationnelles telque Paradox,Dbase,excel...

Connaitre la taille des éléments d'un Mainmenu

//ajouter un TMainMenu et un TMemo à la fiche procedure TForm1.Button1Click(Sender: TObject); var r: TRect; i: Integer; begin for i := 0 to mainmenu1.Items.Count - 1 do begin ...

Détecter l'appui sur plusieurs touches simultanement

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Sh if t: TSh if tState); begin If ((GetKeyState(VK_CONTROL) AND 128)=128) and ((GetKeyState(VK_F5) AND 128)=128) and ...

Obtenir le libellé de la dernière erreur

Uses SysUtils //exemple procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(SysErrorMessage(GetlastError)); end; //donner une erreur claire pour l'utilisateur//exemple :...

File Association

Comment connaitre le nom et le chemin du programme associe à un fichier choisi.Comment en extraire une icône 16x16 pixels, la copier dans un bitmap et l’utiliser sur un bouton.Comment lancer...

Astuces Delphi

Catégorie
Résumé de la rubrique
Contenu
659 articles
Rédaction
22 auteurs
Mise a jour
21/12/2010
Partager sur les réseau sociaux