private
function GetText: string;
procedure SetText(const Value: string);
public
property Text: string read GetText write SetText;
function TformDialog.GetText: string;
begin
Result := Edit1.Text;
end;
procedure TformDialog.SetText(const Value: string);
begin
Edit1.Text; = Value;
end;
property
最新推荐文章于 2023-03-09 14:48:38 发布