Hi,

ich habe ein Problem mit einer Unit... ich müsste in der Unit eine Property von einer Form ändern. Nun - wie mache ich das in meiner externen Unit? Ich hab schon viel mit Handles, Objects, TForms, TCustomForms und Pointern probiert, aber klappen will es nicht. Es geht um ClientWidth und ClientHeight.

Cyas,

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

entspricht nicht ganz meinen Vorstellungen, lässt sich aber gut ummodeln. Danke und guten Rutsch!

machs doch so:

Unit1
TMyForm=class(TForm)
...
var myForm:TForm;

Unit2
uses unit1

procedure change(form:TMyForm);
begin
form.clientwidth:=666;
end;

oder:

procedure change;
begin
myForm.clientwidth:=666;
end;

Objektreferenzen sind eigentlich Zeiger !

cu
waba

Ich hab SoS-Methode etwas umgewandelt. Außerdem ist in deinem Beispiel der Typname statisch, man muss ihn als variable deklarieren und in der 2. unit den namen der 1. angeben. Was für eine dynamische Engine (oder Init-Library) wohl weniger geschickt ist.

Der Code von Son of Satan ist ja auch OK. Unit1 greift auf Unit2 zu, bei mir
eben Unit2 auf Unit1. Nur brauchst du kein ^ und @.

?
Wenn du die globale Variable meinst, bin ich auch nicht begeistert von, war nur ein Beispiel.

cu
waba