On Saturday 25 March 2017 00:15:39 Krzysztof wrote:
> Hi Martin,
>
> It is very cosmetic thing so don't bother if it need some change in source
> code :) . Just wondering if I can do this with current version. I have
> added clear button in tdialogstringedit. OnExecute event
> call tdialogstringedit.text := '' but "empty" text is missing.
"
procedure tmainfo.exeev(const sender: tcustomdataedit; var avalue: msestring;
var modresult: modalresultty);
begin
avalue:= '';
end;
"
or
"
procedure tmainfo.exeev2(const sender: TObject);
begin
tdialogstringedit(sender).value:= '';
end;
"
if you use onexecute of an additional button.
Martin
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
