Bevel auf einem Rechteck

[DeddyH]

Oder das Setzen des Parents? Das wäre mein erster Verdacht.

[Chris211183]

Hi deddyH,

danke !
Nein habe ich nicht !
Meins sieht aber auch so aus, ich schnüffel da heute Abend nochmal durch, irgendwie is das komisch !
Melde mich dann nochmal, obs klappt oder wo der Fehler lag

[Chris211183]

ne den Parent habe ich auch !
Daher ja meine Verzweiflungen

[DeddyH]

Nochmal im Ganzen:

Delphi-Quellcode:

type
  TMyCompo = class(TGraphicControl)
  protected
    procedure Paint; override;
  end;
   
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FTest: TMyCompo;
  end;

...

procedure TMyCompo.Paint;
var
  R: TRect;
begin
  inherited;
  Canvas.Brush.Color := clYellow;
  Canvas.FillRect(Rect(0, 0, Width, Height));
  R := Rect((Width - 50) div 2, (Height - 50) div 2,
    (Width + 50) div 2, (Height + 50) div 2);
  Frame3D(Canvas, R, $00DADADA, clDkGray , 1);
end; 
  
procedure TForm1.FormCreate(Sender: TObject);
begin
  FTest := TMyCompo.Create(self);
  FTest.Width := 200;
  FTest.Height := 200;
  FTest.Parent := self;
end;

Damit sollte in etwa das Bild aus meinem Screenshot erscheinen. Allerdings habe ich das jetzt gerade schnell im Editor zusammenkopiert, daher ohne Gewähr.

[himitsu]

Zitat von DeddyH:

Nochmal im Ganzen:

Und das FormCreate muß im OI am OnCreate der Form angehängt sein.

[DeddyH]

Das versteht sich ja wohl von selbst.

[himitsu]

Zitat von DeddyH:

Das versteht sich ja wohl von selbst.

Das hatte ich auch mal gedacht, aber wurde eines Besseren belehrt.

[Chris211183]

Hab da mal zusammenkopiert und dennoch nix (bin ich zu dämlich ?)

Istbestimmt wieder ein Anfängerfehler

Delphi-Quellcode:

unit Unit1;

interface

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

Type
TMyCompo = class(TGraphicControl)


protected
   procedure Paint; override;
end;



TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private
   FTest: TMyCompo;
end;


var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TMyCompo.Paint;
var
R: TRect;


begin
inherited;
Canvas.Brush.Color := clred;
Canvas.FillRect(Rect(0, 0, Width, Height));
R := Rect((Width - 50) div 2, (Height - 50) div 2,
(Width + 50) div 2, (Height + 50) div 2);
Frame3D(Canvas, R, clblack ,clyellow , 3);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FTest := TMyCompo.Create(self);
FTest.Width := 200;
FTest.Height := 200;
FTest.Parent := self;

end; 

end.

[DeddyH]

Vielleicht hat himitsu doch Recht. Ist das OnCreate-Ereignis des Formulars auch mit der FormCreate-Methode verknüpft (Objektinspektor)?

[baumina]

Klicke auf das Formular und gehe im Objektinspektor unter Ereignisse auf das Ereignis "OnCreate" und mache da einen Doppelklick, so dass in der .DFM folgende Zeile eingefügt wird : OnCreate = FormCreate.

Daraufhin müsste das Ganze klappen.