Composants30 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Un petit exemple de l'utilisation d'un ListView.

Exemple simple de manipulation d'un ComboBox.

Trier un TStringGrid suivant la première colone saisie. NOTES : Un truc tout simple pour ceux qui cherchaient...

Attention, c'est un tri à bulles. Il peut être lent si la taille de la grille est importante.

Manipulation simple de Liste.

Source montrant comment dessiner soi-même les TMainMenu et TPopupMenu ainsi que leurs items afin de personnaliser leur apparence.

Voici une classe qui permet de gérer lri d'un TListView.

Comment faire du drag and drop dans un Listbox.

Sur une idée de XeGregory, un ersatz de tableur basé sur une TStringGrid.
Accepte des expressions mathématiques avec des fonctions logarithme, exponentielle, puissance, trigonométriques etc... Ainsi que des fonctions externes déclarées dans des dll.
Références enchaînées avec mise à jour des cellules dépendantes en cascade.

Le composant TMemoGutter permet d'afficher les repères et numéros de ligne à coté d'un Mémo.
Initialement développé pour TSyntaxMemo
(https://www.developpez.net/forums/d2176089/environnements-developpement/delphi/codes-sources-telecharger/tsyntaxmemo-memo-coloration-syntaxique-tres-simple-vcl/)
il fonctionne toutefois avec tout descendant de TCustomMemo moyennant quelques restrictions dues pricipalement au fait que les évènements OnMouseWheel et OnVScroll ne sont pas disponibles dans TCustomMemo / TMemo.

Un exemple d'utilisation, pDemo, est founi. Expérimentez les différentes options.

L'exemple donné ici montre comment obtenir et modifier la position d'une fenêtre, même si celle-ci est agrandie ou réduite. Il est ainsi possible de donner la position que doit avoir la fenêtre dans son état "normal" même si celle-ci est agrandie ou réduite. De même dans le cas d'une fenêtre réduite ( hors fenêtre principale ), il est possible d'obtenir et de modifier la position de cette fenêtre réduite.

Gestion des messages windows WM_SIZING et WM_MOVING pour contrôler le dimensionnement et le déplacement d'une fiche.

Méthode pour associer une bulle d'aide différente par cellule d'un TStringGrid.

Exemple de tri par colonne d'un composant TStringGrid à l'aide d'un algorithme de tri rapide (quick sort)

Dessin à l'aide d'un StringGrid

Aligner et adapter les composants d'une fiche en fonction des changements de taille.Tous les alignements, déplacements et modifications de tailles sont effectués sans l'écriture d'une seule ligne de code. Tout est basé sur les propriétés suivantes diponibles sur tous les composants visuels :

- Anchors : permet de fixer indépendamment les quatre cotés d'un composant sur le bord correspondant de la fiche. Tous les cotés fixés conservent leur distance par rapport au coté correspondant de la fiche. Par défaut les cotés haut et gauche sont fixés, ainsi le composant reste toujours à la même distance du coin haut-gauche de la fiche. En ne fixant que deux cotés formant un angle, le contrôle garde sa taille mais se déplace afin de conserv ... Voir la suite

Ceci est pour corriger le problème de Delphi sur TRadioGroup.SetFocus, car dans ce cas le focus n'est pas placé sur un des boutons du composant. Le clavier n'est donc ensuite pas utilisable pour changer la valeur du RadioGroup.
Le code présenté ici permet de mettre le focus directement sur l'un des boutons du groupe.

Manipulation simple de Liste.

Un truc tout simple pour créer des boutons et des labels sur plusieurs lignes au moment de la conception.

Voici la méthode à suivre :
- Faire un clic droit sur la fiche ;
- Choisir "Voir comme texte" ;
- Chercher le composant dont vous voulez modifier le caption ;
- Modifier la propriété Caption comme indiqué ci-dessous dans le code en ajoutant des #13 ( caractère retour chariot ) ;
- Faire de nouveau un clic droit ;
- Choisir "Voir comme fiche".

Cette méthode ne fonctionne pas avec TButton ou TEdit.

Présentation de la fonction API d'affichage d'une fenêtre avec animation

Pour créer ce lien il faut suivre les étapes suivantes :
1 - Ajouter un label sur une fiche ;
2 - Définir un police avec le style souligné ( Label1.Font.Style=[fsUnderline] ) ;
3 - Modifier le curseur du label ( Label1.Cursor=crHandPoint ) ;
4 - Ajouter un Hint sur le label ( Label1.ShowHint=True et Label1.Hint='Visitez mon site :' ) ;
5 - Sur le OnClick ajouter le code ci-dessous :

Procedure TForm1.Label1Click(Sender: TObject);
Begin
ShellExecute(Handle,'OPEN','http://nono40.fr.st',Nil,Nil,SW_SHOW);
End;

Il faut ajouter ShellApi dans le Uses pour que le code fonctionne.