www.pudn.com > woool12.rar > CastleAttackEdit.pas

unit CastleAttackEdit; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ComCtrls, StdCtrls,castle; 
 
type 
  TFormCastleAttackEdit = class(TForm) 
    GroupBox1: TGroupBox; 
    Label1: TLabel; 
    EditName: TEdit; 
    Label2: TLabel; 
    Button1: TButton; 
    DateTimePicker1: TDateTimePicker; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    Procedure Open(AttackerInfo:pTAttackerInfo;IsEdit:Boolean); 
  end; 
 
var 
  FormCastleAttackEdit: TFormCastleAttackEdit; 
  OK:Boolean; 
implementation 
 
{$R *.dfm} 
 
procedure TFormCastleAttackEdit.Open(AttackerInfo: pTAttackerInfo; 
  IsEdit: Boolean); 
begin 
   if IsEdit then 
   Begin 
     Caption:='±à¼­¹¥³ÇÉêÇë'; 
     EditName.Text:=AttackerInfo^.sGuildName; 
     DateTimePicker1.DateTime:=AttackerInfo^.AttackDate; 
     ShowModal; 
 
   End 
   else 
   Begin 
     Caption:='Ôö¼Ó¹¥³ÇÉêÇë'; 
     ShowModal; 
   end; 
   if  Ok then 
   Begin 
      AttackerInfo^.sGuildName:=EditName.Text; 
      AttackerInfo^.AttackDate:=DateTimePicker1.Date; 
   End; 
end; 
 
procedure TFormCastleAttackEdit.Button1Click(Sender: TObject); 
begin 
 ok:=True; 
 Close; 
end; 
 
end.