[D7] Checkbox dans un Timage

**Charly910** · 01/09/2023, 14h45

Bonjour,

j'ai créé une Classe THorlogeGraph dérivée d'un Timage sur laquelle je dessine dans un timer et je voudrais y afficher aussi un TCheckBox (et un TEdit ensuite). Je précise que je ne dessine pas dans la partie ou je veux afficher le CheckBox. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Type
  THorlogeGraph = Class( TImage )
  Private
    { Déclarations privées }
    FTimer : TTimer;
    FAlarm : TCheckBox ;
    ...

Dans le create, je créé la CheckBox, mais elle n'apparait pas à l'écran (je n'arrive pas à affecter le parent car Delphi veux un TWinControl et non un THorlogeGraph ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{ ==================================================================== }
Constructor THorlogeGraph.Create( Aower : TComponent );
Begin
  Inherited;
  FTimer := TTimer.Create( self );
  FTimer.OnTimer := Affiche;         // Dessine sur le Canvas de THorlogeGraph
  ...
  FAlarm := TCheckBox.Create(Self);
//  FAlarm.Parent := Self  ;        // Fonctionne pas
  Falarm.Caption := 'Set Alarm' ;
  FAlarm.Checked := True ;
  FAlarm.visible := True ;
  FAlarm.Top := 120 ;
  FAlarm.Left := 20 ;
  FAlarm.Width := 60 ;
  FAlarm.Height := 20 ;

merci pour vos lumières !

A+
Charly

**ShaiLeTroll** · 01/09/2023, 15h50

Un GraphicControl ne peut pas être parent d'un TWinControl
Il te faut un container
plusieurs approches possibles
Si c'est un composant visuel réutilisable que tu veux utiliser sur la palette, change l'ancêtre en Panel par exemple, avec le Timage et le reste
Si c'est un composant one shot, tu peux tout simplement faire, attention, le Left\Top sont à décaler manuellement entre le Parent et le Timage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FAlarm.Parent := Self.Parent ;

**Charly910** · 01/09/2023, 16h06

Merci Shai pour ta réponse.

J'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
  FAlarm := TCheckBox.Create(Self);
  FAlarm.Parent := Self.parent  ;
  FAlarm.Width := 60 ;
  FAlarm.Height := 20 ;
  FAlarm.Top := 290 ;
  FAlarm.Left := 20 ;
  Falarm.Caption := 'Set Alarm' ;
  FAlarm.Checked := True ;
  FAlarm.visible := True ;

Cette fois ça compile, mais la CheckBox reste invisible ?
Qu'est ce que j'ai raté ?

je n'ai pas compris le décalage ? Le Timage est le parent du CheckBox ?

le Left\Top sont à décaler manuellement entre le Parent et le Timage.

A+
Charly

**anapurna** · 01/09/2023, 17h01

salut

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FAlarm.Parent := Self.parent  ;

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FAlarm.Parent := Self

a mon avis ce serais deja mieux
le parent doit etre le panel sous jaccent

essai de faire un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
  TMyBoxSelect = class(TCustomGroupBox)
  private
      FAlarm: TCheckBox;
 
   ...
  protected
    procedure OnAlarmClick(Sender: TObject);
  ...
 end;
... 
constructor TMyBoxSelect.Create(AOwner: TComponent);
Begin 
   inherited Create(AOwner)
   ...
   FAlarm := TCheckBox.Create(Self);
   FAlarm.Parent := Self;
   FAlarm.ParentFont := False;
   FAlarm.Font.Style := [];
   FAlarm.Caption := 'Tous';
   FAlarm.Alignment := taLeftJustify;
   FAlarm.OnClick := OnAlarmClick;
   FAlarm.Visible := True;
End;
 
 
procedure TMyBoxSelect.OnAlarmClick(Sender: TObject);
begin
  ...
end;

**Charly910** · 01/09/2023, 17h07

Non, c'est ce que j'avais avant. ça ne compile pas car comme dit ShaiLeTroll un TWinControl ne peut pas descendre d'un TComponent

Je pense qu'il faut que je parte d'un TPanel, pour poser dessus mon TImage et mon TCheckBox ?

A+
Charly