Вопрос № 151294: Уважаемые эксперты! Можно ли в компонент TListBox вместо обычных строк выводить TPanel? Или хотя бы вставить TButton. Как выводить в строки битмапы я нашёл, а вот вставить какой-нибудь компонент - нет. Если можно - примером. Спасибо. ...
Вопрос № 151333: Уважаемые эксперты,подскажите пожалуйста где возможно скачать компонент ServerSocket. Заранее благодарен. P.S. у меня нету меню COMPONENT.......Вопрос
№ 151393: Здравствуйте! Подскажите пожалуйста как записать дерево TTreeView в ini-файл. Буду очень признательна! Заранее спасибо!...Вопрос № 151420: Здравствуйте Сoupler! Отправляю этот вопрос только Вам. Очень понравился Ваш ответ на вопрос № 150853. Я как только пополню счёт мобильника - поблагодорю смс-кой. Только ещё очень нужно, чтобы Вы прокомментировали код модуля (желательно построчно), ...<
hr size=1 noshade>
Вопрос № 151.294
Уважаемые эксперты! Можно ли в компонент TListBox вместо обычных строк выводить TPanel? Или хотя бы вставить TButton. Как выводить в строки битмапы я нашёл, а вот вставить какой-нибудь компонент - нет. Если можно - примером. Спасибо.
Отправлен: 21.11.2008, 14:10
Вопрос задал: Feanar (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Drbear
Здравствуйте, Feanar! можно использовать такой вариант (в приложении). На форме 1 TListBox (ListBox4) и 2 Кнопки (Button6 и Button7). Предполагается, что ListBox4 заполнен. Не забывайте уничтожать созданные элементы.
Приложение:
Ответ отправил: Drbear (статус: Студент)
Ответ отправлен: 21.11.2008, 14:28
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 236233 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 151.333
Уважаемые эксперты,подскажите пожалуйста где возможно скачать компонент ServerSocket. Заранее благодарен. P.S. у меня нету меню COMPONENT....
Отправлен: 21.11.2008, 19:12
Вопрос задал: Dorik (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Кэр Лаэда
Здравствуйте, Dorik!
TserverSocket как и TClientSocket не нужно скачивать он уже есть в Delphi просто его нужно добавить в палитру компонентов
рассказываю на примере bds2006 т.к. другой версии Delphi нету под рукой, но суть от этого не меняется
меню Components - install packages там нажимаете кнопку add и в списке файлов в директории Bin вашей Delphi найдите файл dclsockets100.bpl когда вы его добавите в Delphi на палитре компонентов на закладке Internet появится нужный вам
компонент.
--------- Я знаю что ничего не знаю, но я знаю больше, чем тот кто думает что знает все
Ответ отправил: Кэр Лаэда (статус: Практикант)
Ответ отправлен: 21.11.2008, 19:24
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 236264 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 151.393
Здравствуйте! Подскажите пожалуйста как записать дерево TTreeView в ini-файл. Буду очень признательна! Заранее спасибо!
Отвечает: Genia007
Здравствуйте, Сотникова Анастасия Викторовна! Если Вы хотите записать в ini-файл только текст, то можно поступить так:
Код:
uses IniFiles;
procedure TForm1.Button3Click(Sender: TObject); var I: Integer; IniFile: TIniFile; // Для записи информации в ini
файл items: string; begin // Попробовать записать настройки программы в ini файл Try IniFile := TIniFile.Create('c:TreeView1.ini'); // Создали экземпляр объекта For i:= 0 to TreeView1.Items.Count - 1 do begin items:= 'item_' + IntToStr(I); IniFile.WriteString('TreeView', items, TreeView1.Items.Item[I].Text); end; IniFile.Free; // Закрыли файл, уничтожили объект и ос
вободили память Except Application.Messagebox('Немогу сохранить настройки программы', 'Внимание!', MB_ICONEXCLAMATION); // Сообщение об ошибке end; end;
А если нужно полностью с рисунками то так, правдо файл получается не настоящий ini:
Код:
procedure TForm1.Button3Click(Sender: TObject); var Fi: TFileStream; begin Fi := TFileStream.Create('c:TreeView.ini', fmCreate or fmShareCompat); try Fi.WriteComponent(TreeView1); finally Fi.Free; end; end;
и загрузить:
Код:
procedure TForm1.Button4Click(Sender: TObject); var Fi: TFileStream; begin Fi := TFileStream.Create('c:TreeView.ini', fmOpenRead or fmShareDenyWrite); try Fi.ReadComponent(TreeView1); finally Fi.Free; end; end;
--------- Помогли тебе, помоги и ты.
Ответ отправил: Genia007 (статус: Студент)
Ответ отправлен: 23.11.2008, 13:02
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 236413 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 151.420
Здравствуйте Сoupler! Отправляю этот вопрос только Вам. Очень понравился Ваш ответ на вопрос № 150853. Я как только пополню счёт мобильника - поблагодорю смс-кой. Только ещё очень нужно, чтобы Вы прокомментировали код модуля (желательно построчно), просто я новичок в Delphi. У меня есть хороший опыт работы с языком Pascal, так что просто выделите каким образом происходит создание класса, также как узнаем имя класса, имя предка класса компонентов и т.д. (как с предыдущего моего вопроса). Спасибо Вам за помощь.
type TForm1 = class(TForm) Button1: TButton; Edit1
: TEdit; Memo1: TMemo; BitBtn1: TBitBtn; Image1: TImage; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); var i: integer; s: string; begin for i := 0 to form1.ComponentCount - 1 do begin s := form1.Controls[i].ClassName; s := s + '
Parent=' + form1.Controls[i].ClassParent.ClassName + ' Memory: ' + inttostr(form1.Controls[i].InstanceSize); if form1.Controls[i] is TGraphicControl then s := s + ' Данный клас порожден от TGraphicControl'; showmessage(s); end; end;
end.
Отправлен: 22.11.2008, 13:22
Вопрос задал: compile (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Coupler
Здравствуйте, Compile! Прокомментировал как мог, просто код очень простой - используются только методы и свойства класса TObject (в этом и состояло задание). Создания классов TForm1, TButton и т.д. нет, так как за это отвечает библиотека VCL. По всем методам TObject есть справка в Delphi. procedure TForm1.FormCreate(Sender: TObject); var i: integer;//счетчик для выбора компонентов s: string;//строка, которую выводим begin for i := 0 to form1.ComponentCount - 1 do//перебираем
все компоненты на форме от нулевого до последнего begin s := form1.Controls[i].ClassName;//имя класса (ну, собственно, ClassName и есть) s := s + ' Parent=' + form1.Controls[i].ClassParent.ClassName + ' Memory: ' + inttostr(form1.Controls[i].InstanceSize);//имя родителя и размер памяти if form1.Controls[i] is TGraphicControl then//is проверяет, можно ли от одного класса перейти к другому с помощью наследования s := s +
9; Данный клас порожден от TGraphicControl'; showmessage(s);//выводим полученную строку end; end;
Ответ отправил: Coupler (статус: Специалист)
Ответ отправлен: 22.11.2008, 18:03
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 236362 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
