WhiteHippo 2

Membre
Inscription
14 août 2004
Dernière intervention
5 avril 2012
Interventions
1 154
Site Web
http://perso.orange.fr/5TTic/
Signature
Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein

Combinaison de la touche ctrl + C [Résolu]

salut, je cherche à faire des évènements claviers avec KeyDown et pour une seule touche enfoncée cela fonctionne mais je ne parviens pas a faire un évènement de touche combiné  du genre : " Ctrl+D " procedure Tajouter.BtnImgKeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); begin    if (Key = VK_CONTROL)   then    ... Lire la suite

1
Vote

Bonsoir Il me semble qu'il n'est pas nécessaire de distinguer les majuscules des minuscules. Dans ce cas, une simple comparaison avec la lettre en majuscule souhaitée suffit. Un doute ? Faites le test procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); begin   if (ssCtrl in Shift) and (Key = Ord...

Utilisation d'un SendMessage [Résolu]

Aprés avoir trouvé le handle d'une fenetre sur lequel il y a deux boutons, je veux simuler un clic sur le deuxieme bouton, pour ce faire je dois donc simulerTab + Entrée. Voici ce que je fait mais ça marche pas, avez-vous une autre idée ? SendMessage(handle, WM_KEYDOWN, VK_TAB, 1); SendMessage(handle, WM_KEYDOWN, VK_RETURN, 1);merci... Lire la suite

1
Vote

  // Attention espace à la fin !!!!    // Voilà une raison de plus de ne pas utiliser cette méthode   MonHandle := FindWindow('SALSUBFRAME', 'OpenOffice.org 2.1 ');    // Mise au premier plan de la fenetre   Windows.BringWindowToTop(MonHandle);   // petit délai   sleep(20);     // Simulation appui de la touche I du "ignorer"...

Treeview [Résolu]

bonjour, j'utilise actuellement la treeview et j'aimerai effectuer un test de recherche des items de la treeview cad j'ai par exemple un edit auquel je saisie un mot et je veux que si ce mot existe dans la treeview elle détermine son index et la sélectionne. P.S. : cette méthode me servira à conserver la sélection d'un item de la t... Lire la suite

2
Votes

Bonjour, Est ce que quelquechose dans ce style là te conviendrait : function RechercheElement( Tree : TTreeview ; ElementRecherche : string ) : Integer ; var   Node : TTreeNode ; begin   Result := -1 ;   if ( Tree.Items.Count > 0 ) then   begin     Node := Tree.Items[0] ; // Sélection de la racine     while Node nil do     b...

Excel - mise en page [Résolu]

Bonjour à tous, Je me demandais s'il était possible de faire la mise en page d'Excel directement dans le code Delphi. Je m'explique, ce que j'appelle mise en page c'est en fait orienter la page, soit portrait, soit paysage et modifier l'échelle pour que tout soit imprimé sur une page en largeur... Enfin toutes ces options peuvent-... Lire la suite

1
Vote

Oui, c'est possible par code. ExcelApp.ActiveSheet.PageSetup.Orientation := xlLandscape; ExcelApp.ActiveSheet.PageSetup.Zoom := 95; // 95% Cordialement. Il existe 10 catégories de personne. Ceux qui connaissent le binaire et les autres...