salut Sony, je comprends pas pourquoi tu as mit un popup menu sur ta combo ?
si tu veux mettre copier coller sur t'as combo, il y sont d'origine et si tu voulais rajouté des actions en plus du copier coller :
void __fastcall TForm1::FormCreate(TObject *Sender)
{
PopupMenu1->AutoPopup = true;
Edit1->PopupMenu = PopupMenu1;
Edit2->PopupMenu = PopupMenu1;
Memo1->PopupMenu = PopupMenu1;
Memo2->PopupMenu = PopupMenu1;
}
These are the cut, copy, and paste OnClick events for the commands on the pop-up menu.
void __fastcall TForm1::Copy1Click(TObject *Sender)
{
TComponent *pComponent = PopupMenu1->PopupComponent;
if (pComponent)
{
if (pComponent->ClassNameIs("TEdit"))
((TEdit *)pComponent)->CopyToClipboard();
else if (pComponent->ClassNameIs("TMemo"))
((TMemo *)pComponent)->CopyToClipboard();
else
MessageBeep(0);
}
else
MessageBeep(0);
}
void __fastcall TForm1::Cut1Click(TObject *Sender)
{
TComponent *pComponent = PopupMenu1->PopupComponent;
if (pComponent)
{
if (pComponent->ClassNameIs("TEdit"))
((TEdit *)pComponent)->CutToClipboard();
else if (pComponent->ClassNameIs("TMemo"))
((TMemo *)pComponent)->CutToClipboard();
else
MessageBeep(0);
}
else
MessageBeep(0);
}
void __fastcall TForm1::Paste1Click(TObject *Sender)
{
TComponent *pComponent = PopupMenu1->PopupComponent;
if (pComponent)
{
if (pComponent->ClassNameIs("TEdit"))
((TEdit *)pComponent)->PasteFromClipboard();
else if (pComponent->ClassNameIs("TMemo"))
((TMemo *)pComponent)->PasteFromClipboard();
else
MessageBeep(0);
}
else
MessageBeep(0);
}
Aide borland
et tu invente rajoute tes autres fonctions ...
je suis pas sûre d'avoir compris ta question...