fm_chanp.pas

来自「ReadWorld RSS 聚合新闻 阅读器 XML 欢迎使用ReadWorl」· PAS 代码 · 共 48 行

unit FM_ChanP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, xmldom, XMLIntf, msxmldom, XMLDoc;

type
  TFMChanP = class(TForm)
    Bevel2: TBevel;
    Label6: TLabel;
    Label7: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit4: TEdit;
    Image2: TImage;
    XMLDoc1: TXMLDocument;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMChanP: TFMChanP;
implementation
uses
 FM_RSS;
{$R *.dfm}
procedure TFMChanP.FormCreate(Sender: TObject);
begin
 Edit1.Text:=ChannelNames;
 Edit4.Text:=ChannelNamesList;
end;
procedure TFMChanP.Button1Click(Sender: TObject);
begin
 XMLDoc1.FileName:=ExtractFilePath(Application.ExeName)+'RSSChannel.xml';
 XMLDoc1.Active:=True;
 ChannelNodeItem.Attributes['Name']:=Edit1.Text;
 ChannelNodeItem.NodeValue:=Edit4.Text;
 FMRss.TreeView1.Selected.Text:=Edit1.Text;
 Close;
end;
end.