Hey In der Schule ist grade OBjektorientiertes Arbeiten dran, aber bis jetzt stande ich noch nicht vor dem Problem eine Variable zu übergeben, also wir hatten das schon mal mit Property, aber bei einem anderen Prjekt.. Egal naja ich bin voll überfordert grade!
Also mein Problem ist ich habe eine Klasse TAussehen (Unit3) Nun möchte ich Variablen aus der Unit2 an TAussehen übergeben und ein Shape1 in Unit1 mit diesen Variablen anpassen.
Beim Buttonklick auf Form2 (die einstellungen für das aussehen!
Code:
procedure TForm2.Button1Click(Sender: TObject);
begin
set4(stylebox1.text); // probiert mit procedure zu übergeben, hab // aber keine Ahnung wass ich davor schreiben soll. //TIrgendwas.set4 usw.
set2(colorbox1.Color);
set3(colorbox2.Color);
set1(strtoint(LabeledEdit1.text))
end;
Dann in Unit3
Code:
unit Unit3;
interface
uses Graphics;
type TAussehen= class(TObject)
protected
border_width:integer;
bordercolor:Tcolor;
color:Tcolor;
border_pattern:string;
public
procedure set1(bw:integer);
procedure set2(bc:TColor);
procedure set3(clr:TColor);
procedure set4(bp:string);
end;
implementation
procedure Taussehen.set1;
begin
border_width:=bw;
end;
procedure Taussehen.set2;
begin
bordercolor:=bc;
end;
procedure Taussehen.set3;
begin
color:=clr;
end;
procedure Taussehen.set4;
begin
border_pattern:=bp;
end;
und schließlich die Neuen Variablen an Unit1 übergeben
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.shape1.pen.width:=border_width;
if border_pattern = 'gepunktet' then
shape1.pen.style:=psDot
else if border_pattern = 'gestrichelt' then
shape1.pen.style:=psDash
else if border_pattern = 'punkt-strich' then
shape1.pen.style:=psDashDot
else if border_pattern = 'punkt-punkt-strich' then
shape1.pen.style:=psDashDotDot
else if border_pattern = 'solid' then
shape1.pen.style:=psSolid
else if border_pattern = 'keinen Rahmen' then
shape1.pen.style:=psClear
Und alles so das es auch so nach dem Prinzip der Objektorientiereung "SICHER" ist.
Danke für eure Hilfe
Ach und ja also später kommt noch die Position und Größe des Objektes aus
Unit 4 dazu, dazu gibt es Button auf Form1, die dann mit einer Procedur das ding vergrßert, also width und height ändert, aber das würde ich dann alleine hinkriegen glaub ich mal ^^.