teachermessage.pas

这是一个非常好的教师和学生沟通用的电子教室!

unit TeacherMessage;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, inifiles, XPMenu, ExtCtrls, TFlatPanelUnit,
  TFlatSpeedButtonUnit, XP_Button;

type
  TMessageF = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FlatPanel1: TFlatPanel;
    FlatPanel2: TFlatPanel;
    Memo1: TMemo;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    XPMenu1: TXPMenu;
    FlatSpeedButton1: TFlatSpeedButton;
    XP_Button1: TXP_Button;
    XP_Button2: TXP_Button;
    XP_Button3: TXP_Button;
    XP_Button4: TXP_Button;
    XP_Button5: TXP_Button;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MessageF: TMessageF;

implementation
uses main;
{$R *.DFM}

procedure TMessageF.BitBtn1Click(Sender: TObject);
var
  i: smallint;
begin
  if memo1.Text='' then showmessage('请输入要发送的内容！')
  else
  begin
  for i := 0 to student_count - 1 do
  begin
         //s_index := s_student[i];
    if (form1.ListView1.Items[i].imageindex <> 0) and (form1.listView1.Items[i].Selected = true) then
    begin
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '教师公告' + memo1.Lines.Text);
      sleep(1);
    end;
  end;
  showmessage('消息发送成功！');
end;
end;
procedure TMessageF.FormShow(Sender: TObject);
begin
  Memo1.Lines.Clear;
end;

procedure TMessageF.FormActivate(Sender: TObject);
var
  i: smallint;
  inifile: Tinifile;
  inifilename, wshmemo: string;
begin
  inifilename := ExtractFilePath(Application.EXEName) + 'teacher.ini';
  inifile := Tinifile.create(inifilename);
  ComboBox1.Items.Clear;
  for i := 1 to 8 do
  begin
    wshmemo := inifile.ReadString('MESSAGE', 'Memo' + inttostr(i), '空信息');
    ComboBox1.Items.Add(wshmemo);
  end;
  Inifile.Free;
  ComboBox1.ItemIndex := 0;
end;

procedure TMessageF.ComboBox1Change(Sender: TObject);
begin
  Memo1.Text := ComboBox1.Text;
end;

procedure TMessageF.BitBtn3Click(Sender: TObject);
var
  p_index: smallint;
  inifile: Tinifile;
  inifilename: string;
begin
  p_index := ComboBox1.ItemIndex;
  inifilename := ExtractFilePath(Application.EXEName) + 'teacher.ini';
  inifile := Tinifile.create(inifilename);
  inifile.WriteString('MESSAGE', 'Memo' + inttostr(p_index + 1), Memo1.text);
  inifile.Free;
  FormActivate(sender);
  ComboBox1.ItemIndex := p_index;

end;

procedure TMessageF.BitBtn4Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    memo1.Lines.LoadFromFile(OpenDialog1.filename);
end;

procedure TMessageF.BitBtn5Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    memo1.Lines.SaveToFile(SaveDialog1.filename);
  //if  OpenDialog1.Execute then
 //   memo1.Lines.LoadFromFile(OpenDialog1.filename);

end;

procedure TMessageF.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key = $0D then
    XP_Button3.SetFocus;
end;

end.