Unterster Punkt eines TImage

[Mikro]

HI,

hab mal noch ne Frage zum TImage. Und zwar will ich vermeiden, dass 2 Bilder, durch unterschiedliche Einstellungen an Rechnern, überlappen. Ich wollte dann dem Image darunter einfach die Position des untersten Punkt von dem oberen Image plus einen gewissen Abstand, also etwa so:

Delphi-Quellcode:

image2.top:=image1.top + 20;

aber der Pixel "Top" ist ja der oberste linke, daher hab ich mir gedacht, addiere ich noch die Höhge dazu:

Delphi-Quellcode:

image2.top:=image1.top+image1.height+20;

aber da gibt er mir auch ganz komische Werte aus. Hat man sonst eine Möglichkeit die "Koordinaten" einer der beiden untersten Ecken von einem Bild herauszufinden?

bye

[Namenloser]

Hi,

ich kann keinen Fehler finden, dein Lösungsweg ist nach meiner Ansicht richtig. Aber köntne es vielleicht sein, dass eines der Images z.b. Auf einem Panel liegt? Die Koordinaten Top und Left beziehen sich immer auf das übergeordnete Control.

[Mikro]

Hej,

es funktioniert jetzt auch... KA, was ich eben gemacht hab. Allerdings funktioniert das so nur bei Bildern, das hier:

Delphi-Quellcode:

button1.top:=image5.top+image5.height+30;

interessiert den nicht, da macht der wieder irgendeinen Kram... Setzt den Button ins BIld rein. Panels hab ich keine verwendet, bzw, nicht in dem Raum, zwar auf dem Form, aber eben nicht in der Nähe...

[Namenloser]

Hmm... lädst du vielleicht den Inhalt des Bildes erst nachdem du die Position des Buttons geändert hast? Oder setzt du danach vielleicht autosize vom Image auf true? :gruebel:
Vielleicht wäre es ganz Hilfreich, wenn du die .PAS und die .DFM mal hier anhängen würdest.

[Mikro]

Das Bild ist immer fest, habe es also schon vor dem Compilieren in das Image geladen. autosize hab ich auch von anfang an auf true gesetzt, wurde mir in einem anderen Thread empfohlen, um die Bilder nicht durch ein zu kleines Image "abzuschneiden", wenn auf nem anderem Recher die Auflösung anders ist.
Hier mal die 2 gewünschten Dateien, hoffe das hilft... :-)

bye

[bitsetter]

Hi,

Delphi-Quellcode:

  
procedure TForm3.FormShow(Sender: TObject);
begin   
     image3.top:=image1.top+image1.height+30;
     image4.top:=image2.top+image2.height+30;
     button1.top:=image5.top+image5.height+30;//<--
    with form3 do
     begin
          show;
          top:=form1.Top;
          left:=form1.left;
          width:=form1.width;
          height:=form1.Height;
     end;
     with button1 
     begin
          setfocus;
          left:=form2.button1.Left;
          top:=form2.button1.top;//<--
          height:=form2.button1.height;
          width:=form2.button1.Width;
     end;
end;

Änderst du nicht noch ein 2. Mal die Position des Button1 ?

[Mikro]

oh man, wie peinlich :-D

Danke, hab ich voll übersehen... klappt jetzt