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:

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:

Delphi-Quellcode:

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:

Delphi-Quellcode:

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:

Delphi-Quellcode:

Objekt (Label1, 50, 20, Label1.Left, Label1.Top);

Gruß Hawkeye

[r2c2]

Zitat:

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

[Christian18]

Hi,

ist es nicht möglich wie ich es vor habe??? Was ich tun möchte ist im vorherrigen Beitrag!

MFG Christian18

[Sascha L]

Ich kann dir grade leider nicht einen Code zeigen, da das Update2 für Delphi06 gerade mein Delphi ruiniert :D

Du kannst doch aber z.B. folgendes machen:

Delphi-Quellcode:

(o as TLabel).Font.Styles

Wenn du unbedingt mit 1,2... für die einzelnen Styles arbeiten willst, würde ich ne Case-Anweisung verwenden. Ansonsten übergibt der Prozedure doch gleich die FontStyles. So ist es auch möglich dass du z.B. fsBold und fsItalic mit einem Aufruf einstellen kannst.

[r2c2]

Doch TControl hat ne Font-property(grad nochmal nachgeguckt).

Ergo:

Delphi-Quellcode:

procedure TProgramm.Objekt(o : TControl; w, h, l, t : Integer; AFontStyle: TFontStyle); 
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; 
  o.FontStyle := AFontStyle;
end;

mfg

Christian

[Christian18]

Hallo,

wenn ich bei mir o.FontStyle eingebe, dann kommt eine Fehlermeldung

Undefinierter Bezeichner 'FontStyle'

Ich habe kein FontStyle?!?!?

muss ich noch eine uses dazufügen??? ich habe Grphics hinzugefügt, da TFontStyle da drinn ist. was kann ich gegen den Fehler tun???

[Hawkeye219]

FontStyle ist keine Eigenschaft von TControl, es muß Font.Style heißen. Die Font-Eigenschaft ist aber in Deiner Routine nicht erreichbar, da sie als protected deklariert ist. Man könnte hier zwar einen "ClassCracker" einsetzen, aber das würde den Rahmen wohl sprengen. Abgesehen davon ist Font.Styles eine Menge, übergeben wird aber ein Mengenelement. Eine direkte Zuweisung wird also in keinem Fall funktionieren.

Gruß Hawkeye

[Sascha L]

Delphi-Quellcode:

procedure TForm1.ChangeObject(o : TControl; w, h, l, t : Integer; AFontStyle: TFontStyles);
begin
  if w > -1 then o.Width:=w;
  if h > -1 then o.Height:=h;
  if l > -1 then o.Left:=l;
  if t > -1 then o.Top:=t;
  (o as TLabel).Font.Style := AFontStyle;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeObject(Label1,100,50,-1,-1,[fsBold,fsItalic]);
end;

Oder:

Delphi-Quellcode:

procedure TForm1.ChangeObject(o : TControl; w, h, l, t : Integer; AFontStyle: TFontStyles);
begin
  with o do begin
    Width:=w;
    Height:=h;
    Left:=l;
    Top:=t;
  end;
  (o as TLabel).Font.Style := AFontStyle;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeObject(Label1,100,50,Label1.Left,Label1.Top,[fsBold,fsItalic]);
end;

[dataspider]

Hi,

am sichersten sollte es über RTTI gehen:

Delphi-Quellcode:

Uses
  TypInfo
...
procedure SetControlParams(AControl: TControl; AFontStyle: TFontStyles; w:
    Integer = -1; h: Integer = -1; l: Integer = -1; t: Integer = -1);
Var
  AFont: TFont;
begin
  if w > -1 then AControl.Width:=w;
  if h > -1 then AControl.Height:=h;
  if l > -1 then AControl.Left:=l;
  if t > -1 then AControl.Top:=t;
  if IsPublishedProp(AControl, 'Font') then
  begin
    AFont := TFont(GetObjectProp(AControl, 'Font'));
    AFont.Style := AFontStyle;
  end;
end;