Profil de Sat83

Opendialog empecher le deplacement

Bonjour a tous! J'utilise le composant TOpenDialog pour sélectionner un fichier, mais je souhaiterais empêcher le comportement type "explorateur" de cette boite de dialogue (déplacement ou suppression de fichier/dossier, etc...) Merci d'avance pour votre aide.

C'est ce que je suis en train de faire à partir des composant de l'onglet Win3.1 C'était juste pour savoir si il n'y avait pas une autre solution en utilisant OpenDialog...

Clipboard avec Ctrl + C [Résolu]

Bonjour à toutes et à tous, Je me suis documenté sur la façon d'utiliser le clipboard en général et pris connaissance de tous les formats. J'ai aussi examiné attentivement les sources excellentes de Mauricio et Caribensila à ce sujet. Dans l'ensemble, je n'ai pas trouvé la façon logique de copier une image d'un dossier avec la co... Lire la suite

Je ne suis pas sûr d'avoir bien compris ta question... Pourquoi passe tu par le ClipBoard? Un simple CopyFile ne ferait-il pas l'affaire?

memo1.Lines [Résolu]

slt qui, peu m'aide comment faire un botton qui peu compter tout les ligne de memo1 est affiche le resultat .merci davance et merci Encore Une fois .

Tu peux recupérer le nombre de ligne par: Memo1.Lines.Count Et pour afficher : Label1.Caption = IntToStr( Memo1.Lines.Count ) ; ShowMessage( 'il y a ' + IntToStr( Memo1.Lines.Count ) + ' lignes' ) ;

DBGrid selection multiple (Shift + Click) [Résolu]

Bonjour! Alors je suis confronter a un problème, et je n'ai pas trouver de réponses sur le net, donc je m'en remet à vous... J'ai un DBGrid ayant la propriété dgMultiSelect (dans Options) à true pour permettre de sélectionner plusieurs lignes. Ca marche en utilisant Ctrl+Click, mais ca ne marche pas en faisant Shift+Click (select... Lire la suite

Effectivement j'ai vu cette source et j'ai tenté de m'en inspiré. Ça ne fonctionnait pas pour moi pour un certain nombre de raisons. Au final j'ai réaliser ma propre fonction et ça marche. Merci en tout cas!

premier élement d'un TDataset

Bonjour a tous! Alors j'ai une petite question suite a un problème qui m'a sembler simple à la base, mais au final pas tant que ça. Alors voici un exposer simplifier du problème : J'ai un TQuery, un TDataSource et un TBGrid reliés entre eux. J'ai donc dans mon DBGrid les résultats de ma requête. Le problème c'est que j'aimerai... Lire la suite

En attendant de trouver mieux, je sauvegarde le premier enregistrement lors de l'ouverture de ma requete : ------------------ myQuery.Active := true ; ValeurDuPremierEnregistrement := myQuery.FieldByName("NOM_CLEF_PRIMAIRE").AsInteger ; ------------------ et ensuite au niveau de mon test : --------------------------- if...

Rafraichissement DBGRID [Résolu]

Bonjour, J'ai une petite question concernant le rafraichissement de mon DBGRID... Mon DBGRID contient plusieurs centaine de lignes. Lorsqu'une ligne est sélectionné, il est possible de la modifié en cliquant sur un bouton modifié. ( Une fois valider, j'utilise un TQuery pour faire un Update de cette ligne dans la base). Une f... Lire la suite

J'ai ajouter les DisableControls avant et EnableControls après, mais j'ai toujours le même comportement...

J'ai simplement fais : ----------------------------------------- var bm : TBookmark; bm := myQuery.GetBookMark; [...] myQuery.Active := false ; myQuery.Active := true; myQuery.GotoBookmark(bm); myQuery.FreeBookmark(bm); ----------------------------------------- Et là dans mon DBGRID je me retrouve effctivement positionné...

J'ai trouvé une solution qui fais presque l'affaire en utilisant GetBookMark , GotoBookmark et FreeBookmark. Ca marche nickel si ce n'est que la ligne où je me trouvais avant le rafraichissement se retrouve centrée au mileu du DBGRID. Si quelqu'un a la solution pour se retrouver exactement a la même position (même ligne + même posi...

Créer Questionnaire [Résolu]

Bonjour tout le monde; Je dois créer un questionnaire en deplhi, mais par étape: C-A-D 1ère question, je rempli le formulaire, et là, un message apparait me disant si j'ai bon ou si j'ai faux, et en même temps, là fenêtre se quitte et passe à la question d'après. Comment procéder ? Merci

Plusieurs remarques: - tu peux creer des fonction/procedure pour les trucs qui se repetent. -Pour tes variables globales (TStringList...), tu peux les déclarer dans ta classe (je l'avais mis dans mon exemple, je ne sais pas pourquoi tu les as enlevés?) - petit conseil: essai d'avoir un programme complet et qui marche avant d'ajoute...

Si c'est bon j'ai corrigé ton script Juste pour infos, qu'a tu corrigé dans mon code? parce que je l'ai tester et a prioris il n'y avait pas d'erreur?

C'est mon jour de bonté, mais le but c'est que tu trouve par toi même, pas que quelqu'un d'autre fasse le programme Voilà quelques amélioration : interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) EdtReponse: TEdit; LblQue...

Avec une icône en plus : Application.MessageBox('blablablablablablablablablabla','TITRE DU MESSAGE',MB_ICONINFORMATION + MB_OK) ; Et n'oublis pas de détruire les TStringList que tu a crées, c'est très important ! Dans l'inspecteur d'objet de ta Form1, tu va dans l'onglet Evenement, tu va dans OnDestroy et tu double clique, ca te ...

Pour choisir le titre de ton message d'appreciation tu peux utiliser : Application.MessageBox('MESSAGE', 'TITRE MESSAGE', MB_OK); sinon regarde du coté de MessageDlg dans l'aide .

Ah oui, il va de soit que ce que je t'ai proposé n'est qu'une ebauche, tu va vite tombé sur des problèmes et exceptions (fichier non trouvé, indice de liste hors limite, etc...). Le but c'est que tu prenne en compte ces problèmes quand tu tombera dessus, et tenté de les resoudres par toi même. Et petit a petit tu améliorera ton ap...

Un point de départ simple pour commencer : - tu crée deux fichier contenant la liste des question (question.txt) et la liste des reponses (reponse.txt) - sur ta forme tu place un label, un edit et un bouton - en variable globale (ou mieux en donnée membre privée de ta classeTForm1 si tu sais ce que c'est) tu creé: >2 TStringList...

Incompréhensible [Résolu]

Bonjour, Je me permet de solliciter à nouveau votre aide. Voila je ne comprend pas un problème... Pourquoi une instruction que je répète 361 fois fonctionne si je saisis 361 fois les instructions correspondantes et ne fonctionne pas dans une boucle for i:=0 to 361 do : J'ai uploadé mon projet sur free.fr à l'adresse suivante :... Lire la suite

Bonjour, Qu'est ce qui pose problème exactement? Poste le bout de code posant problème ici, je pense que ce sera mieux.

Interroger le buffer clavier

Bonjour, pour un projet, je souhaiterai savoir comment interroger le buffer clavier. Par exemple, je souhaiterai savoir quand l'utilisateur aura taper les 3 touches "Control", "Alt","F1" afin de déclencher une action particulière. Quelqu'un aurait-il déjà eu recours à l'interrogation du buffer clavier ? Merci Cordialement Frank Lire la suite

Bonjour, Pour effectuer ce genre d'action, pour ma part j'utilise le composant HotKeyManager disponible sur cette page. Il est assez simple d'utilisation, documenté et avec plusieurs exemples pour comprendre comment l'utiliser. En esperant avoir pu aidé.

question sur les thread [Résolu]

Bonjour a tous, J'ai une petite interrogation concernant les threads. Je souhaite arreter mon application a une heure précise. Mon programme fonctionne parfaitement, et actuellement j'utilise un TTimer avec un Interval de 10 secondes qui regarde que l'heure fixée n'est pas arrivée. Si elle est arrivée, l'application se ferme. Ju... Lire la suite

Merci a tous pour vos moultes idées et conseils! Je testerais tous ça dès que j'aurais un moment, mais en tous cas j'en sais déja beaucoup plus sur le sujet! Merci.

Merci pour ta solution! Y'aurait-il un moyen de tenter de fermer le programme "normalement" dans le thread, de detecter si c'est pas possible, et dans ce cas là seulement forcer la fermeture avec TerminateProcess ?

Pour l'instant j'en suis a la solution avec le Timer. J'envisage de passer a la solution avec un second thread, mais seulement si c'est utile. C'est pour cette raison que j'ai preféré poser la question avant de me lancer dans un developpement inutile qui m'aurait amené au même resultat. Dans ce que j'imaginais comme solution, dans ...