|
 Forum
Grundkurs
»Introduktion
»Snabbguide
»Komponenter
»Händelser
»Strängar
»Räkna med Delphi »Egna
typer
»Selektion
»Iteration
»Menyer
»Funktioner
»Arraystrukturer
Tips & Tricks
»Nya tips
»Blandat
»Databaser
»Filer
»Forms
»Grafik
»Internet
»Komponenter
»Matematik
»Multimedia
»Objekt/ActiveX
»Skrivare
»Strängar
»System
»Mest lästa tips
Artiklar
»Delphi och ADO
»Bygga en DLL
»Skapa en enkel rapport
»Hantera registret
»Enheter, units
»Klassen TCanvas
»Använd LookUp Controls
 Nya
tips
 Lägg
till tips
 Delphilänkar
 Gästbok
|
|
|
|
|
|
XML-formulär
|
Kategori: Forms
Inlagt: 2005-09-24
Läst: 1263
Inlagt av: Staffan Berg
|
|
Beskrivning |
|
Ett exempel på att skapa ett formulär via kod och ladda in innehållet från en XML-fil.
|
|
Kod |
unit xmlform;
interface
uses
System.Drawing,
Borland.Delphi.SysUtils,
System.Windows.Forms,
System.Xml,
System.ComponentModel;
type
TMyForm = class (Form)
public
constructor Create;
protected
procedure OnButtonClick(Sender: TObject; e: EventArgs);
procedure OnButtonClick2(Sender: TObject; e: EventArgs);
private
MyMemo: TextBox;
MyButton: Button;
MyDoc: XmlDocument;
end;
implementation
constructor TMyForm.Create;
begin
inherited Create;
Text := 'XmlDemo';
Height := 400;
MyMemo := TextBox.Create;
MyMemo.Location := Point.Create (10, 50);
MyMemo.Size := Size.Create (Width - 30, Height - 70);
MyMemo.Multiline := True;
Controls.Add (MyMemo);
MyButton := Button.Create;
MyButton.Location := Point.Create (
Width div 2 - MyButton.Width div 2, 2);
MyButton.Text := 'Load';
MyButton.add_Click (OnButtonClick);
MyButton.add_click (OnButtonClick2);
Controls.Add (MyButton);
end;
procedure TMyForm.OnButtonClick(Sender: TObject; e: EventArgs);
begin
MyDoc := XmlDocument.Create;
MyDoc.PreserveWhiteSpace := True;
MyDoc.Load ('sample.xml');
MyMemo.Text := MyDoc.InnerXml;
end;
procedure TMyForm.OnButtonClick2(Sender: TObject; e: EventArgs);
begin
Text := 'nuovo handler';
end;
end.
|
|
|