maison

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

Пробовал создавать форму с BorderStyle=bsNone а на ней ListBox, работает, но во время ее появления заголовок формы становиться неактивным.
При использовании компонентов, они не могут выйти за пределы формы.
Может кто уже поборол подобное.



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

Может контекстное меню попробовать?



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

Спасибо Владислав.
Я уже думал об этом: морока с перерисовкой, нужно, что бы выглядело как нормальный выпадающий список.
Может можно окну задать какой стиль, что бы оно не деактивировло основное?



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

Могу тебе скинуть небольшой пример (на скорую руку). Может чем-то поможет.



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

На форме должен быть StringGrid и ComboBox
Используйте следующий код:

procedure TForm1.FormCreate (Sender: TObject);
commencer
{Высоту combobox"а не изменишь, так что вместо combobox"а
будем изменять высоту строки grid"а !}
StringGrid1.DefaultRowHeight := ComboBox1.Height;
StringGrid1.Cells[3,0]:= "Здесь выпадает список";
{Спрятать combobox}
ComboBox1.Visible := False;
ComboBox1.Items.Add("Первый пункт");
ComboBox1.Items.Add("Второй пункт");
fin;

procedure TForm1.ComboBox1Change(Sender: TObject);
commencer
{Перебросим выбранное в значение из ComboBox в grid}
StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] :=
ComboBox1.Items[ComboBox1.ItemIndex];
ComboBox1.Visible := False;
StringGrid1.SetFocus;
fin;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var
R: TRect;
commencer
if ((ACol = 3) AND (ARow <> 0)) then
commencer
{Ширина и положение ComboBox должно соответствовать
ячейке 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;
{Покажем combobox}
ComboBox1.Visible := True;
ComboBox1.SetFocus;
fin
CanSelect := True;
fin;




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

В библиотеке RX есть класс что-то типа TPopupWindow...




Pages: 1 branche entière

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

à l'étage

Top.Mail.Ru Yandeks.Metrika













Mémoire: 0.81 MB
Heure: 0.033 c
3-21956
Sevostyanov Igor
2001-12-05 17:56
2002.01.08
Exécuter par programme SHUTDOWN IMMEDIATE


1-22064
daos
2001-12-19 08:46
2002.01.08
реестр


14-22350
Hérisson
2001-11-04 16:49
2002.01.08
Сижу вот, и нечем заняться!


3-21982
Dush
2001-12-06 12:37
2002.01.08
Connexion du client à la base de données


3-21955
kalinka17
2001-12-03 13:16
2002.01.08
Aidez-moi à trouver DBTreeView =)





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