Einzelnen Beitrag anzeigen

hyype

Registriert seit: 5. Nov 2008
97 Beiträge
 
Delphi XE2 Professional
 
#6

AW: problem mit manual dock

  Alt 17. Okt 2011, 12:11
@himitsu:
ich hatte tatsächlich die components durchsucht
jetzt habe ich es so:
Delphi-Quellcode:
  for i := 0 to self.ControlCount - 1 do
    if self.Controls[i] is TSplitter then
      showmessage('1');
  for i := 0 to self.componentcount - 1 do
    if self.components[i] is TSplitter then
      showmessage('2');
  for i := 0 to panel1.controlcount - 1 do
    if panel1.Controls[i] is TSplitter then
      showmessage('3');
  for i := 0 to panel1.componentcount - 1 do
    if panel1.components[i] is TSplitter then
      showmessage('4');
  for i := 0 to testform1.ControlCount - 1 do
    if testform1.Controls[i] is TSplitter then
      showmessage('5');
  for i := 0 to testform1.componentcount - 1 do
    if testform1.components[i] is TSplitter then
      showmessage('6');
  for i := 0 to testform2.controlcount - 1 do
    if testform2.Controls[i] is TSplitter then
      showmessage('7');
  for i := 0 to testform2.componentcount - 1 do
    if testform2.components[i] is TSplitter then
      showmessage('8');
self ist das hauptformular mit dem panel, testform1 & 2 sind die, die ans panel angedockt werden.
ich bekomme keine ausgabe.. aber das teil, was da zwischen den formularen entsteht, verhält sich genau wie ein tsplitter..
edit: habe jetzt mal von allen controls/components den classname ausgeben lassen - da liegt nichts, was ich nicht hingelegt habe...

@dataspider:
du meinst, ich solle die aktuelle konfiguration per savetostream in nen stream packen und dann wieder aus dem stream rausladen? hmm..
ich hätte halt gedacht, dass es doch irgendwie per code möglich sein müsste, das ganze so einzustellen, als würde ich als user den splitter ziehen...

Geändert von hyype (17. Okt 2011 um 12:42 Uhr)
  Mit Zitat antworten Zitat