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?
witam,
otóż obsługuję dockowanie formy na TPanel
i wszystko jest ok, bez problemu,
ale:
windows.SetParent(form2.Handle,panel1.Handle) ;//coś jak to ?
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...
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 :)
hej,
ano zrobiłem tak i dalej nic.
tutaj jest screenshot:
tam gdzie są kropeczki powinien być Caption formy.
hmm dziwne ja mam dokowanie z automata i efekt jest taki :
panel
DragKind = DkDock;
drag Mode =Manual ;
dockSite = True;
forma
DragKind =Dkdock;
drag Mode =Automatic ;</url>
hej,
być może wersja Delphi ma znaczenie przy dokowaniu, ja mam Delphi 2007...
a ustawienia mam identyczne ustawienia i efekt:
załamka po prostu, bez belki Caption kompletnie
hmmm "rzuć" kodem moze : [email protected] cos pokombinuje i odeśle .
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 ?