Überprüfen ob Text auf Form selektiert ist

[s.h.a.r.k]

Hallo.

Ich habe grad ein kleineres Problem mit meinem MainMenu: Und zwar hab ich da auch ein Bearbeiten-Item, in dem die Subitems Kopieren, Einfügen und Ausschneiden sind. Nun habe ich schon die Unit clipbrd eingebunden und beim OnPopUp-Ereignis folgendes eingetragen:

Delphi-Quellcode:

...
PasteItem.Enabled := Clipboard.HasFormat(CF_TEXT);
...

Das klappt ja auch so weit ganz gut, nur jetzt will ich auch, dass das entsprechend beim CopyItem und CutItem auch so ist, nur abhängig davon ob ein Text auf meiner Form markiert ist oder nicht (in Edits oder in Memos). Nun habe ich aber recht viele Edits auf meiner Form und somit das Problem, dass ich sie nicht einzeln ansprechen will (zu viel Arbeit)...

Ich habe da auch schon mit den EM-Messages (EM_GETSEL, EM_GETSELTEXTEX...) herumhantiert, nur konnte ich dabei leider auch keinen Erfolg verzeichnen.

Ich hoffe, dass ihr mir weiter helfen könnt!

mfg shark

[Lannes]

Hallo,

ActiveControl hilft da weiter, etwa so:

Delphi-Quellcode:

If (ActiveControl.InheritsFrom(TCustomEdit)) and 
   (TCustomEdit(ActiveControl).SelLength > 0) then
   //alles ok

damit erreichst Du alle Edits, Memos, Richedits ...

[s.h.a.r.k]

Hab ich ausprobiert und hat sofort funktioniert!

Echt klasse!!!