Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Створити список, що випадає в StringGride, типу Lookup в 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
Використовуйте наступний код:

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

procedure TForm1.ComboBox1Change (Sender: TObject);
починати
{Перекинути вбрання в значення з ComboBox в grid}
StringGrid1.Cells [StringGrid1.Col, StringGrid1.Row]: =
ComboBox1.Items [ComboBox1.ItemIndex];
ComboBox1.Visible: = False;
StringGrid1.SetFocus;
end;

procedure TForm1.StringGrid1SelectCell (Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
було
R: TRect;
починати
if ((ACol = 3) AND (ARow <> 0)) then
begin
{Ширина і положення 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;
end;
CanSelect: = True;
end;



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

У бібліотеці RX є клас щось типу TPopupWindow ...



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.57 MB
Час: 0.024 c
7-22444
VS
2001-09-27 07:14
2002.01.08
Як скопіювати самого себе, якщо програма запущена


6-22284
Бред
2001-10-08 16:29
2002.01.08
Як послати повідомлення відразу на всі IP-адреси


1-22141
N
2001-12-20 10:04
2002.01.08
C -> Pascal: покажчик на функцію всередині структури


1-22239
Gayrus
2001-12-17 03:52
2002.01.08
TStatusBar


1-22189
bestix
2001-12-14 19:54
2002.01.08
метафайли





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська