Recherche
1 connecté

 
ASTUCES


cliquer en haut d'une colonne pour trier.
Le nombre de téléchargement est le nombre depuis le 29/10/02
Date,
Nb téléchargts Nb comments
Auteur Nom Description
 30 Déc. 98
5 chargts
Michel Bardou Empécher l'entrée de certaines touches. Par exemple n'autoriser que les valeurs numériques. Dans un TEdit : comment empêcher l'entrée de certaine touches, par exemple n'autoriser que les valeurs numériques?
Tout simplement en créant une réponse à l'événement OnKeyPressed du TEdit faisant croire que les touches non souhaitées ont la valeur #0 : procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#8,'0'..'9',DecimalSeparator,'+','-']) then key:=#0;
end;
 21 Sept. 99
5 chargts
Michel Bardou Empécher le beep lorsque l'on appuie sur la touche entrée. Dans un TEdit : comment empécher le beep lorsque l'on appuie sur la touche entrée ? Tout simplement en créant une réponse à l'événement OnKeyPressed du TEdit faisant croire que la touche #13 (= entrée) est la touche #0 :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then key:=#0;
end;
 16 Déc. 03
7 chargts
Michel Ne plus avoir de fichiers de sauvegardes *~.* Si vous ne voulez plus avoir les fichiers de sauvegarde *.~* :
Outils / Option de l'Editeur / Affichage / décochez "Créer un fichier de sauvegarde"
 09 Nov. 97
maj
01 Déc. 99
46456 chargts
3 comment
Michel Bardou Astuces
Là, vous trouverez une page qui regroupe tout un tas d'astuces en tous genres.
 29 Déc. 02
7 chargts
Michel Bardou Voir les DLL utilisées Pour voir les DLL et autres modules utilisées par votre programme, il suffit d'ouvrir la fenêtre de module.
Pour cela, allez à : Voir / Fenêtres de débogage / Modules ou de faire Alr-Ctrl-M. Lancez le programme (f9) et vous voyez les modules utilisées.
 16 Juin 01
12 chargts
Michel Bardou astuce : Pour ouvrir la fenêtre de réglage des VOLUMES de SONS: WinExec('SNDVOL32.EXE',SW_SHOW);
 22 Mars 03
8 chargts
Michel Bardou Avoir plusieurs colonnes dans un TListBox procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.TabWidth :=50;
ListBox1.Items.Add('Hello'^I'seconde'^I'et encore une autre');
ListBox1.Items.Add('Ligne2'^I'seconde col'^I'et encore une autre');
end;
 15 Nov. 97
23723 chargts
1 comment
Michel Bardou trucs et astuces
Comment utiliser des GIFS (animés ou non) ou des JPEG
 24 Sept. 02
6 chargts
Michel Bardou Application minimisée au lancement. Pour avoir la fiche principale minimisée au lancement de l'application :
  • Mettez la propriété WindowState de la form1 à wsMinimized
  • Ajoutez dans le OnCreate de la Form1 la ligne : application.minimized;
Au lieu de la mettre dans le OnCreate, vous pouvez la mettre dans le "source du projet" avant la ligne Application.CreateForm(TForm1, Form1);
 07 Févr. 99
5 chargts
Michel Bardou connaître les modules (.DLL...) utilisés par votre programme Comment connaître les modules (.DLL...) utilisés par votre programme
Dans Delphi, lancez votre programme (F9) puis allez dans Voir / Fenêtres de déboguage / Modules. La fenêtre contient les modules en cours d'utilisation par votre application.
 28 Sept. 99
5 chargts
Michel Bardou Simuler la fonction SenKey de Visual Basic. Pour simuler la fonction SenKey de Visual Basic (28/09/99)
Récupérez sur votre CD de Delphi (en tout cas sur celui de D4 Professionnel) le fichier Sndkey32.pas qui se trouve dans le dossier Info\Extras\Sendkeys
 03 Oct. 99
5 chargts
Michel Bardou Simuler la fonction DELAY Simuler la fonction DELAY :
Utilisez la fonction Sleep(nombre_de_millisecondes);
 04 Déc. 99
5 chargts
Michel Bardou Récupérer les paramètres passés à notre application. Pour récupérer les paramètres passés à notre application faire :
for I := 1 to ParamCount do ShowMessage(ParamStr(I));
 13 Févr. 03
15 chargts
Michel Bardou Retour Chariot dans le caption d'un label ou d'un Hint Pour faire un Retour Chariot dans le Caption d'un label : Faire bouton droit sur la fiche puis "voir comme texte" puis aller éditer la ligne correspondant au caption comme suit : Caption = 'ligne 1'#13#10'ligne2'.
Cela fonctionne également pour la propriété Hint.
 30 Janv. 04
9 chargts
Michel Directive de compilation pour savoir si la version est > D4 (ou autre) Création d'une directive de compilation pour savoir si la version est > D4 (ou autre)
{$IFNDEF VER80} { Delphi 1.0 }
  {$IFNDEF VER90} { Delphi 2.0 }
    {$IFNDEF VER100} { Delphi 3.0 }
      {$IFNDEF VER120} { Delphi 4.0 }
        {$DEFINE VER_D5OuPlus}
      {$ENDIF}
    {$ENDIF}
  {$ENDIF}
{$ENDIF}
Pour l'utiliser : 
    {$IFDEF VER_D5OuPlus}// ou {$IFNDEF ....
    ....
    {$ELSE}
 27 Juin 04
7 chargts
Michel Modifier la hauteur d'un Combobox Pour modifier la hauteur d'un Combobox, il faut mettre ses propriétés
Style à csOwnerDrawFixed;
et ItemHeight à la hauteur voulue;
(Astuce donnée par JROD sur le forum)
 20 Avril 02
8 chargts
Michel Bardou Ecrire dans la barre des tâches Pour écrire dans l'icône de la barre des tâches correspondant à son application :
Application.Title:='hello word';
 16 Févr. 04
21 chargts
Michel Style Windows XP Uniquement pour D7 (et + ?)
Pour que vos applications aient le LOOK XP (sous XP), il suffit de placer le composant XPManifest (Onglet Win32) sur la fiche de votre application.
Pour Les versions antérieures de Delphi, voir l'exemple "Style Windows XP pour les WinControl (checkbox, radios, boutons, ..)."
 30 Avril 02
8 chargts
Michel Bardou TEdit : Texte aligné à droite. Pour faire en sorte qu'un TEdit voit son texte aligné à droite (placer un Edit et un Button sur la Form):
procedure TForm1.Button1Click(Sender: TObject);
var OldSysLocal:TSysLocale;
begin
OldSysLocal:=SysLocale;// pour pouvoir le remettre
SysLocale.MiddleEast := True;
Edit1.BiDiMode := bdRightToLeft;
SysLocale := OldSysLocal;
end;
 15 Juin 03
7 chargts
Michel Bardou Easter Eggs Allez dans aide/A Propos puis faire :
Alt + TEAM. Vous verrez défiler les noms de l'équipe.
Testez aussi :
Alt + DEVELOPPERS
Alt + QUALITY
Alt + VERSION
Alt + CHUCK
Alt + JEDI
puis pendant le défilement, faire curseur down et les autres flèches de direction.
D7 uniquement : maintenez enfoncées Shift+Ctrl au démarrage de Delphi et vous verrez la photo de l'équipe de développement.
 31 Août 02
7 chargts
Jean-Yves Quéinec Clic simple pour sélection de dossier dans un DirectoryList Dans une DIRECTORYLISTBOX, au lieu de s'énerver à faire un double clic pour sélectionner un dossier, il suffit de mettre la procédure suivante pour le sélectionner avec un clic normal :
procedure TForm1.DirectoryListBox1Click
(Sender: TObject); begin Directorylistbox1.opencurrent; end;
 21 Sept. 00
6 chargts
Michel Bardou Avoir accès, dans l'IDE à un composant caché par un autre Lorsque que vous avez un composant en AlClient dans une fenêtre d'un autre composant ex: une image dans un panel lui même dans une form, il est impossible de cliquer sur le panel pour avoir accès à ses propriétés dans l'inspecteur d'objet car c'est l'image que vous sélectionnez et non le panel.
Astuce: après avoir cliqué sur l'image, appuyez sur la touche Echap (=esc) vous vous retrouvez avec les propriétés du Panel dans l'inspecteur d'objet. Si vous recommencez, vous vous retrouvez avec les propriétés de la Form. En réalité, Echap fait basculer vers le composant parent de celui précédemment sélectionné.
 21 Sept. 00
7 chargts
Michel Bardou Mettre un panel sous un composant déjà en place sur la Form Cliquez sur le composants, faire couper (Ctr X) puis cliquez sur la le Panel et faire coller (Ctr V).
 22 Janv. 98
16217 chargts
Kloo (WebMaster des News nzn.fr.delphi) Placer des marques (des signets) dans un source pour pouvoir y revenir ultérieurement
Vous etes sur un bout de source et vous vous aller voir ailleurs dans l'unité et revenir rapidement : tapez :CTRL SHIFT 1 (ou un chiffre de 1 a 9 au dessus des lettres) l'éditeur met un "1" dans la marge. pour revenir vous faite CTRL 1 pour annuler la marque, soit vous vous placez sur la ligne et vous refaite CTRL SHIFT 1 soit vous vous placez ailleurs et vous refaite CTRL SHIFT 1 (= déplace la marque...)
 09 Nov. 97
11 chargts
Michel Bardou Comment indenter plusieurs lignes à la fois Comment passer de
begin
  if X >0 then x=0;
if X<0 then x=-1;
A:=truc+machintruc;

end;

A begin
        if X >0 then x=0;
if X<0 then x=-1;
A:=truc+machintruc;

end;

Sans le faire ligne par ligne ?

Sélectionnez les lignes puis faire Ctrl+Maj+i pour déplacer les lignes vers la droite ou Ctrl+Maj+u pour les déplacer vers la gauche.

 08 Sept. 99
5 chargts
Jean-Yves Queinec Positionner ou dimensionner au pixel près un composant On peut positionner ou dimensionner au pixel près un composant en utilisant Maj + touche flèchée et Ctrl + touche flèchée.
 21 Sept. 00
9 chargts
Michel Bardou Mémoriser une phrase dans l'IDE Comment dans l'IDE (= l'éditeur dans lequel vous rentrez le programme) stocker en mémoire une chaîne de caractères afin de pouvoir vous en resservir plus tard ?
Faire Maj Ctrl R puis tapez vos caractères puis de nouveau Maj Ctrl R. Vous pouvez inclure dans votre chaîne des combinaisons de touches du style Ctrl F ou F9 Pour utiliser cette chaîne : faire Maj Ctrl P. Une fois mémorisé, on peut s'en servir autant de fois que l'on veut. Alors, on met 'begin' ou 'end' dans la chaîne ? (Bon d'accord, 'end' c'est trois touches et Maj Ctrl P aussi.. je vous fait confiance pour trouver une meilleure utilisation).
 10 Sept. 98
5 chargts
Michel Bardou voir les fonctions qui sont dans une DLL Comment voir les fonctions qui sont dans une DLL (et un tas d'autres renseignements) Tout simplement à l'aide de l"apperçu rapide de windows 95 ou 98 : Dans l'explorateur de windows, cliquez sur votre fichier DLL avec le bouton droit de la souris et choisissez apperçu rapide. Vous pouvez faire la même manip sur les fichiers exe.
 16 Mai 99
5 chargts
Michel Bardou Ecrire dans un caption sur plusieurs lignes Comment écrire dans un caption sur plusieurs lignes ?
Utilisez le caracrère #13 (retour chariot) : Label1.Caption:='première ligne'+#13+'deuxième ligne';
 29 Mars 02
10 chargts
Michel Bardou Passer de D6 en D5 Pour qu'un programme fait en D6 puisse être utilisé en D5, il faut bien sur ne pas utiliser de procédure ou composant inconnus de D5 mais également que le DFM soit enregistré en format texte => sur la fiche principale, faire clic droit puis cliquer sur DFM Texte s'il n'est pas coché.
 29 Mars 02
6 chargts
Michel Bardou Passer de D5 en D4 Pour qu'un programme fait en D5 puisse être utilisé en D4, il faut bien sur ne pas utiliser de procédure ou composant inconnus de D5 mais également que le DFM ne soit pas enregistré en format texte => sur la fiche principale, faire clic droit puis cliquer sur DFM Texte s'il est coché.
 16 Juin 02
10 chargts
Mehdiz Cacher votre appli lors d'un Alt Ctrl Sup.

Comment RENDRE INVISIBLE votre application lors d'un Alt Ctrl Sup ?

procedure ctrl_alt_suppr;
var handle:integer;
    proc:function(dwProcessId: DWORD; dwType: DWORD)
     : DWORD; stdcall;
begin
Handle:=LoadLibrary('krn386.exe');
if Handle=0 then Handle:=LoadLibrary('kernel32.dll');
if Handle<>0 then
  begin
    @proc:=GetProcAddress(Handle, 'RegisterServiceProcess');
    if @proc<>nil then
    proc(0,1);
    FreeLibrary(Handle);
  end;
end;