Trucs et astuces 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.

Obtenir la liste des raccourcis ainsi que de l'application associée

uses Registry; procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; keys: TStringList; i: Integer; typename, displayname, server: string; begin memo1.Clear; reg :=...
delphi/truc-astuce/systeme/
le 12/12/2004
vu 672 fois
Peter Below

Obtenir un nom de fichier temporaire

function GetTempFile( const Extension: string): string; var Buffer: array[0..MAX_PATH] OF Char; aFile : string; begin GetTempPath(Sizeof(Buffer)-1,Buffer); ...
delphi/truc-astuce/autre-categorie/
le 11/12/2004
vu 919 fois
Communauté Delphi

Savoir lorsqu'un TForm passe à wsMaximized ou wsMinimized

private procedure WMSysCommand( var Msg: TWMSysCommand);message WM_SYSCOMMAND;{...}implementation{...} procedure TForm1.WMSysCommand( var Msg: TWMSysCommand); begin if (Msg.CmdType =...
delphi/truc-astuce/autre-categorie/
le 11/12/2004
vu 717 fois
Communauté Delphi

Vider le buffer du clavier/de la souris

procedure EmptyKeyQueue; var Msg: TMsg; begin while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do; end; procedure EmptyMouseQueue; var Msg: TMsg; begin while...
delphi/truc-astuce/systeme/
le 10/12/2004
vu 680 fois
Peter Below

Ajouter les evenements MouseEnter & MouseLeave sur vos composants

unit ImageEx;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TImageEx = class (TImage) private { Private declarations } ...
delphi/truc-astuce/objet/
le 10/12/2004
vu 1050 fois
Communauté Delphi

Afficher un TForm plus petit que 112 pixels

unit Unit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject);private procedure ...
delphi/truc-astuce/objet/
le 10/12/2004
vu 861 fois
Communauté Delphi

Utiliser les fonctions du Shell (Windows) pour la copie

uses Shellapi; TSHFileOpStructA = record Wnd:HWnd; wFunc:Uint; pFrom:PAnsiChar; pTo:PAnsiChar; fFlags:FILEOP_FLAGS; fAnyOperatiosAborted:Bool; hNameMappings:Pointer; ...
delphi/truc-astuce/fichier/
le 07/12/2004
vu 1411 fois
SwissDelphiCenter

Effectuer une rotation de n'importe quel angle sur un Bitmap

const PixelMax = 32768;type pPixelArray = ^TPixelArray; TPixelArray = Array[0..PixelMax-1] Of TRGBTriple; procedure RotateBitmap_ads( SourceBitmap : TBitmap; out DestBitmap : TBitmap; ...
delphi/truc-astuce/graphisme/
le 28/11/2004
vu 1695 fois
Communauté Delphi

Crypter un fichier ou un string

unit EZCrypt;{modeled by Ben Hochstrasser(bhoc@surfeu.ch) after some code snippet from borland)interface uses Windows, Classes;type TWordTriple = Array[0..2] of Word; function FileEncrypt(InFile,...
delphi/truc-astuce/autre-categorie/
le 28/11/2004
vu 882 fois
Ben Hochstrasser

Crypter un String

unit uEncrypt;interface function Decrypt( const S: AnsiString; Key: Word): AnsiString; function Encrypt( const S: AnsiString; Key: Word): AnsiString;implementation const C1 = 52845; C2 =...
delphi/truc-astuce/autre-categorie/
le 28/11/2004
vu 989 fois
Alain962

Script Delphi

Espace membre
Catégorie
Résumé de la rubrique
Contenu
528 articles
Rédaction
3 auteurs
Mise a jour
28/04/2009
Partager sur les réseau sociaux
Articles au hasard