Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Ստեղծեք բացվող ցուցակը StringGride- ում, DBGride- ում փնտրվող տիպի որոնումներից Գտնել նմանատիպ մասնաճյուղեր


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

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



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

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



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

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



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

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



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

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

ընթացակարգ TForm1.FormCreate (Ուղարկող `TObject);
սկսել
{Высоту combobox"а не изменишь, так что вместо combobox"а
будем изменять высоту строки grid"а !}
StringGrid1.DefaultRowHeight := ComboBox1.Height;
StringGrid1.Cells[3,0]:= "Здесь выпадает список";
{Спрятать combobox}
ComboBox1.Visible := False;
ComboBox1.Items.Add("Первый пункт");
ComboBox1.Items.Add("Второй пункт");
վերջը.

կարգը TForm1.ComboBox1Change (Ուղարկող `TObject);
սկսել
{Перебросим выбранное в значение из ComboBox в grid}
StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] :=
ComboBox1.Items[ComboBox1.ItemIndex];
ComboBox1.Visible := False;
StringGrid1.SetFocus;
վերջը.

ընթացակարգ TForm1.StringGrid1SelectCell (Ուղարկող `TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
էր
R: Ճշտել;
սկսել
if ((ACol = 3) AND (ARow <> 0)) then
սկսեք
{Ширина и положение 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;
վերջ
CanSelect: = True;
վերջը.



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

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



Էջեր: 1 ամբողջ ճյուղը

Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Up









Հիշողություն `0.57 ՄԲ
Ժամանակը `0.042 գ
3-21899
Ելչեւ
2001-12-03 10:26
2002.01.08
Արագ մուտք դեպի ORACLE DB


1-22171
Dim
2001-12-20 14:19
2002.01.08
Հնարավոր է հրաշք:


3-21971
Վեներա
2001-12-06 10:23
2002.01.08
Աղբյուրը


1-22228
նազրգ
2001-12-15 14:28
2002.01.08
Ինչպես դա անել?


1-22029
neo_
2001-12-18 12:33
2002.01.08
սպանել tThread





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский