Hi
Da sich in meinen Programmen einiges (visuell) wiederholt dacht ich mir ich bau mir ne eigene Komponente.
So weit klappt auch alles nur manchmal kommt es zu einem Anzeigefehler (siehe Anhang) der verschwindet, wenn ich z.B. Alt-Tab oder ähnliches mache.

Ich schätze mal, ich hab beim erstellen der einzelnen "Unterkomponenten" was vergessen bzw. falsch gemacht. (is ja schließlich meine erste Kompon-ente)

Hier mal n bissl Code:

markieren

Delphi-Quellcode:

type
  TEingabefeldString = class(TCustomControl)

zusammenfalten · markieren

Delphi-Quellcode:

constructor TEingabefeldString.Create(AOwner: TComponent);
begin
  inherited;

  Width := 212;
  Height := 70;

  OnCanResize := ObjectCanResize;

  GroupBox := TGroupBox.Create(Self);
  with GroupBox do
  begin
    parent := Self;
    SetBounds(1,1,209,65);
  end;

  EdEingabefeld := TLMDEdit.Create(Self);
  with EdEingabefeld do
  begin
    parent := GroupBox;
    SetBounds(16,24,89,22);
    TabOrder := 0;

    OnKeyDown := EdStringEditfeldKeyDown;
    OnTextChangedAt := EdStringEditfeldTextChangedAt;
  end;

  BtnUebernehmen := TLMDButton.Create(Self);
  with BtnUebernehmen do
  begin
    Parent := GroupBox;
    SetBounds(120,24,75,25);
    Caption := #252'bernehmen';
    Enabled := False;
    TabOrder := 1;
    Color := clBtnFace;
    ParentColor := False;
    OnClick := BtnUebernehmenClick;
    OnKeyDown := BtnUebernehmenKeyDown;
  end;

  Aussehen := asNormal;
end;

markieren

Delphi-Quellcode:

destructor TEingabefeldString.Destroy;
begin
  BtnUebernehmen.Free;
  EdEingabefeld.Free;
  GroupBox.Free;
  inherited;
end;

Den gleichen Fehler habe ich auch bei einer anderen Komponente, die mit TAbNumSpin arbeitet.

Währe schön, wenn ihr mir helfen könntet.

ich glaube du vergisst den Controlstyle zu setzen.

du kannst übrigens auch anstelle von

markieren

Delphi-Quellcode:

Width := 212;
Height := 70;

foglendes schreiben
SetBounds(Left, Top, 212, 70); so wie du es beim Edit etc. gemacht hast

Zitat von SirThornberry:

du kannst übrigens auch ... foglendes schreiben
SetBounds(Left, Top, 212, 70); so wie du es beim Edit etc. gemacht hast

Ja ne is klar ...

Zitat von SirThornberry:

ich glaube du vergisst den Controlstyle zu setzen.

Hmm das ist wohl war. Aber auf was sollte ich es denn setzten?
Ich hab mal csOpaque "versucht" und der Fehler tritt tatsächlich nicht mehr auf. Ist aber nur TryAndError