// 문자 입력 하고 엔터키 칠때..



procedure TchatForm.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if (not(Edit1.text = '')) and (Key = #13) then

begin

Listbox1.Items.Add(Edit1.text);

ListBox1.ItemIndex := ListBox1.Items.Count - 1;

ListBox1.itemindex:=-1;

Edit1.text := ''

end;



end;



// 글자색 변경 콤보 박스 선택 시



procedure TchatForm.ComboBox1Click(Sender: TObject);

begin

if ComboBox1.ItemIndex = 0 then Edit1.Font.Color := clBlack;

if ComboBox1.ItemIndex = 1 then Edit1.Font.Color := clBlue;

if ComboBox1.ItemIndex = 2 then Edit1.Font.Color := clRed;

if ComboBox1.ItemIndex = 3 then Edit1.Font.Color := clYellow;

if ComboBox1.ItemIndex = 4 then Edit1.Font.Color := clPurple;

if ComboBox1.ItemIndex = 5 then Edit1.Font.Color := clTeal;

if ComboBox1.ItemIndex = 6 then Edit1.Font.Color := clGreen;

end;





음... 색깔을 콤보박스에서 정하고.. 정해진 색깔을 에디터에 적용시키고...

에디터의 색깔을 가진 문장을 리스트에 추가할려고 하는데요...

(메모에 추가 하는게 좋은지 모르겠네요...)



음... 왜 리스트 박스에 추가되는 문장의 각 라인 색깔이 안될까요..



아래 누가 가르켜 주신거.. 폰트를 어디다가 어떻게 저장해야 하는지 몰라서..

잘 못했어요... ^^;



제 코드를 보시고.. 도움말을 좀 해 주세요...