是这样子的吗?
procedure TDHEDForm.OpenBtnClick(Sender: TObject);
var
pVIn : OleVariant;
Prompt : OleVariant;
begin
pVIn := '';
Prompt := True;
DHtmlEdit1.LoadDocument(pVIn, Prompt);
end;
procedure TDHEDForm.SaveBtnClick(Sender: TObject);
var
vo, vb : OleVariant;
begin
vo := DHTMLEdit1.CurrentDocumentPath;
if (vo <> '') then
begin
vb := false;
end
else
begin
vo := '';
vb := true;
end;
DHTMLEdit1.SaveDocument(vo, vb);
end;
procedure TDHEDForm.SaveAsClick(Sender: TObject);
var
vo, vb : OleVariant;
begin
vo := '';
vb := true;
DHTMLEdit1.SaveDocument(vo, vb);
end;