Création Composant

Question

Je souhaite cr&#233;er un composant qui est un ComboBox mais qui affiche un
TMonthCalendar lorsque l'on clicque dessus, celui-ci s'affiche dans
l'&#233;v&#233;nement OnDropDown et cela fonctionne.


Mon probl&#232;me est le suivant : je n'arrive pas &#224; r&#233;cup&#233;rer la position
Left et Top du ComboBox pour pouvoir afficher mon calendrier juste en
dessous. A chaque fois, il se positionne en 0,0





Merci pour votre aide

Matt 261 · Answer

Il y a un composant de Jvcl ui fait &#231;a. 
Par contre pour ton probl&#232;me : 

PourTop := ComboBox1.Top;  //Remplace "PourTop" par ce que tu veux
PourLeft := ComboBox1.Left;

Code fourni "brut".

@+ Matt


<HR width="100%" SIZE=2>
La paresse est la m&#232;re du g&#233;nie...

f0xi · Answer

dans ton composant, qui doit etre declarer : TCalendarCombo = class(TComboBox)

tu recupere Left et Top comme ceci :

var L,T : integer;
begin
  L := Self.Left; {ou tout simplement L := Left}
  T := Self.Top; 
end;

mais ce serait trop facile, car pour disposer un element en dessous il faut faire cela :

begin
  Calendar.Left := Self.Left;
  Calendar.Top  := Self.Top + Self.Height;

end;


<hr size="2" width="100%">

cs_kinay · Answer

Effectivement cela me donne la postiion du comboBox, mais lorsque je l'applique à mon Calendar, celui se positionne par rapport à l'écran et non ma fenêtre où se trouve mon ComboBox

Création Composant

3 réponses

Votre réponse

Discussions similaires