RichEdit1.Perform(EM_CANPASTE, 0, 0) <> 0;

In the RichEdit example with Delphi 4 it uses
RichEditEditor.Perform(EM_CANPASTE, 0, 0) <> 0; to find out if there is something to paste from the clipboard.  I am trying to do the same but with a ComboBox but it does not work. Any suggestion ?
 
moonriseAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
viktornetConnect With a Mentor Commented:
Hello Moonrise, if you just want to check that, and if it doesn't matter to you what way are you using then , you can use this way to check and paste what's in the clipboard if its format is text...
----------------
uses clipbrd;

procedure TForm1.PasteButtonClick(Sender: TObject);
var ClipBoard : TClipBoard;
begin
  if ClipBoard.HasFormat(CF_TEXT) then  
    SendMessage(ComboBox1.Handle, WM_PASTE, 0, 0);
end;
---------------------------
If there is text in the clipboard then the text will be pasted in the combobox...I hope that answers your question...not exactly, but this is one of the ways to do it... :)

Regards,
Viktor Ivanov

0
 
viktornetCommented:
It doesn't compile because there is no message EM_CANPASTE for TComboBox...That's why it can not perform it...

To see what messages the combobox has look 'em up in the win32 help file

Regards,
Viktor Ivanov
0
 
moonriseAuthor Commented:
I fount this constant to be in Richedit.pas. I created my own constant so it compiles fine. But I don't get the right result like I do with a RichEdit component.
0
Learn to develop an Android App

Want to increase your earning potential in 2018? Pad your resume with app building experience. Learn how with this hands-on course.

 
viktornetCommented:
Why do you actually do you need to paste something from the clipborad...Let's say it's a whole file, then what? Everything copied will get into your combobox...

Regards,
Viktor Ivanov
0
 
moonriseAuthor Commented:
There is a PASTE button on my form. This button has to be disabled when there is nothing in the clipboard to paste. My form is a webbrowser and the combobox is the url.  The paste can also occur on the web page. It does not matter because all components use the same clipboard.  If I had a richedit on that screen I would use it and I would have no problem. Just like I could place a dummy richedit, make it invisible, just to be able to use it to check if there is something in the clipboard.  

So the question is why does that work with richedit and not with other components ?
0
 
moonriseAuthor Commented:
Good, it does exacly what I need. In fact it is even better because that way the paste button will remain disabled if there is let say a picture in the clipboard.  Thank you.
0
All Courses

From novice to tech pro — start learning today.