Icon close max mimi.

[sakura]

Das einfachste würde es sein, eine eigene Komponente zu basteln. Hier mal der Anfang:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TPanelEx = class(TPanel)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;
  
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TPanelEx }

procedure TPanelEx.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or (WS_CAPTION or WS_THICKFRAME or
      WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SYSMENU);
end;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TPanelEx.Create(Self) do
  begin
    Left := 50;
    Top := 50;
    Width := 200;
    Height := 300;
    Parent := Self;
  end;
end;

end.

......

[himitsu]

Irgendwo müssen ja die Daten (Farben ...) für den aktiven Style gespeichert sein.

Die mußt du einfach nur abrufen.

[CalganX]

Hi,
@sakura: da wird leider nichts angezeigt. Trotz einem eingefügtem Visible := true;.

Chris

[sakura]

Hier mal die Soße von obigem Beispiel.

......

[CalganX]

Hi sakura,
super, jetzt funktioniert's.

Chris

[FriFra]

Zitat von himitsu:

Irgendwo müssen ja die Daten (Farben ...) für den aktiven Style gespeichert sein.

Die mußt du einfach nur abrufen.

Diese Daten sind nirgends gespeichert, da es sich bei den Styles (ich meine hier z.B. Titlebars etc.) um einen Satz ganz normaler Grafiken handelt.

[HomerGER]

ähhhh
eigentlich wollte ich nur die 3 button um sie für meine panels zu benutzen
und das wenn es geht im gleich style wie die im fenster
es hätte auch gereicht wenn sie den style nicht geändert hätten
ich möchte eigentlich das user - das er den button (zb. close) wieder erkennt
sprich dieser button ist close - also schliesse ich hier mit

ich hab jetzt ne button - in caption stht 'r' mit den font marlet
mqacht leider nur nicht sehr viel her
da der xp style noch fehlt
da ich nur die delphi standard button benutze kann ich leider nicht die farbe verändern

[sakura]

Mit Delphi-eigenen Boardmitteln wirst Du da nicht sehr weit kommen, da diese Buttons von Windows automatisch generiert werden. Deswegen entweder bei www.torry.ru nachschauen, oder meine Variante oder in den sauren Apfel beißen.

Wie bereits gesagt wurde, ein Großteil dieser Dinge liegt als Grafik vor - und was soll mit Deiner App auf Win9X/WinNT/Win2K Maschinen oder XP-Rechner ohne diese däm.... Schnick-Schnack geschehen

......

[HomerGER]

hmmm
schade
es soll doch schon gut aussehen

äh mein app läuft nur auf xp-maschinen

wollte mit minimalen mittel das maxinmum raus holen
aber ihr habt mich wieder auf den boden der tatsachen gebracht

dank euch allen
weiß jetzt um was es geht - hab sogar noch ne lösung mit source
werde jetzt versuchen es umzusetzen

[c113plpbr]

ich hatte da mal ne komponente namens ThemeManager vielleicht hilft dir die weiter, aber ich hab im mom kein XP mehr (system crash; cd verlegt), und kann daher nix genaues sagen.