Чат на делфи =)

[Impuls1989]

Сообщение от Lemo

С помощью клавиш "+" и "-" хочю перемещать позицию бегунка...

Пробуйте так:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = 187 then ScrollBar1.Position:=ScrollBar1.Position+1;
 if key = 189 then ScrollBar1.Position:=ScrollBar1.Position-1;
end;

[Lemo]

нет.........................

[Impuls1989]

Сообщение от Lemo

нет.........................

Прошу прощения. Моя оплошность. В обработчике формы Create нужно прописать эту штуку

KeyPreview:=True;

Вот выложил пример, юзайте.

[Lemo]

Работаю с TCooltray, при свороте формы поставил одну иконку в трей, как мне при клике на первую иконку, когда оно в трее, она поменялася на какуе то другую?
Уже и через имейдж лист, делал как IconList, но не нашел нужных свойств!
Задумка: когда приходит ПМ в чате, то прорисовываеться иконка с конвертиком....

[Lemo]

PlaySound(PChar(ExtractFilePath(Par amStr(0)) + 'Sound\connect.wav'), 0, SND_ASYNC);
Sound - последня папка, где храниться звук
почему не работает, не воспроизводиться 3вук(мелодия connect.wav)

[psycho-coder]

Вопрос: Как сделать бан?
Задумка такая
создаем структуру

type
  TBanList = record
    Nick: String;
    BanTime: Integer;
  end;

потом создаем массив структур

banList: array of TBanList;

Инициализируем массив, и в него добавляем ник забаненного пользователя и время (в минутах). В таймере проверяем каждого пользователя и если у него время истекло то удаляем из списка, если нет то уменьшаем BanTime на единицу. Интервал таймера соответственно одна минута.

Такой способ правильный или как то еще можно?
Просто нашел исходники со 2-го курса, там что то типа базы, тоже со структурами, но там не массив структур, даже не знаю как описать.
Вот так там

type 
  stbook = record
  name: String[20];
  cena: String[5];
  kolvo: String[13];
  a: Integer;

var
  book: file of stbook;
  work: stbook;
end;

и чтение

  readln(name);
  assign(book, name);
  {$I-}
  reset(book);
  {$I+}

  while (not eof(book)) do
  begin
    read(book, work);
    with work do
    begin
      val(kolvo, x, q);
      val(cena, y, q);
    end;
...
  end;

Я уже не помню что и как.
Тут вроде читается по строкам файл и заполняет структуру?
Можно как то наподобие сделать в моем случае?
Жду ваших предложений