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