Discussion :

[alheuredudejeuner]

bonjour

a gauche ma cible, à droite le résultat ou l'on voit deux toolbar au lieu d'une


http://alheuredudejeuner.fr/images/AlhFiremonkey.zip

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
 
unit uAlhFloatingWindows;
 
interface
 
uses
  System.SysUtils, System.Classes, FMX.Types, FMX.Controls,System.Types,System.UITypes,
  FMX.Platform ;
 
type
  TAlhFloatingWindows = class(TPanel)
  private
    { Déclarations privées }
 
    OkDeplace: Boolean;
    HoldPosition: TPointF;
    HoldMousePosition: TPointF;
 
  protected
    { Déclarations protégées }
  public
    { Déclarations publiques }
    aTitleBar   : TToolBar;
    bClose : TButton;
 
    constructor Create(AOwner: TComponent);  override;
    destructor Destroy; override;
 
    procedure obOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
    procedure obOnMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Single);
    Procedure obOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
 
  published
    { Déclarations publiées }
  end;
 
 
procedure Register;
 
implementation
 
constructor TAlhFloatingWindows.Create(AOwner: TComponent);
begin
  Inherited Create(AOwner);
 
  aTitleBar:=TToolBar.Create(self);
  bClose:=TButton.Create(self);
 
  with bClose do
  begin
    Parent:=aTitleBar;
    Height:=25;
    Width:=25;
    Align:=TAlignLayout.alRight;
    Text:='X';
  end;
  with aTitleBar do
  begin
    Parent:=Self;
    Height:= 25;
    OnMouseDown:=obOnmouseDown;
    OnMouseMove:=obOnMouseMove;
    OnMouseUp:=obOnMouseUp;
  end;
 
 
end;
 
destructor TAlhFloatingWindows.Destroy;
begin
 
  Inherited;
end;
 
 
 
procedure TAlhFloatingWindows.obOnMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  OkDeplace:=false;
end;
 
procedure TAlhFloatingWindows.obOnMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  OkDeplace:=true;
  HoldPosition.X:=Position.X ;
  HoldPosition.Y:=Position.Y;
  HoldMousePosition:=Platform.GetMousePos;
end;
 
procedure TAlhFloatingWindows.obOnMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Single);
begin
  if OkDeplace then
  begin
    Position.X:=HoldPosition.X+(Platform.GetMousePos.X-HoldMousePosition.X);
    Position.Y:=HoldPosition.Y+(Platform.GetMousePos.Y-HoldMousePosition.Y);
  end;
end;
 
procedure Register;
begin
  RegisterComponents('AlhFiremonkey', [TAlhFloatingWindows]);
end;
 
end.

Question : qu'est-ce qui ne va pas dans ce code ?

Cordialement

André

[arkhamon]

Salut,

petite question : c'est quoi tes "Composants[8]" et [9] ? Si c'est des TTOolbar comme le 9 est n fils de 8, c'est normal que tu en voies 2.
PAr ailleurs, si j'en crois le code :

Code :

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

1
2
3
4
5
6
7
8
with bClose do
  begin
    Parent:=aTitleBar;
    Height:=25;
    Width:=25;
    Align:=TAlignLayout.alRight;
    Text:='X';
  end;

ton bClose a effectivement comme parent ton toolbar...
A moins que j'ai pas bien compris ton affaire...

[alheuredudejeuner]

c'est quoi tes "Composants[8]" et [9]

c'est des composant créer une deuxième fois après que j'ai déposer le nouveau composant sur une fiche et que j'ai exécuter le programme,

j'ai remplacé le toolbar par un panel, et je cherche un bout de code pour empêcher la création des composants si il sont déjà créés.

André

[arkhamon]

houla pas tout compris là...

[alheuredudejeuner]

ce code là

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
  aTitleBar:=TToolBar.Create(self);
  bClose:=TButton.Create(self);
 
  with bClose do
  begin
    Parent:=aTitleBar;
    Height:=25;
    Width:=25;
    Align:=TAlignLayout.alRight;
    Text:='X';
  end;
  with aTitleBar do
  begin
    Parent:=Self;
    Height:= 25;
    OnMouseDown:=obOnmouseDown;
    OnMouseMove:=obOnMouseMove;
    OnMouseUp:=obOnMouseUp;
  end;

s’exécute plusieurs fois

Normalement

Code :

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

TToolBar.Create(self);

ne devrais s'executer qu'une fois.

[alheuredudejeuner]

vu dans le dernier dev du jeudi

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
MonPanel:=TAlhFloatingWindows.Create(self);
MonPanel.Parent:=Self;
MonPanel.Position.X:=100;
MonPanel.Position.Y:=100;
end;

fonctionne parfaitement,
le problème survient en design.

J'ai joint l'exemple pour haut, il suffit d’exécuter plusieurs fois l'application exemple dans Delphi pour voir.