maison
Top.Mail.Ru Yandeks.Metrika
Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

vers le bas

Créez une liste déroulante dans StringGride, de type Lookup dans DBGride Trouver des branches similaires


Кто нибудь делал?   (2001-12-14 08:12) [0]

J'ai essayé de créer un formulaire avec BorderStyle = bsNone et sur celui-ci un ListBox, cela fonctionne, mais lors de son apparition, le titre du formulaire devient inactif.
Lors de l'utilisation de composants, ils ne peuvent pas aller au-delà de la forme.
Peut-être que quelqu'un a déjà surmonté cela.



Владислав   (2001-12-14 08:47) [1]

Puis-je essayer le menu contextuel?



Кто нибудь делал?   (2001-12-14 09:04) [2]

Merci Vladislav.
J'ai déjà pensé à cela: un problème avec le redessinage, il me faut une liste déroulante normale.
Peut-être que la fenêtre peut être définie quel style, de sorte qu'elle ne désactive pas le principal?



Владислав   (2001-12-14 10:42) [3]

Je peux vous donner un petit exemple (à la hâte). Peut-être que quelque chose va aider.



Mark_a   (2001-12-15 11:16) [4]

Le formulaire doit avoir StringGrid et ComboBox
Utilisez le code suivant:

procedure TForm1.FormCreate (Sender: TObject);
commencer
{La hauteur de la liste déroulante "ne peut pas être modifiée, donc au lieu de la liste déroulante" un
nous allons changer la hauteur de la ligne de grille "a!}
StringGrid1.DefaultRowHeight: = ComboBox1.Height;
StringGrid1.Cells [3,0]: = "La liste est ici";
{Masquer la liste déroulante}
ComboBox1.Visible: = False;
ComboBox1.Items.Add ("Premier élément");
ComboBox1.Items.Add ("Deuxième paragraphe");
fin;

procedure TForm1.ComboBox1Change (Expéditeur: TObject);
commencer
{Nous transférerons la valeur sélectionnée de ComboBox à la grille}
StringGrid1.Cells [StringGrid1.Col, StringGrid1.Row]: =
ComboBox1.Items [ComboBox1.ItemIndex];
ComboBox1.Visible: = False;
StringGrid1.SetFocus;
fin;

procedure TForm1.StringGrid1SelectCell (Expéditeur: TObject; ACol,
ARow: Entier; var CanSelect: Boolean);
var
R: TRect;
commencer
si ((ACol = 3) ET (ARow <> 0)) alors
commencer
{La largeur et la position de la ComboBox doivent correspondre
Cellule StringGrid}
R: = StringGrid1.CellRect (ACol, ARow);
R.Left: = R.Left + StringGrid1.Left;
R.Right: = R.Right + StringGrid1.Left;
R.Top: = R.Top + StringGrid1.Top;
R.Bottom: = R.Bottom + StringGrid1.Top;
ComboBox1.Left: = R.Left + 1;
ComboBox1.Top: = R.Top + 1;
ComboBox1.Width: = (R.Right + 1) - R.Left;
ComboBox1.Hauteur: = (R. Bas + 1) - R.Haut;
{Afficher la liste déroulante}
ComboBox1.Visible: = True;
ComboBox1.SetFocus;
fin
CanSelect: = True;
fin;



vlv   (2001-12-15 11:43) [5]

Dans la bibliothèque RX, il existe une classe de quelque chose comme TPopupWindow ...



Pages: 1 branche entière

Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

à l'étage









Mémoire: 0.82 MB
Heure: 0.03 c
4-22476
royaume
2001-11-02 19:42
2002.01.08
Aide, UpdateResource ne fonctionne pas avec les fichiers BPL!


14-22341
Dense
2001-10-26 13:55
2002.01.08
Programmes de compétitions - SEA COMBAT


1-22118
vlv
2001-12-19 21:59
2002.01.08
Composants


1-22171
Faible
2001-12-20 14:19
2002.01.08
Un miracle est-il possible?


1-22148
Delphimun
2001-12-20 12:10
2002.01.08
Как послать системе сообщение, что нажата клавиша?





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais English estonien Filipino Finlandais Français
galicien géorgien Allemand Grecque Créole haïtien hébreu Hindi Hongrois Islandais Indonesian irlandais Italien japonais Coréen letton lituanien macédonien Malay maltais Norvégien
persan Polonais Portugais roumain Russe serbe Slovaque Slovène Espagnol Swahili Suédois Thai turc ukrainien Urdu vietnamien gallois yiddish bengali bosniaque
Cebuano espéranto gujarati Hause hmong Igbo Javanais Kannada Khmer lao latin maori Marathi mongol népalais punjabi somali tamil telugu yoruba
zoulou
Английский Français Allemand Italien Португальский Русский Espagnol