AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

frage zu neuer komponente

Ein Thema von Snoop007 · begonnen am 2. Mär 2003 · letzter Beitrag vom 2. Mär 2003
Antwort Antwort
Snoop007

Registriert seit: 15. Jan 2003
331 Beiträge
 
Delphi 6 Personal
 
#1

frage zu neuer komponente

  Alt 2. Mär 2003, 22:06
hi,
ich leite eine neue komponente von der TImage ab,
nun möchte in diese ein memo unterbringen

ich habe die anweisungen in den constructor der neuen komponente reingepackt aber leider zeigt sich die memo komponente nicht
wieso ?

Delphi-Quellcode:
constructor TTest.Create(AOwner: TComponent);
var
  NeuesMemo : TMemo;
begin
  inherited;
  NeuesMemo := TMemo.Create(AOwner);
  NeuesMemo.Clear;
  NeuesMemo.Width := Width - 10;
  NeuesMemo.Width := Height - 10;
  NeuesMemo.Top := 10;
  NeuesMemo.Left := 10;
end;
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2
  Alt 2. Mär 2003, 22:22
Das TImage muß das Memo als Parent haben.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Snoop007

Registriert seit: 15. Jan 2003
331 Beiträge
 
Delphi 6 Personal
 
#3
  Alt 2. Mär 2003, 22:26
sorry das sagt mir irgendwie nichts
meinst du
meinMemo.parent := self.parent; ?
  Mit Zitat antworten Zitat
Chewie

Registriert seit: 10. Jun 2002
Ort: Deidesheim
2.886 Beiträge
 
Turbo Delphi für Win32
 
#4
  Alt 2. Mär 2003, 22:35
Schreib doch einfach:
TTest.Parent := NeuesMemo;
Martin Leim
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind
  Mit Zitat antworten Zitat
Snoop007

Registriert seit: 15. Jan 2003
331 Beiträge
 
Delphi 6 Personal
 
#5
  Alt 2. Mär 2003, 22:39
er zeigt es mir aber nicht an ...
  Mit Zitat antworten Zitat
Snoop007

Registriert seit: 15. Jan 2003
331 Beiträge
 
Delphi 6 Personal
 
#6
  Alt 2. Mär 2003, 22:46
hier die komplette komponente
Delphi-Quellcode:
unit ProgrammBlock2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TProgrammBlock2 = class(TImage)
  private
    FText : string;
    FLinienfarbe : TColor;
    FHintergrund : TColor;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  protected
  public
    constructor Create(AOwner: TComponent);
  published
    property Text : string read FText write FText;
    property Linienfarbe : TColor read FLinienfarbe write FLinienfarbe;
    property Hintergrund : TColor read FHintergrund write FHintergrund;
  end;

procedure Register;

implementation

procedure TProgrammBlock2.WMPaint(var Message: TWMPaint);
begin
  inherited;
  canvas.Brush.Color := FHintergrund;
  canvas.Pen.Color := FLinienfarbe;
  canvas.Rectangle(Self.ClientRect);
end;


constructor TProgrammBlock2.Create(AOwner: TComponent);
var
  NeuesMemo : TMemo;
begin
  inherited;
  NeuesMemo := TMemo.Create(AOwner);
  NeuesMemo.Clear;
  NeuesMemo.Width := Width - 10;
  NeuesMemo.Width := Height - 10;
  NeuesMemo.Top := 10;
  NeuesMemo.Left := 10;
  Parent := NeuesMemo;
end;

procedure Register;
begin
  RegisterComponents('ProgrammStruckturen', [TProgrammBlock2]);
end;

end.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz