Zitat von
Union:
Genau das sorgt ja für die Rekursion. Die Property heisst SnapWidth. Der Getter heist GetSnapWidth. Wenn innerhalb des Getters wieder SnapWidth steht, wird die Property angesprochen. Diese ruft den Getter auf etc. Der ursprüngliche Tip mit der Klassenvervollständigung kam nicht von mir.
Ok verstehe.. obwohl igendwie nicht logisch! in Delphi
Code:
Public Property Get SnapWidth() As Long
SnapWidth = m_lSnapWidth
End Property
Public Property Let SnapWidth(ByVal New_SnapWidth As Long)
m_lSnapWidth = New_SnapWidth
End Property
Bei Let wird der neue Wert m_lSnapWidth zugewiesen wenn
dieser übergeben wird ..
Code:
Private Sub Class_Initialize()
'-- Default snap width
m_lSnapWidth = 10 // Hier wird er übergeben beim initialisieren der klasse
'-- Initialize array (handled windows info)
ReDim m_uWndInfo(0) As WND_INFO
m_lWndCount = 0
End Sub
und in der Public Variablen m_lSnapWidth gespeichert.
Über 'Get SnapWidth' kann ich die Variable abfragen welchen aktuellen wert sie hat.
Klappt in VB !
gruß