Type TGridCracker = Class(TStringgrid);implementationProcedure SetCaretPosition(Grid : TStringGrid; col, row, x_pos : integer); begin grid.col := col; grid.row := row; With TGridCracker(Grid) Do ...
const mbMessage = WM_USER + 1024;type ... private procedure ChangeMessageBoxPosition( var Msg: TMessage); message mbMessage; ... end; var Form1 : TForm1; msgCaption : PChar; ...
Procedure ListView2StringGrid(Listview : TListView; StringGrid : TStringGrid); const MAX_SUBITEMS = 5; var i,j : Integer; begin With ListView do for i := 0 to Items.Count-1 do begin ...
// sauvegarde de nodes avec CR (type visuel IE5) procedure SaveXmlWithCR( XmlDomNode: IXMLDOMNODE; FileName: String ); var XML: String; begin ForceDirectories(ExtractFilePath(FileName)); XML :=...
procedure TForm1.Edit1Change(Sender: TObject); var OldStart : Integer; begin With Edit1 do if Text '' then begin OnChange := nil; OldStart := SelStart; ...
procedure HorScrollBar (ListBox: TListBox; MaxWidth: integer); var i, w: integer; begin if MaxWidth >= 0 then SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0) else ...
Ce lecteur permet de lister et de lire les mp3 (après avoir sélectionné un répertoire)situés sur votre pc ou sur votre réseau local. On peut évidement avancer dans le morceauen cliquant sur la...
En réalité ceux qui utilisent linux sauront de quoi je parle.Les HowTo sont des fichiers textes qui, lus sous windows présentent des caractèresparasites qui rend leur lecture très pénible. Ce...
- Ajouter une StatusBar affichable à la demande et qui contient position du curseur, nom du fichier, majuscule ou minuscule, ....- Créer de nouvelles fonctions : GoToLine, MemoTotalChar, ...Le...
procedure TForm1.Button1Click(Sender: TObject); var OldBkMode : integer; begin With Image1.Picture.Bitmap do begin Canvas.Font.Color := clBlue; OldBkMode :=...
Version du hook clavier en utilisant le message WM_COPYDATA
Tutorial qui a pour objet la const ruction d'un composant héritée de TPanel.Différentes parties :1. Création d'une nouvelle Class héritée de TPanel2. Ajout de fonctions3. Création de...
Si vous avez des problèmes à utiliser Blockread et les fonctions dans le genre, je vouspropose une méthode simple en passant par les Streams et les records.(Ajouter des données à une image BMP &...
Quelle touche a été appuyée, où se trouve la souris ?Les Hooks peuvent répondre à bon nombre de ces questions en interceptant les différentsmessages.
Pour arriver à cette taille de l'exécutable, il n'y avait qu'une solution: utiliseruniquement les API de Windows et tout gérer soi-même.
Presque toutes les ressources que vous utilisez dans vos applications peuvent êtrestockées directement dans l'exécutable: Bitmap, icônes, curseurs, exe, MP3, ...Marche à suivre en 3 étapes.
Montre comment utiliser les fonctions de base d'un fichier ini.Deux exemples (sauvegarde d'une couleur et des éléments d'un menu) sont fournispour mieux comprendre.
uses ShellApi;{...} procedure TForm1.Button1Click(Sender: TObject); const sPath = 'c:'; var i: Integer; Icon: TIcon; SearchRec: TSearchRec; ListItem: TListItem; FileInfo:...
Vous allez pouvoir ajouter, en cours de fonctionnement de votre programme, des boutons(ou les enlever) à votre gîse dans les ToolBar.Essayez le et vous verrez que ce composant vous facilite...
Compter le nombre de mot dans une phrase ou le nombre d'occurence d'un caractère.