| Структура программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
как узнать имя файла?, как узнать имя файла моей программы? Caption формы, Как сделать форму без caption? Вставить новфй компонент в уже созданную программу Keybord, Hook Выделение определенным шрифтом (жирным, курсивом) как создать Виртуальный CD? Как Вы относитесь к курящим девушкам? MDI Application, Прозрачная форма Коммандная строка, Открытие файлов с коммандной строки UUE-кодирование, у кого есть пример, исходник Заголовки форм, Как сделать нестандартный заголовок форм Создание кнопки в процессе работы Kylix3, Сабж соответственно Триал, Написание триала для проги Звуки в системе, Как мне изменить громкость звуков в Win? Чужие Консоли, Как закатать туды текст Имеющие опыт борьбы с TSplitter, Откликнитесь! как зделать?, мишь... Удаленное управление Помогите чайнику, Ряд вопросов Возведение и запись, HELP Win API Delphi+TColor, Как сделать перебор цветов CD и файлы, как узнать есть ли CD-ROM и еще кое что Запись в EXE глюк в Админе BDE? Vit please help.... форматирование строки..., как откинуть лишний символ? Delphi и PhotoShop, Как работать с PhotoShop через OLE Создание...., надо создать при работе программы Блокировка и Desktop, API Примитивная анимация, С использованием ImageList Двоичная система исчисления как установить системное время и дату? БДЕ, и с нова BDE, компоненты TurboDB глючат Регистрационый ключ Как перехватить сообщение об ошибке, BDE Как изменить глубину цвета Как вы используете объектное программирование? Вопрос о TCP/IP Проблемы с SHGetFileInfo Сообщения мышки для Win2K Панель инструментов в IE Каким архиватором запакован, ФАЙЛ BDE & Delphi, как можно обойтись без BDE Как мне отловить html страницы. Проблема с QReport, Не могу создать следующую страницу Scrolling Диаграмма Доступ к папке(файлу) Сканирование портов Как сделать в своей программе обработку запусков . Как Вы относитесь к курящим девушкам? Работа с каталогами Проблема с Run-time компонентом Проблема с Canvas в Image. Какие библиотеки компонент вы используете, больше всего в своих приложениях? По-моему Neutrino или RaAdmin пытался.., достать все иконки из трея.. RichEdit, Другой формат для записи Перерисовка физуального компонента, да, как перерисовать? DoubleToString, Как String'у присвоить Double??? Список User-таблиц в базе на MSSQL, через ADO MaskEdit, Последовательность ввода DLL к базам данных Установка RXLib Как узнать поля класса? Создание SQL запроса Где лежат коллекции битмапов, иконок и пр., Где можно найти толковые иконки, кнопки Работа с файлами Autodesk MapGuide, смотри сабж |
Платные хостинги Раскрутка сайта Книги по программированию Проблема с Run-time компонентом
- Что не так. Я добавляю событие к Run-Time компоненту(ComboBox) появляющемся на StringGride но оно не вызывается?Исходники - а просто кусок выложить нельзя? не горю желанием еХешник качать=) - magician, событие OnChange у тебя обрабатывается, но событие OnChange не вызывается при выборе элемента из списка, в место него вызывается OnSelect.Код procedure TForm1.FormCreate(Sender: TObject);beginCB:=TComboBox.Create(StringGrid1);CB.Parent:=StringGrid1;CB.Visible:=false;cb.Items.Add('a');cb.Items.Add('b');cb.Items.Add('c');CB.OnChange:=Change;CB.OnSelect:=Change;end;highlightSyntax('delphijg4ZTU','delphi'); - nJIaKca.spbИсходники(55Kилобайт)AlexРезультат тотже - сообщения нет! - Если делать по нормальному, то нужно примерно так:Код unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;type TForm1 = class(TForm) StringGrid1: TStringGrid; procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } CB: TComboBox; procedure Change(Sender: TObject); public { Public declarations } end;var Form1: TForm1; implementation{$R *.dfm}procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);Var R:TRect;begin // Размер и расположение combobox подгоняем под ячейку 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; CB.Left := R.Left + 1; CB.Top := R.Top + 1; CB.Width := (R.Right + 1) - R.Left; CB.Height := (R.Bottom + 1) - R.Top; // Показываем combobox CB.Visible := True; CB.SetFocus; CanSelect := True;end;procedure TForm1.FormCreate(Sender: TObject);begin CB:= TComboBox.Create(Self); CB.Parent:= Self; // Высоту у combobox не получится установить, поэтому мы будем // подгонять размер у грида под размер combobox! CB.Items.Add('1'); CB.Items.Add('2'); CB.Items.Add('3'); StringGrid1.DefaultRowHeight := CB.Height; // Скрываем combobox CB.Visible:= False; CB.OnChange:= Change; CB.OnExit:= Change;end;procedure TForm1.Change(Sender: TObject);begin // Получаем выбранный элемент из ComboBox и помещаем его в грид StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]:= CB.Items[CB.ItemIndex]; CB.Visible := False; StringGrid1.SetFocus;end;procedure TForm1.FormDestroy(Sender: TObject);begin if Assigned(CB) then CB.Free;end;end.highlightSyntax('delphiMzk3ND','delphi'); - Огромное Вам спасибо, Вы мне очень помогли! Все работает, только объясните, пожайлуста, почему только с OnChange не работает, и вообще когда же тогда вообще вызывается OnChange(Я всегда думал, что при выборе другого элемента). "Кстати насчет Вашего девиза - золотые слова!"(Извините за ) - Спасибо - Спасибо  |