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.82 MB
Ora: 0.045 c
1-22156
VLV
2001-12-15 21:05
2002.01.08
HTMLHelp


14-22377
sudiv
2001-11-08 10:54
2002.01.08
C ++?


1-22017
Costruttore
2001-12-17 19:45
2002.01.08
Come mettere la tua linea nella modifica attuale?


7-22446
Paradosso
2001-09-25 19:12
2002.01.08
Da non perdere! Beh, molto necessario.


6-22288
atmosferico
2001-10-09 23:49
2002.01.08
WinGate





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ù
Английский Francese tedesco italiano portoghese russo spagnolo