Développer un logiciel avec Delphi - page 8

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.

o_Cards.dll v1.2

Pourquoi ne pas développer un jeu de cartes ? Votre conjoint, vos enfants, vos amis adorent passer le temps en jouer au solitaire, grimpette, ramis, poker, ... Développement classique d'un jeu de...

Trier un TStringgrid

procedure SortStringGrid( var GenStrGrid: TStringGrid; ThatCol: integer); const TheSeparator = '@'; var CountItem, I, J, K, ThePosition: integer; MyList: TStringList; MyString, TempString:...

O_Cards.dll Demos

Ensemble de programmes avec leurs sources pour servir d'exemple à l'utilisation de o_Cards.dll, une dll permettant de programmer des jeux de cartes sans avoir à se soucier de la gestion...

Detecter l'existance des ScollBar

procedure TForm1.Button1Click(Sender: TObject);//Detecter l'existance des ScollBar par exemple sur un memo var WinStyle: HWND; begin //Récupérer des informations sur TControl dans la var iable...

Déplacer le curseur du memo en fonction de la position de la souris

procedure TForm1.Memo1MouseMove(Sender: TObject; Sh if t: TSh if tState; X, Y: Integer); begin Memo1.SelStart := LoWord(SendMessage(Memo1.Handle, EM_CHARFROMPOS, 0, MakeLParam(X, Y))); ...

Ajouter une seconde, minute ou heure à un TDateTime

procedure TForm1.Button1Click(Sender: TObject); var dTime: TDateTime; begin // Ajouter une seconde à dTime//1sec = 1/(24h x 60 min x 60 sec) dTime := now; dTime := dTime + 1.0 / 86400; ...

Intercepter couper/copier/coller dans un TEdit

unit MyEdit;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, stdctrls, clipbrd;type TPreventNot if yEvent = procedure (Sender: TObject; Text: string; var...

Mettre des lignes en couleur dans un TRichedit

{ 1. Exemple: Ajouter une ligne en couleur dans un TRichedit} procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor); begin with ARichEdit do begin SelStart :=...

Vérifier la validité d'un nom de fichier

function IsValidFileName(Filename : string;IsLong : boolean) : boolean; const ShortForbiddenChars : set of char=[';','=','+','','|','"','[',']',' ','',#39]; ...

Trouver le répertoire temporaire de Windows avec les API

uses Windows; function GetWindowsTempDir : string; var PPath : array[0..255] of char; begin GetTempPath (SizeOf (PPath), PPath); result := strpas(PPath); end;

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