16,748
社区成员
发帖
与我相关
我的任务
分享
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, Menus, StdCtrls,
cxButtons, hsButtons, cxControls, cxContainer, cxEdit, cxTextEdit, hsEditors;
type
TForm1 = class(TForm)
btn1: ThsButton;
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
FA:string;
FC: string;
FD: string;
FE: string;
procedure SetD(const Value: string);
function GetE: string;
procedure SetE(const Value: string);
public
{ Public declarations }
property C: string read FC write FC;
property D: string read FD write SetD;
property E: string read GetE write SetE;
end;
var
Form1: TForm1;
FB:string;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
ShowMessage(FA);
ShowMessage(FB);
ShowMessage(FC);
ShowMessage(C);
ShowMessage(FD);
ShowMessage(FE);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FA := 'a';
FB := 'b';
FC := 'c';
C := 'c1';
FD := 'd';
FE := 'e';
end;
function TForm1.GetE: string;
begin
Result := FE;
end;
procedure TForm1.SetD(const Value: string);
begin
FD := Value;
end;
procedure TForm1.SetE(const Value: string);
begin
FE := Value;
end;
end.