Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#17

Re: Komponenten sollen bleiben wo sie sind

  Alt 16. Aug 2003, 18:28
hm aber mit mehren kompos klappt das nicht da sie ja dann alle in er mitte bleiben würden(also alle übereinander)....ich möchte das verhältnis aber nur beibehalten...

ich hatte das mit einer prozdur versucht

Delphi-Quellcode:
procedure NewCompPos(comp: TWinControl);
var
  percL, percT: integer;
begin
  with comp as TWinControl do
  begin
    percL := FormW DIV comp.Left;
    percT := FormH DIV comp.Top;
    comp.Left := Form1.Width DIV percL;
    comp.Top := Form1.Height DIV percT;
  end;
end;
FormW und FormH sind 2 globale veriablen die die alte form1 grösse beinhalten.... aufrufen tu ichs dann halt mit

Delphi-Quellcode:
procedure TForm1.FormResize(Sender: TObject);
begin
  NewCompPos(Panel1);
end;

nur irgendwie funktionietr das ganze noch nicht so, wenn ich die fenster grösse ändere ist das panel in der bewegung viel lahmer als das fenster selbst, wieso das?
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat