Dockowanie na TPanel

0

witam,
otóż obsługuję dockowanie formy na TPanel
i wszystko jest ok, bez problemu,
ale:

  • po zadokowaniu forma nie ma Caption...
    znacie jakiś trick aby Caption był widoczny?
0
windows.SetParent(form2.Handle,panel1.Handle) ;//coś jak to ?
0

witam,
niestety, SetParent nie pomogło...
może macie jeszcze jakies propozycje?
poza tym ja mam wrażenie, że Parent jest ustawiany jakos
z automatu przy dockowaniu.
samego docka robię trochę ręcznie:

procedure TMainForm.pnlLeftDockDockDrop(Sender: TObject; Source: TDragDockObject; X,
  Y: Integer);
begin
  Source.Control.ManualDock( pagLeftDockContainer, nil, alBottom ) ;

a Caption niewidoczny...

0

po zadokowaniu prosisz o podanie paska a więc w formatce którą dokujesz ustaw :

procedure TForm2.FormEndDock(Sender, Target: TObject; X, Y: Integer);
begin
borderStyle:=BsSizeAble;
end;

bez Set Parent :)

0

hej,
ano zrobiłem tak i dalej nic.

tutaj jest screenshot:
tam gdzie są kropeczki powinien być Caption formy.
user image

0

hmm dziwne ja mam dokowanie z automata i efekt jest taki :

user image

panel
DragKind = DkDock;
drag Mode =Manual ;
dockSite = True;

forma
DragKind =Dkdock;
drag Mode =Automatic ;</url>

0

hej,
być może wersja Delphi ma znaczenie przy dokowaniu, ja mam Delphi 2007...

a ustawienia mam identyczne ustawienia i efekt:
user image

załamka po prostu, bez belki Caption kompletnie

0

hmmm "rzuć" kodem moze : [email protected] cos pokombinuje i odeśle .

0

hej,
Piotrek wstępnie problem rozwiązał,
na formie dokowanej:

procedure TToolForm1.FormEndDock(Sender, Target: TObject; X, Y: Integer);
begin
  ToolForm1.BorderStyle := bsSizeable ;
end;

pozostaje inny problem: jak zapamiętać dokowanie
i przy następnym uruchomieniu odtworzyć....
jakiś pomysł? może przez stream ?

1 użytkowników online, w tym zalogowanych: 0, gości: 1