Felip
Master
Registrado: 09 Jun 2004Mensajes: 200
|
 Publicado: Sab 13 Sep, 2014 7:19 am Asunto: |
 |
|
Me las arreglé para llegar, pero el scrollbar no funciona:
| Código: |
//---------------
THintWindow *MyHint;
void __fastcall TForm1::Button5Click(TObject *Sender)
{
MyHint = new THintWindow(this);
MyHint->Color = clInfoBk;
MyHint->ParentWindow = Application->Handle;
//----
TPoint P;
TRect R;
TControl *Control;
//----
Control = Button5;
P = Control->ClientToScreen(Point(0, Control->Height));
R = Rect(P.x, P.y, P.x + 100, P.y + 100);
TScrollBar * Scroller = new TScrollBar(MyHint);
Scroller->Parent = MyHint;
Scroller->Kind = sbVertical;
Scroller->Align = alRight;
MyHint->ActivateHint(R, "AAAAA\nBBBB\nCCCC\nDDDD\nEEEE\nFFFF\nGGGG\nHHHH\nIIII\nJJJJ\nKKKK\nAAAAA\nBBBB\nCCCC\nDDDD\nEEEE\nFFFF\nGGGG\nHHHH\nIIII\nJJJJ\nKKKK");
}
//----------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
MyHint->ReleaseHandle();
}
//---------
|
Idea? |
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
