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

[Lemo]

Так, сейчас вот думаю как солидно оформить "Настройки"
Выложил 2 фото..
Расмотрим первое фото...
часть [1]:
Каким лучше компонентом это можно сделать (струкрура как в tree view)?!
часть [2]:
При нажатии в части (1) на "Общие", "Шрифты" и тд. у нас в части 2 появляються соответственные настройки...
Лучше накидать панели с групбоксами, и по переходам в "Общие", "Шрифты" и тд. просто ставить на соответствующие панели visible и на оборот? Или кто то знает по-легче способ?
Жду советов!..

[Stilet]

Каким лучше компонентом это можно сделать (струкрура как в tree view)?!

Как раз TreeView я бы и взял.

[Lemo]

Ок, а на счет части [2] ?!

[Levsha100]

Либо динамика, либо что-то типа PageControl, только эти кнопочки убрать.

[Lemo]

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

Либо динамика, либо что-то типа PageControl, только эти кнопочки убрать.

Корешки... Да, неплохой выбор (место не сожрет много)!

Как премещаться по веткам(на рисунке выделено), так что бы изменися странички в pagecontrol`e...
Это у меня стоит в onClick:

PageControl1.ActivePageIndex:=TreeView1.Selected.Index;

Stilet подкинул неплохой пример:

procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
VK_UP:TreeView1.Selected.SelectedIndex:=TreeView1.Selected.SelectedIndex-1;
VK_DOWN:TreeView1.Selected.SelectedIndex:=TreeView1.Selected.SelectedIndex+1;
end; 
end;

Но проблема с индексами страниц...Они отображаються неправильно=((

[Stilet]

Они отображаються неправильно

Всмылсе неправильно?

[Lemo]

Например, стоит на Main, а отображаеться Connection... Я уверен, что проблема в индексах...

[Impuls1989]

Есть два совета. Один конкретный а второй ламерский(мой))).
1. Вам на будущее: начинайте писать прогу не с интерфейса (поставьте все что нужно для тестов). Ничего лишнего...
2. Совет по поводу постоянного сервера. Идея моя, так что не ругайте.
К сожалению данная идея реализуема только в локальной сети.

Первый эпизод. "Поиск сервера": Компьютер, подключившись к сети, отправляет широковещательный запрос в сеть. Все компы, на которых установлен чат, принимают данный запрс. Сервер откликается на данное сообщение и отправляет сообщение (я тут... и далее в том же духе).
Если данный ответ не пришел, логично предположить что серва в сети нет, и данный комп становится сервером. Если ответ пришел, все просто - идем к эпизоду 2.
Второй эпизод. "Общение машин". При завершении работы сервера, он выбирает новую жертву из списка (допустим тот, у которого больше время в сети), и говорит ей: ты теперь сервер... Соответственно всем компьютерам сети идет сообщение,что следует сменить местоположение сервера, что они и делают.
Эпизод третий. "Назапланированная потеря". Допустим из за того, что компьютер сервера взорван, произошел неверный выход из чата. Клиенты в шоке, что делать? Тут на помощь идет список состояний (список который хранится на каждом компе клиентов). Этот список состоит из:
1. ip адреса машины.
2. Время подключения машины (время, должно было синхронизироваться с бывшим сервером)
Самый старый из списка(по видимому самый стабильный) становится сервером. Этот статус подтверждается широковещательным пакетом в сеть (я сервер, все мессаги через меня...). Если данный пакет не приходит через определенное время, сервером пытается стать второй из списка. <Тут стоит заметить, если компов в чате много - произойдет маленькая DDOS атака на новы сервер...>
Вот как-то так.

[Lemo]

1)Минимизация и максимизация главной формы(приложения) через заданую комбинацию клавиш:
Тойсть если я нажимаю Alt+T, то сворачиваеться, и когда я еще раз нажимаю Alt+T, то идет разворот как было...
Сама процедура рабочяя, просто уже не знаю что в этом условном операторе написать что бы норм работало

 if (Key = ord('t')) or (Key = ord('T')) and (ssalt in Shift) then
     begin
  ///////////////////
    end;

Место //////// уже писал

 if mainform.showing then application.minimize
  else
      ......

При сворачивании форма также теряет фокус =((
Также

  begin
      if form1.WindowState=wsMinimized then
           form1.WindowState:=wsMaximized
       else
            form1.WindowState:=wsMinimized;
    end;

Не подходит...... И еще, главное application.minimize существует, а application.maximized - не, Посоветуйте что то толковое....


2) С помощью клавиш "+" и "-" хочю перемещать позицию бегунка в scrollbar`e
Писал и так

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #42   then form2.sScrollBar2.Position:=form2.sScrollBar2.Position-1;
 if Key =#45  then form2.sScrollBar2.Position:=form2.sScrollBar2.Position+1;
end;

И так

 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = ord('-'))  then form2.sScrollBar2.Position:=form2.sScrollBar2.Position-1;
 if Key =ord('+')) then form2.sScrollBar2.Position:=form2.sScrollBar2.Position+1;
end;

Жду советов...

[Lemo]

Никто не смотрел?