jingcheng.pas

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

unit jingcheng;

interface

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

type
  Tjingchengf = class(TForm)
    FlatPanel1: TFlatPanel;
    FlatPanel2: TFlatPanel;
    Label1: TLabel;
    ListBox1: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Edit1: TEdit;
    XPMenu1: TXPMenu;
    FlatSpeedButton1: TFlatSpeedButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jingchengf: Tjingchengf;

implementation
uses main;
{$R *.DFM}

procedure Tjingchengf.BitBtn1Click(Sender: TObject);
var
  s_jingcheng: string;
  i: smallint;
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
      s_jingcheng := Listbox1.items.Strings[Listbox1.ItemIndex];
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '关闭进程' + s_jingcheng);
    end;
  end;
  close;
end;

procedure Tjingchengf.BitBtn3Click(Sender: TObject);
var
  s_lei: string;
  i: smallint;
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
      s_lei := edit1.Text;
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '关闭类' + s_lei);
    end;
  end;
  close;

end;

procedure Tjingchengf.ListBox1Click(Sender: TObject);
begin
  edit1.text := Listbox1.items.Strings[Listbox1.ItemIndex];
end;

procedure Tjingchengf.FormShow(Sender: TObject);
begin
  edit1.Text := '';
end;

end.