Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by APP, 29. Mär 2003
  Naja, viel Spaß dann noch :dancer:
  
  Trotzdem, der Vollständigkeit halber:
  
  ...
  TYPE
  TCustEd = CLASS(TEdit)
  PRIVATE
  FDBfeldLabel: TLabel;
  FWriteLabel: STRING;
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by APP, 29. Mär 2003
  Noch ein Fehler von mir: :oops:
  
  PROCEDURE TForm1.Button1Click(Sender: TObject);
  BEGIN
  CustEd1.WriteLabel :='df'; // .SetWriteLabel ('fer'); ist Blödsinn!!!!
  END;
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by APP, 29. Mär 2003
  Hallo,
  probier mal das:
  
  UNIT CustEd;
  
  INTERFACE
  
  USES
  Windows,
  Messages,
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by APP, 29. Mär 2003
  Naja,
  weil Du im
  property DBfeldLabel : TLabel read FDBfeldLabel write SetDBLabel;
  DBfeldLabel als TLabel deklariert hast,
  daher muß das Attribut
  FDBfeldLabel : TLabel;
  und der Schreibzugriff
  write SetDBLabel;
  ...
  procedure TDBLabeledEdit.SetDBLabel(st : TLabel);
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by APP, 29. Mär 2003
  Hallo,
  probier mal das:
  
  procedure TDBLabeledEdit.SetDBLabel(Const st : TLabel);
  IF Assigned(FDBfeldLabel) THEN
  BEGIN
  FDBfeldLabel.Caption := st.Caption;
  END;
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by APP, 29. Mär 2003
  Hallo,
  
  bin mir nicht sicher, aber hast Du im Objektinspektor
  deiner Eigenschaft "DBfeldLabel" einen Label zugeordnet?
  
  Könntest ja prüfen mit:
  procedure TDBLabeledEdit.SetDBLabel (st : string);
  IF Assigned(FDBfeldLabel) THEN
  BEGIN
  FDBfeldLabel.Caption := st; // 'st'