Procedure schreiben die bei Objekten Eigenschften setzt!

[Christian18]

Hallo,

ich habe mal eine kurze Frage! Ich will eine procedure schreiben in der ich folgende Informationen übergeben will!

1. Objekt (Label, GroupBox, Edit-Feld, Memo)
2. Width
3. Height
4. Top
5. Left

das will ich in einer Procedure machen. Wie kann ich das machen. Also in dem Objekt was ich übergebe, sollen dann diese Eigenschaften gesetzt werden.

Mit freundlichen Grüßen

Christian18

[Hawkeye219]

Hallo Christian18,

warum benutzt Du nicht die Methode SetBounds, die jeder TControl-Nachfolger bereits kennt?

[Christian18]

Zitat von Hawkeye219:

Hallo Christian18,

warum benutzt Du nicht die Methode SetBounds, die jeder TControl-Nachfolger bereits kennt?

weil ich diese procedure selber schreiben soll. Aber ich weiß nicht wie. Ich habe schon mal angefangen!

Delphi-Quellcode:

procedure TProgramm.Objekt(o : TObject, w, h, l, t : Integer);
begin

end;

MFG Christian18

[Luckie]

Wie wäre es mit:

Delphi-Quellcode:

procedure TProgramm.Objekt(o : TObject, w, h, l, t : Integer);
begin
  o.Width := Width;
end;

Vorher eventuell noch prüfen, ob das passende Objkekt übergeben wurde mit dem is Operator:
if (o is TEdit) then

[r2c2]

wie wärs mit

Delphi-Quellcode:

procedure TProgramm.Objekt(o : TControl, w, h, l, t : Integer); 
begin 
  o.Width := w; 
  o.Height := h;
  ...
end;

So stellst du sicher, dass es sich um ein Control handelt und ersparst dir fehlerträchtige TypeCasts...

mfg

Christian

[Christian18]

Hallo,

ich habe jetzt diese Variante verwendet.

Delphi-Quellcode:

procedure TProgramm.Objekt(o : TControl, w, h, l, t : Integer); 
begin 
  o.Width := w; 
  o.Height := h;
  ...
end;

ich habe das gerade mal mit einem Label versucht. Wenn ich bei einem Label die breite und hähe nicht übergeben möchte, was muss ich dann machen??? ich wollte nil übergeben funktioniert aber leider nicht.

[Fehler] UAnmeldung.pas(71): Inkompatible Typen: 'Integer' und 'Pointer'

[Luckie]

Übergib null oder sonst einen Wert, der nicht vorkommt und dann überprüfst du eben und führst nur was durch, wenn ees Werte sind, die du akzeptierts:
if width <> 0 then Ich würde auch die parameter eventuell umbennen: AWidth, ... damit man nicht mit der Eigenschaft durcheinander kommt.

[Hawkeye219]

Alternativ könnte man die aktuellen Werte des Controls übergeben:

Objekt (Label1, 50, 20, Label1.Left, Label1.Top); Gruß Hawkeye

[r2c2]

Zitat von Luckie:

Übergib null oder sonst einen Wert,...

Ich würd -1 vorschlagen. Position bzw. Breite/Höhe 0 kann ja vorkommen, ne nagative länge hab ich aber noch nicht gesehen...

Allerdings muss man dann aufpassen, dass im Prinzip auch negative Positionen möglich sind, dann is das Control nur nicht ganz auf der Form zu sehen(Außer, du versetzt den Ursprung, aber das übergehen wir jetzt einfach mal)...

Ne andere Möglichkeit wären uberladene Funktionen. Is in deinem Fall aber nur eingeschränkt möglich/sinnvoll...

//Edit:
Irgendwie vermiss ich den roten Kasten... Ich hoffe Daniel findet irgendwann Zeit den zu reparieren...

mfg

Christian

[Christian18]

Hallo,

so jetzt muss ich die Procedure noch erweitern. Das funktioniert aber nicht so ohne weiteres!!!

ich will jetzt noch

o.Font.Styles:=[];

drinn haben. Also ich will an die Procedure einen weiteren Parameter übergeben er heisst b wenn b 1 dann

o.Font.Styles:=[fsBold];

wenn b=0 dann

o.Font.Styles:=[];

wie kann ich das machen???? TControl kann leider kein Font.Styles

hier der code den ich bis jetzt habe!!!
<EDIT>

Delphi-Quellcode:

procedure TProgramm.Objekt(o : TControl; w, h, l, t : Integer);
begin
  if w <> 0 then o.Width:=w;
  if h <> 0 then o.Height:=h;
  if l <> 0 then o.Left:=l;
  if t <> 0 then o.Top:=t;
end;

</EDIT>

MFG Christian18