Neue Komponente erstellen

[Hansa]

Hi,

mit soviel Resonanz habe ich gar nicht so schnell gerechnet. 8) Udos Programm bildet eine gute Grundlage. Ich habe jetzt versucht, das Label links anzuordnen und zwar mit diesen Änderungen bei TDBeditLabel:

Code:

published

property DBEditCaption: WideString read FCaption write SetCaption; 
    property DBEditCaptionPos: TLabelPosition read FCaptionPos write SetCaptionPos;

Code:

procedure TDBEditLabel.SetCaptionPos(Value: TLabelPosition);
begin
  if Value <> FCaptionPos then
  begin
    FCaptionPos := Value;
//    FLabel.CaptionPos := Value;
  end;
end;

Dann zeigt er mir im OI auch schön an: lpAbove, lpLeft usw. Aber eine Änderung bewirkt nichts. Im Prinzip würde es zumindest mir fast schon reichen, wäre das Label standardmäßig links. Das Teil sollte sich halt schon so ähnlich verhalten wie TLabeledEdit bei D6. Danach wollte ich dann noch LabelSpacing entsprechend nachbilden. Da hab ich aber im Moment keinen Plan, wo ich da anfangen soll.

Gruß
Hansa