Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Cut/Copy/Paste in form with no menu
Message
De
26/07/1998 20:55:37
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Divers
Thread ID:
00120877
Message ID:
00121523
Vues:
23
>Hi David,
>
>It worked fine for me. I put your code - with my revisions - in a program called foo. Here is the calling code:
>
>set proc to foo
>o = createobject("form1")
>o.show
>
>The following is foo.prg
>
>
>
>**************************************************
>*-- Form: form1 (c:\development\harris\phone\test.scx)
>*-- ParentClass: form
>*-- BaseClass: form
>*
>DEFINE CLASS form1 AS form
>
>
> Top = 0
> Left = 0
> Height = 165
> Width = 214
> Desktop = .T.
> ShowWindow = 2
> DoCreate = .T.
> Caption = "Test Cut/Paste etc"
> Name = "Form1"
>
>
> ADD OBJECT edit1 AS editbox WITH ;
> Height = 139, ;
> Left = 12, ;
> Top = 6, ;
> Width = 187, ;
> Name = "Edit1"
>
>
> PROCEDURE Load
> PUSH MENU _MSYSMENU
> SET SYSMENU TO
>DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
>DEFINE BAR _med_cut OF _medit PROMPT "Cu\> KEY CTRL+X, "Ctrl+X" ;
> MESSAGE "Removes the selection and places it onto the Clipboard"
>DEFINE BAR _med_copy OF _medit PROMPT "\> KEY CTRL+C, "Ctrl+C" ;
> MESSAGE "Copies the selection onto the Clipboard"
>DEFINE BAR _med_paste OF _medit PROMPT "\> KEY CTRL+V, "Ctrl+V" ;
> MESSAGE "Pastes the contents of the Clipboard"
> ENDPROC
>
>
>PROCEDURE Destroy
>POP MENU _MSYSMENU
>ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: form1
>**************************************************

Hi again John.
Well I ran that code - just as above and it doesn't work at all. I'm running VFP 5.0a with default settings.
What can be wrong?
Dave
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform