Einzelnen Beitrag anzeigen

TBx
(Administrator)

Registriert seit: 13. Jul 2005
Ort: Stadthagen
1.875 Beiträge
 
Delphi 12 Athens
 
#2

Re: Fehler überprüfen, Turbo Delphi 32 u. Delphi 2007 o. RAD

  Alt 16. Jan 2008, 22:24
Hallo Daniel,

ich kann gerade nicht auf der gewünschten Version testen, kann Dir aber erklären, woher der Effekt kommt:

Beim setzen des Namens des TLabeledEdit wird überprüft, ob das zugehörige Label eine Caption hat. Ist dies nicht der Fall, so wird diese mit dem Namen des LabeledEdit gefüllt.
Kannst Du in der Unit ExCtrls angucken:
Delphi-Quellcode:
procedure TCustomLabeledEdit.SetName(const Value: TComponentName);
begin
  if (csDesigning in ComponentState) and ((FEditlabel.GetTextLen = 0) or
     (CompareText(FEditLabel.Caption, Name) = 0)) then
    FEditLabel.Caption := Value;
  inherited SetName(Value);
  if csDesigning in ComponentState then
    Text := '';
end;
Als einfachste Möglichkeit, dies zu umgehen, fällt mir adhoc nur ein, die Caption einfach mit einem Leerzeichen zu fülen.

Hoffe, das hilft Dir weiter.

Gruß

onlinekater
Thomas Breitkreuz
Gruß Thomas
- Admin DelphiPRAXIS
- Admin Delphi-Treff
- Embarcadero MVP
  Mit Zitat antworten Zitat