FindComponent in andere Forms

[thomas2009]

Hi

ich möchte die Höhe einer Image in Form2 messen

Der Code ist aber in Form1
Ich habe einen globalen Variable heisst

Bublic
myimage:String

Bei klick auf eine image in form1, wird der globalen String aktualisiert

Beispiel :

Delphi-Quellcode:

procedure TForm2.Image1Click(Sender: TObject);
begin
Form1.myimage:='Form2.Image1';
...

Nach dem ich in form2 auf eine image geklickt habe,
will ich danach von Form1 die Höhe der angeklickten Image messen

Delphi-Quellcode:

H:= (FindComponent(myimage) As TImage).Height; // Fehler

Wie kann ich am besten tun ?

Weil "Form2.image1" wird vom Code als der Image-Name in Form1 angenommen :(

[DeddyH]

Und wieso deklarierst Du myimage nicht gleich als TImage und übergibst das dann direkt statt über einen String?

[thomas2009]

Na gut, aber wenn ich den globalen var in Form1 so änder

Delphi-Quellcode:

Bublic
myimage:TImage;

Wie geht es weiter beim Klicken auf eine image in Form2 ?

Delphi-Quellcode:

procedure TForm2.Image1Click(Sender: TObject);
begin
// ?
Form1.myimage:=;
...

[DeddyH]

Überleg mal, das ist ganz einfach.

[rollstuhlfahrer]

Meckert Delphi nicht wegen dem Bublic?

Ansonsten: Wie soll was weiter gehen?

Bernhard

[thomas2009]

Zitat:

Zitat von DeddyH (Beitrag 1092006)

Überleg mal, das ist ganz einfach.

Doch, das Problem habe ich mit String gelöst ;)

Delphi-Quellcode:

...
Bublic
myimagename:String; 
...

var
myimage:TImage; 

procedure TForm2.Image1Click(Sender: TObject);
begin
Form1.myimagename:='Form2.Image1';
...

Nun aufruf in Form1

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
myimage.Name :=myimageName;
H:=myimage.Hight;

:lol: Oder gibt es was noch einfacher ?

[DeddyH]

Ich geb's auf :wall:

[thomas2009]

Zitat:

Zitat von DeddyH (Beitrag 1092012)

Ich geb's auf :wall:

Warum gibt es auf ? Es hat mindestens funktioniert :evil:

[IceBube]

Hallo!

Am besten wärs meiner Meinung nach wie @DeddyH es bereits geschrieben hat. Wenn du es doch mit einem String machen möchtest könntest du es so (auch) machen..

Delphi-Quellcode:

//Form1
public {nicht bublic}
 myImage : String;

//Form1.Image1

procedure Tform2.imageClick();
var H : Integer;
begin
 Form1.myImage := 'Image1';
 H             := TImage(Form1.FindComponent(Form1.myImage)).Height;
end;

lg
end;

[DeddyH]

Zitat:

Zitat von IceBube (Beitrag 1092018)

Am besten wärs meiner Meinung nach wie @DeddyH es bereits geschrieben hat.

Danke :) Dazu muss man nur noch darauf kommen, dass man dann eine Instanz von TImage übergibt und fertig wär' s.