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.57 MB
Heure: 0.037 c
4-22458
Ajax
2001-10-31 17:50
2002.01.08
TColor et RGB


3-21911
Jaya!
2001-11-11 12:58
2002.01.08
Problèmes dans VDE


4-22500
Yus
2001-11-06 20:32
2002.01.08
Coordonnées de l'icône du bureau


3-21936
vvs
2001-12-05 06:42
2002.01.08
Delphi5 + SQL Server7 est normal et Delphi5 + SQL 2000 est un non-sens


7-22451
Dmitri
2001-09-23 12:36
2002.01.08
Directive {$ I}





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais Anglais 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