Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

Модерирует : ShIvADeSt

ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
oan42
пользую SimDesign NativeXml
пока доволен

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 11:27 05-01-2007
oan42



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
greenpc
С XML мне все понятно, хотелось бы про хороший HTML-парсер на Delphi  
что-нибудь разузнать.

Всего записей: 488 | Зарегистр. 03-08-2004 | Отправлено: 14:03 05-01-2007
afiget



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
oan42
Когда-то сам искал. Не нашел. Очевидно, по причине слишком мягкотелости стандартов HTML, в отличие от XML, очень трудно сделать мощный и правильно работающий парсер.
А потом получил распространение XML и вопрос почти отпал :)

Всего записей: 545 | Зарегистр. 31-12-2005 | Отправлено: 18:30 05-01-2007
Jokerjar



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как сделать значок в трее неактивным (чтоб скрывался). Ничего похожего в NotifyIconData не нашел. Компоненты не предлагать.

Всего записей: 591 | Зарегистр. 22-03-2006 | Отправлено: 06:12 06-01-2007
Wiki



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, пожалуйста, как получить выделенный элемент списка ListBox?

Всего записей: 14 | Зарегистр. 24-03-2006 | Отправлено: 09:24 06-01-2007
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Wiki
Цитата:
получить выделенный элемент списка ListBox
перебором.
из справки по Delphi:

Код:
 
  for i := 0 to (FileListBox1.Items.Count - 1) do begin
  try
    if FileListBox1.Selected[i] then  
       ....
   finally
   { do something here }
   end;
  end;
 

 

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 09:51 06-01-2007
Jokerjar



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
перебором.

А так нельзя?

Код:
if ListBox1.ItemIndex > -1 then
Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];

А мой вопрос с треем в силе.

Всего записей: 591 | Зарегистр. 22-03-2006 | Отправлено: 11:20 06-01-2007
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Jokerjar
Цитата:
перебором.  
А так нельзя?

можно, если только не используется MultiSelect = true
 

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 12:30 06-01-2007
Wiki



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо большое. Очень выручили

Всего записей: 14 | Зарегистр. 24-03-2006 | Отправлено: 03:57 07-01-2007
Wiki



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А как можно получить текст какой-нибудь ячейки выделенной строки DBGridа?

Всего записей: 14 | Зарегистр. 24-03-2006 | Отправлено: 10:01 07-01-2007
sunduk4

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Wiki
какой грид используешь?

Всего записей: 177 | Зарегистр. 03-04-2004 | Отправлено: 13:07 07-01-2007
A_V

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Jokerjar

Цитата:
Как сделать значок в трее неактивным (чтоб скрывался)

а что значит 'чтоб скрывался'? если просто убрать иконку из трея надо то посредством  
ShellAPI это делается также как и добавление - вызываешь Shell_NotifyIcon с константой удаления и указателем на твою NotifyIconData.
Wiki
грид, который DB, отображает данные, хранящиеся в датасете, соответственно из датасета их и надо считывать. если у грида строка выделенна, значит и в датасете текущая запись та же.  
a если это вдруг имелся ввиду QuantumGrid - то данные из unbound колонок надо читать из DataController'а

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 15:31 07-01-2007
Wiki



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sunduk4
использую DBGrid с закладки Data Controls
 
A_V
Ну что данные из датасета считывать, это понятно. Только вот для этого мне надо хотя бы определить номер выделенной строки DBGridа, в этом собственно у меня проблема и заключается

Всего записей: 14 | Зарегистр. 24-03-2006 | Отправлено: 15:59 07-01-2007
A_V

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Wiki
А Зачем тебе определять номер выделенной строки? Еще раз, датасет ведь уже спозиционирован на текущуюю в гриде позицию. Сразу узнаешь как DataSet.FieldByName('FieldXXX').Value
Или ты неск-ко строк выделяешь в гриде?

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 16:10 07-01-2007 | Исправлено: A_V, 16:12 07-01-2007
Jokerjar



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
A_V, не, не то. Знаешь, как неактивные значки скрываются за стрелочкой в трее, и увидеть их можно, "развернув" трей? Так как вот такое замутить в Делфи?
 
 
Добавлено:
Типо переключать состояния активен/неактивен

Всего записей: 591 | Зарегистр. 22-03-2006 | Отправлено: 16:40 07-01-2007
A_V

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Jokerjar
а.. вот ты о чем )
я просто эту фичу всегда отрубаю..
а вобще хз как такого можно добиться

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 18:44 07-01-2007 | Исправлено: A_V, 18:54 07-01-2007
Wiki



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
A_V
 

Цитата:
Датасет ведь уже спозиционирован на текущуюю в гриде позицию

Спасибо, огромное! Очень-очень полезная вещь.
А я даже не знала  
 

Всего записей: 14 | Зарегистр. 24-03-2006 | Отправлено: 04:55 08-01-2007 | Исправлено: Wiki, 04:55 08-01-2007
bobaZz



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопрос: почему не работает в чем может быть ошибка?

Код:
procedure TfmCreatepers.UpDownClick(Sender: TObject; Button: TUDBtnType);
type
  plabel = ^TLabel;
var
  lab: ^plabel;
  labb: ^plabel;
  N: integer;
begin
 lab^:=nil;
 labb^:=nil;
  if ((Sender as TUpDown).Name='ud11') then begin lab:=@lbl11; labb:=@lbl1; end;
  if ((Sender as TUpDown).Name='ud12') then begin lab:=@lbl12; labb:=@lbl1; end;
  if (Sender as TUpDown).Name='ud13' then begin lab:=@lbl13; labb:=@lbl1; end;
  if (Sender as TUpDown).Name='ud21' then begin lab:=@lbl21; labb:=@lbl2; end;
  if (Sender as TUpDown).Name='ud22' then begin lab:=@lbl22; labb:=@lbl2; end;
  if (Sender as TUpDown).Name='ud23' then begin lab:=@lbl23; labb:=@lbl2; end;
  if (Sender as TUpDown).Name='ud31' then begin lab:=@lbl31; labb:=@lbl3; end;
  if (Sender as TUpDown).Name='ud32' then begin lab:=@lbl32; labb:=@lbl3; end;
  if (Sender as TUpDown).Name='ud33' then begin lab:=@lbl33; labb:=@lbl3; end;
  N:=StrToInt(labb^.Caption);
  lab^.Caption:=IntToStr(10+(Sender as TUpDown).Position);
  if Button=btNext then N:=N-1;
  if Button=btPrev then N:=N+1;
end;

Всего записей: 6 | Зарегистр. 06-12-2005 | Отправлено: 14:32 11-01-2007
oan42



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
bobaZz
Воспользуйтесь диалоговым отладчиком.
 
lab^:=nil;  
labb^:=nil;  
 
не лучше ли переписать:
 
lab:=nil;  
labb:=nil;  

Всего записей: 488 | Зарегистр. 03-08-2004 | Отправлено: 16:59 11-01-2007
Mandor Sawall

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Очень сложно сделал...
 

Код:
 
procedure TfmCreatepers.UpDownClick(Sender: TObject; Button: TUDBtnType);  
var  
  lab: TLabel;
  labb: TLabel;
  N: integer;  
begin  
 lab :=nil;  
 labb :=nil;  
  if ((Sender as TUpDown).Name='ud11') then begin lab:=lbl11; labb:=lbl1; end;  
  if ((Sender as TUpDown).Name='ud12') then begin lab:=lbl12; labb:=lbl1; end;  
  if (Sender as TUpDown).Name='ud13' then begin lab:=lbl13; labb:=lbl1; end;  
  if (Sender as TUpDown).Name='ud21' then begin lab:=lbl21; labb:=lbl2; end;  
  if (Sender as TUpDown).Name='ud22' then begin lab:=lbl22; labb:=lbl2; end;  
  if (Sender as TUpDown).Name='ud23' then begin lab:=lbl23; labb:=lbl2; end;  
  if (Sender as TUpDown).Name='ud31' then begin lab:=lbl31; labb:=lbl3; end;  
  if (Sender as TUpDown).Name='ud32' then begin lab:=lbl32; labb:=lbl3; end;  
  if (Sender as TUpDown).Name='ud33' then begin lab:=lbl33; labb:=lbl3; end;  
  N:=StrToInt(labb.Caption);  
  lab.Caption:=IntToStr(10+(Sender as TUpDown).Position);  
  if Button=btNext then N:=N-1;  
  if Button=btPrev then N:=N+1;  
end;
 

TLabel - ето обект; обект - ето pointer.

Всего записей: 119 | Зарегистр. 20-03-2003 | Отправлено: 17:21 11-01-2007
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru