Ver Mensaje Individual
  #6  
Antiguo 16-06-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Otra opción mas:
.h
Código PHP:
class TForm1 : public TForm
{
__published:    // IDE-managed Components
  
void __fastcall FormClick(TObject *Sender);
private:    
// User declarations
  
void __fastcall WMNCHitTest(TMessageMsg);
protected:
  
BEGIN_MESSAGE_MAP
  MESSAGE_HANDLER
(WM_NCHITTESTTMessageWMNCHitTest)
  
END_MESSAGE_MAP(TForm)
public:        
// User declarations
  
__fastcall TForm1(TComponentOwner);
}; 
.cpp
Código PHP:
void __fastcall TForm1::WMNCHitTest(TMessage &Msg)
{
   
// mover el segundo form
   
Form2->Left Form1->Left Form1->Width;
   
Form2->Top  Form1->Top 20;
   
   if (
Msg.Result == HTCLIENT
     
Msg.Result HTCAPTION;
   
TForm::Dispatch(&Msg);

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita