Enumeration kann nich angesprochen werden?

[schneidc]

Hallo,

ich habe Probleme beim dynamischen entfernen der Kante eines Panels. Es geht dabei um folgenden Aufruf:

Code:

TPanel.BevelInner:=bvNone;

Das Problem ist, dass der Enumerationswert "bvNone" zum einen in der Unit "Controls" - die ja zum Standardumfang von Delphi gehört - als auch einer weiteren Unit einer 3rd Party Bibliothek vorkommt und sich der Linker dummerweise aus der falschen bedient. Mein Versuch die Zuweisung quasi mit dem Holzhammer zu machen schlug leider fehl.

Code:

TPanel.BevelInner:=Controls.TBevelCut[0];

Das Problem hierbei ist, dass der Linker durch das Stichwort "Controls" sich auf die Property TWinControl.Controls innerhalb der Unit Controls bezieht und nicht auf die Unit an sich.

Jetzt bin ich mit meinem Latein am Ende und erklären kann ich mir das Verhalten auch nicht. Was kann ich tun, um Zugriff auf TBevelCut zu erhalten?


Danke
Simon

[DeddyH]

Evtl. genügt es bereits, wenn Du die Unit Controls in der uses-Klausel nach hinten verschiebst.

[olee]

Schreib doch einfach
TPanel.BevelInner:=Controls.bvNone;
MFG
Björn Zeutzheim

[schneidc]

@DeddyH
Danke für den Tipp, aber das hatte ich leider schon erfolglos versucht

@olee
Damit habe ich das gleiche Problem, dass er sich auf die Property "Controls" und nicht auf die Unit bezieht.

[olee]

Dann mach es doch so:
Mach ne kleine statische (am besten inline) Methode, welche dir deinen Wert zurückgibt:

Delphi-Quellcode:

function GetBvNone: Controls.TBevelCut; inline;
begin
  Result := Controls.bvNone;
end;

[schneidc]

Super, das hat geholfen! Danke

Zitat von olee:

Dann mach es doch so:
Mach ne kleine statische (am besten inline) Methode, welche dir deinen Wert zurückgibt:

Delphi-Quellcode:

function GetBvNone: Controls.TBevelCut; inline;
begin
  Result := Controls.bvNone;
end;

[olee]

Das praktische daran: Durch das inline findet in wirklichkeit ja kein Funktionsaufruf statt, sondern nichts weiter als die Zuweisung, da der Delphi-Compiler das dadurch entsprechend optimiert.

[himitsu]

Zitat von olee:

Das praktische daran: Durch das inline findet in wirklichkeit ja kein Funktionsaufruf statt, sondern nichts weiter als die Zuweisung, da der Delphi-Compiler das dadurch entsprechend optimiert.

Solange er die neue Methode vor deren Verwendung implementiert hat.
Kommt die Implementation erst später, wird nicht geinlinet, da der Compiler den Code noch nicht kennt.

(böse Falle, wenn man zwingend das Inline benötigt)

[olee]

Das funktioniert aber auch nur wenn die Funktion vordeklariert wurde, was hier aber sowieso garnicht beabsichtigt wurde.
Aber guter Hinweis - das mit dem inline.

[Namenloser]

Wobei es hier eh um GUI-Zeug geht, von daher kann man den Overhead durch den Funktionsaufruf hier echt mal vernachlässigen