delphi - How do I make standard actions (like TEditCopy) recognize additional controls (like TEmbeddedWB)? -


i satisified functionality of teditcut, teditcopy, teditpaste , teditselectall except don't work on controls not standard.

for example, may work fine on tedit or tmemo controls, not on tembeddedwb — it, standard actions disabled regardless of whether text selected, though tembeddedwb has methods copytoclipboard , selectall.

how can make standard actions work tembeddedwb? how standard actions determine whether should enabled or disabled (and in event — in onupdate event)? can extend standard actions add support unrecognized components, or need write replacement?

the default edit actions not work on tembeddedwb control, because component not descend tcustomedit. teditaction, teditselectall descends from, knows how handle tcustomedits.

use onupdate , onexecute events of action override behaviour. note default behaviour ignored, implement manually. here example teditselectall action.

procedure tform1.editselectall1update(sender: tobject); begin   editselectall1.enabled := (screen.activecontrol tembeddedwb) or     editselectall1.handlestarget(activecontrol) end;  procedure tform1.editselectall1execute(sender: tobject); begin   if activecontrol tembeddedwb     tembeddedwb(screen.activecontrol).selectall   else     editselectall1.executetarget(screen.activecontrol); end;

or use same events of actionlist (or onactionupdate , onactionexecute of applicationevents component) centralize custom behaviour:

procedure tform1.actionlist1update(action: tbasicaction; var handled: boolean); begin   if action teditaction   begin     tcustomaction(action).enabled := (screen.activecontrol tembeddedwb) or       action.handlestarget(screen.activecontrol);     handled := true;   end; end;  procedure tform1.actionlist1execute(action: tbasicaction; var handled: boolean); begin   if (action teditselectall) , (screen.activecontrol tembeddedwb)   begin     tembeddedwb(screen.activecontrol).selectall;     handled := true;   end; end;

Comments

Post a Comment

Popular posts from this blog

php - Add the correct number of days for each month -

using following function can display years , months between 2 dates, how can add correct days each month array within each month? can't add days manually need account leap years etc. function yearmonth($start_date, $end_date) { $begin = new datetime( $start_date ); $end = new datetime( $end_date); $interval = new dateinterval('p1m'); // 1 month interval $period = new dateperiod($begin, $interval, $end); foreach ( $period $dt ) $years[$dt->format( "y" )][] = $dt->format( "f" ); return $years; } $list = yearmonth("2007-03-24", "2009-06-26"); var_dump($list); since nobody else answered: function yearmonth($start_date, $end_date) { $begin = new datetime( $start_date ); $end = new datetime( $end_date); $interval = new dateinterval('p1d'); // 1 month interval $period = new dateperiod($begin, $interval, $end); $lastmonth = null; $lastyear = null; $aresult = array(); forea...
Read more

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more