MVC framework based on Delphi examples Show ChildrenView.pas Source code

Return Download MVC framework based on Delphi examples： download ChildrenView.pas Source code - Download MVC framework based on Delphi examples Source code - Type:.pas

unit ChildrenView;
 
// This code was generated by the EasyMVC OTA Wizard
// www.eazisoft.com
 
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, StdCtrls, ComCtrls, ExtCtrls, Forms, patterns;
 
type
  TViewChildren = class(TFRAME, IObserver)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Memo1: TMemo;
    Timer1: TTimer;
    Label5: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    procedure UpdateView(o: TObject); //from IObserver
  public
    { Public declarations }
    procedure setEventHandler(ANotifyEvent: TNotifyEVent; const AMouseEvent: TMouseEvent = nil);
    function getCommand: string;
  end;
 
 
implementation
uses
  commandlist, indexDef;
{$R *.dfm}
 
function TViewChildren.getCommand: string;
begin
  result := ComboBox1.Text;
end;
 
procedure TViewChildren.setEventHandler(ANotifyEvent: TNotifyEVent; const AMouseEvent: TMouseEvent = nil);
begin
  Button1.OnClick := ANotifyEvent;
end;
 
procedure TViewChildren.UpdateView(o: TObject);
var
  p: PResponseInfo;
begin
  {write your code here}
    {write your code here}
  if not assigned(o) and not (o is TCommand) then
    exit;
 
  p := (o as TCommand).getParamrecord;
  if assigned(p) then
  begin
    Edit1.Text := p.CMD;
    Edit2.Text := p.Response;
    Memo1.Lines.Text := p.ActualMean;
    timer1.Enabled := (p.CMD = CMD_NODE_SELECT);
    if p.CMD = CMD_CLEAR_SELECTION then
      Edit2.Color := clWindow;
  end;
 
  update;
  freeAndNil(o);
end;
 
procedure TViewChildren.Timer1Timer(Sender: TObject);
begin
  if Edit2.Color = clWindow then
    Edit2.Color := clRed
  else
    Edit2.Color := clWindow;
end;
 
end.
 
 

downloadChildrenView.pas Source code - Download MVC framework based on Delphi examples Source code

Related Source Codes/Software：

Delphi computer training school management system source code - A training management system for computer training... 2012-02-18

FLEX+Delphi+Java+C# combined to create chat rooms - This is a comprehensive real life examples, it is ... 2012-02-18

DELPHI by URL trigger implementation of registration agreement - A deal registration tool written in DELPHI source ... 2012-02-18

Delphi computer machine service system source code - Do you have a source, or even not registered softw... 2012-02-18

Delphi source SQL Server Query Analyzer and simulation code - More simple than SQLSERVER's Query Analyzer, you c... 2012-02-18

Delphi 3D brick breaker PlateBall source program - A very interesting and slightly more difficult gam... 2012-02-18

SMS messaging platform and interface for Delphi source code - One formerly was SP partners for better business i... 2012-02-18

Delphi 3DS model actual combat in operation source - This is a good example, demonstrates the JPG image... 2012-02-18

Simulation of TGO 32Bit v1.0 for Delphi 3D rendering source code - TGO32B, seems to travel abroad program, although o... 2012-02-18

Delphi graduation: student management system - This is a formal student management system SQL ver... 2012-02-18

Delphi car rental company business management system - A car rental company's business management systems... 2012-02-18

Delphi major revision of the human resources management system source code - RedHR owned a large OFFICE of human resources mana... 2012-02-18

DELPHI pawn industry management system source code - Pawn shop of an integrated business management sys... 2012-02-18

Cool interface Delphi chat software source code - Interface is really cool? This is a small LAN chat... 2012-02-18

Delphi shield Ctrl+Alt+Del reqijian method - Real shielding theory of Delphi is this: using a r... 2012-02-18

Classic RPG games with Delphi source code - The actual and Diablo game or scene is similar in ... 2012-02-18

35 Delphi7 Indy instance package - Application example demonstrates a lot of Indy Dem... 2012-02-18

Delphi transportation company business management system - A Delphi transportation company business managemen... 2012-02-18

Using Delphi to achieve control of the camera - This procedure describes how to use DELPHI AVICAP3... 2012-02-18

Cell of the report component for Delphi example source program - UFIDA table company developed a report component, ... 2012-02-18