casa
Top.Mail.Ru Yandeks.Metrika
Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

giù

Creare un elenco a discesa in StringGride, di tipo Ricerca in DBGride Trova rami simili


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

Ho provato a creare un modulo con BorderStyle = bsNone e su di esso ListBox funziona, ma al momento del suo aspetto l'intestazione del modulo diventa inattiva.
Quando si utilizzano componenti, non possono andare oltre il modulo.
Forse qualcuno ha già superato questo.



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

Puoi provare il menu di scelta rapida?



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

Grazie Vladislav.
Ci avevo già pensato: un ridisegno con un ridisegno, è necessario apparire come un normale elenco a discesa.
Forse puoi chiedere alla finestra quale stile in modo che non disattivi quello principale?



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

Posso darti un piccolo esempio (in fretta). Forse qualcosa aiuterà.



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

Il modulo deve avere un StringGrid e un ComboBox.
Usa il seguente codice:

procedura TForm1.FormCreate (Sender: TObject);
iniziare
{L'altezza della casella combinata "e non cambia, quindi anziché la casella combinata" a
cambieremo l'altezza della linea della griglia "a!}
StringGrid1.DefaultRowHeight: = ComboBox1.Height;
StringGrid1.Cells [3,0]: = "Ecco una lista";
{Nascondi combobox}
ComboBox1.Visible: = False;
ComboBox1.Items.Add ("Primo elemento");
ComboBox1.Items.Add ("Secondo paragrafo");
fine;

procedura TForm1.ComboBox1Change (Sender: TObject);
iniziare
{Trasferisci il valore selezionato dal ComboBox alla griglia}
StringGrid1.Cells [StringGrid1.Col, StringGrid1.Row]: =
ComboBox1.Items [ComboBox1.ItemIndex];
ComboBox1.Visible: = False;
StringGrid1.SetFocus;
fine;

procedure TForm1.StringGrid1SelectCell (Sender: TObject; ACol,
ARow: intero; var CanSelect: Boolean);
var
R: TRect;
iniziare
if ((ACol = 3) AND (ARow <> 0)) quindi
iniziare
{La larghezza e la posizione del ComboBox devono coincidere
cella 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.Height: = (R.Bottom + 1) - R.Top;
{Mostra combobox}
ComboBox1.Visible: = True;
ComboBox1.SetFocus;
fine;
CanSelect: = True;
fine;



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

Nella libreria RX c'è una classe qualcosa come TPopupWindow ...



Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra









Memoria: 0.57 MB
Ora: 0.025 c
14-22374
Nikols
2001-11-01 16:03
2002.01.08
Come riposano i programmatori? E quando?


1-22155
Arte
2001-12-20 16:32
2002.01.08
Blocca la cartella!


3-21962
phantom2040
2001-12-04 13:27
2002.01.08
Impostazione del filtro in TDStringGrid


1-22078
DJ X
2001-12-15 16:11
2002.01.08
Conversione, registro, INI


14-22339
Cinese come Zo Vut
2001-11-01 10:12
2002.01.08
Programmatore, come ti chiami?





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Inglese Francese tedesco italiano portoghese russo spagnolo