Nach Hause

Forum: "Haupt";
Durchsuchen Sie die gesamte Website: delphimaster.net;
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];



Nach unten

Erstellen Sie eine Dropdown-Liste in StringGride, geben Sie Lookup in DBGride ein


Wer hat (2001-12-14 08:12) [0]

Ich habe versucht, ein Formular mit BorderStyle = bsNone zu erstellen und darauf funktioniert ListBox, aber zum Zeitpunkt seines Erscheinens wird der Formularheader inaktiv.
Bei der Verwendung von Komponenten können sie nicht über das Formular hinausgehen.
Vielleicht hat jemand das schon überwunden.



Vladislav (2001-12-14 08:47) [1]

Kann das Kontextmenü ausprobieren?



Wer hat (2001-12-14 09:04) [2]

Vielen Dank, Vladislav.
Ich habe schon darüber nachgedacht: Ein Neuzeichnen mit Neuzeichnen, ich brauche es, das würde wie eine normale Dropdown-Liste aussehen.
Vielleicht können Sie das Fenster nach dem Stil fragen, damit der Hauptstil nicht deaktiviert wird.



Vladislav (2001-12-14 10:42) [3]

Ich kann dir ein kleines Beispiel (in Eile) werfen. Vielleicht hilft etwas.



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

Das Formular muss ein StringGrid und eine ComboBox enthalten.
Verwenden Sie den folgenden Code:

Prozedur TForm1.FormCreate (Sender: TObject);
beginnen
{Die Höhe der Combobox "und nicht ändern, also statt der Combobox"
Wir ändern die Höhe der Gitterlinie "a!}
StringGrid1.DefaultRowHeight: = ComboBox1.Height;
StringGrid1.Cells [3,0]: = "Hier ist die Liste";
{Kombinationsfeld ausblenden}
ComboBox1.Visible: = False;
ComboBox1.Items.Add ("Erster Artikel");
ComboBox1.Items.Add ("Zweiter Absatz");
end;

Prozedur TForm1.ComboBox1Change (Sender: TObject);
beginnen
{Übertragen Sie den ausgewählten Wert von der ComboBox in das Raster}
StringGrid1.Cells [StringGrid1.Col, StringGrid1.Row]: =
ComboBox1.Items [ComboBox1.ItemIndex];
ComboBox1.Visible: = False;
StringGrid1.SetFocus;
end;

Prozedur TForm1.StringGrid1SelectCell (Sender: TObject; ACol,
ARow: Ganzzahl; var CanSelect: Boolean);
war
R: TRect;
beginnen
if ((ACol = 3) AND (ARow <> 0)) dann
beginnen
{Breite und Position der ComboBox müssen übereinstimmen
cell 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.Hohe: = (R. Bottom + 1) - R.Top;
{Kombinationsfeld anzeigen}
ComboBox1.Visible: = True;
ComboBox1.SetFocus;
ende
CanSelect: = True;
end;




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

Die RX-Bibliothek hat eine Klasse vom Typ TPopupWindow ...





Forum: "Haupt";
Durchsuchen Sie die gesamte Website: delphimaster.net;
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];



nach oben

Nach Hause

Top.Mail.Ru Yandeks.Metrika













Speicher: 0.76 MB
Zeit: 0.031 c
1-22034
Alexey_K
2001-12-15 16:35
2002.01.08
Form


1-22138
Serg5
2001-12-20 09:22
2002.01.08
Leute, sag mir, aber wie man Image1 löscht, die Clear-Funktion hat nichts gefunden ...


14-22417
Yuraz
2001-10-25 15:02
2002.01.08
Ich frage mich, was Yandex auf (IIS ..) DB, Hardware dreht.


1-22248
Leviathan
2001-12-17 13:07
2002.01.08
Delphi spottet !!!


1-22245
T2
2001-12-16 07:12
2002.01.08
Gost & beste Gruft





Afrikanisch albanisch Arabic Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch griechisch haitian Creole hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch rumänisch Russisch serbisch Slovak Slowenisch Spanisch swahili Swedish Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch