Einzelnen Beitrag anzeigen

Benutzerbild von Jan
Jan

Registriert seit: 24. Sep 2002
Ort: Magdeburg
491 Beiträge
 
Delphi 7 Enterprise
 
#5
  Alt 6. Mär 2003, 15:35
hallo,
bei mir sieht der Code jetzt so aus:


Code:
memo1.width:=(form1.width div 2)-20;
memo1.height:=(form1.height div 2)-20;
memo2.width:=(form1.width div 2)-20;
memo2.height:=(form1.height div 2)-20;
memo3.width:=(form1.width div 2)-20;
memo3.height:=(form1.height div 2)-20;
memo4.width:=(form1.width div 2)-20;
memo4.height:=(form1.height div 2)-20;
memo2.left:=(form1.width div 2)+10;
memo3.top:=(form1.height div 2)+10;
memo4.top:=(form1.height div 2)+10;
memo4.left:=(form1.width div 2)+10;

das klappt auch.
Die Memos resizen sich sehr schön, aber komischerweise habe ich immer 2 scrolleisten, mit denen ich scrollen kann. wobei ich weiss, dass an den angaben die hier oben gemacht sind nichts falsch ist. ich habe die memos mit jeweils 10 px abstand zum formrand gesetzt. und der mittelabastand beträgt 20px.
Dass die werte auch während dem ausführen korrekt sind sehe ich über diesen aufruf:

Code:
showmessage(inttostr(form1.width)+' '+inttostr(memo1.left)+' '+inttostr(memo1.width)+' '+ inttostr(memo2.left)+' '+inttostr(memo2.width));
Die werte, die ich dabei bekomme sind genau die, die ich brauche, damit überall ein rand sein sollte, aber irgendwie ist dieser Rand überschritten, weil ich ja scrollbars bekomme.
Hat da jemand einen Plan?
BB
Jan
Jan
Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
  Mit Zitat antworten Zitat