Ohne Fremdkomponente Button in die Formleiste bringen

[Nicodius]

wie kann ich ohen Fremdkomponente einen button neben dem "X" positionieren bzw mehrere Buttons an beliebigen positionen beim formcaption?


mit freundlichen Grüßen (@stan und natürlich ROTFRONT)

Nico

[Sprint]

In der JVCL ist eine Komponente die auch mit Theme unter XP funktioniert. Kannst dir ja mal den SourceCode dazu anschauen.

[Nicodius]

ja aber ich bin kein jedi fan bei mir funzt das nie :(

--> ich habs also nicht mehr oben ich hatte die komponente ja aber nach 2-3 tagen gehen meine Fremdkompos allesamt nicht mehr :?


egal


vl wäre wer so nett mri den quellcode zu schicken :love:

[Sprint]

Brauchst dir die ja die JVCL nicht installieren. Reicht ja wenn du dir die Unit JvCaptionButton anschaust.

[DaFox]

Hi!

Delphi-Quellcode:

// ...
private
  procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPaint;
// ...
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
begin
  inherited;
  // mit GetWindowDC() DC von Form holen
  // mit GetSystemMetrics() Größe des Buttons ermitteln (SM_CXSIZE, SMCYSIZE)
  // Button zeichnen, bspw. mit DrawEdge oder per Resource
end;

Gruß,
Markus

PS: Ungetestet. :)

[Luckie]

WM_NCPAINT ist aber nur eine von wenigen Nachrichten, die man abfangen muss. Hier noch mal ein Beispiel, um den Text der Fenstercaption zu zentrieren: http://www.luckie-online.de/Delphi/S...M_NCPAINT.html

Hier im Forum, muss auch irgendwo Code von mir rumschwieren, wie man es mit einem Button macht.

[Nicodius]

danke erstmal


jo luckie, könntest du mir den Link posten?

danke

[Luckie]

Ich müsste sleber suchen.

[Nicodius]

och bitte mach das


mitten i munterricht schreib ich diese nachricht wir machen grad wieder word ^^

[Luckie]

Gut: WM_NCPAINT. Mann!!!

[Nicodius]

danke es geht ja :mrgreen:

[stoxx]

Zitat:

wie kann ich ohen Fremdkomponente einen button neben dem "X" positionieren bzw mehrere Buttons an beliebigen positionen beim formcaption?

hast Du es nun hinbekommen ???
Bei Jedi sind nämlich 2 Demos dazu dabei, einmal die Jedi Komponente und dann eine Demonstration ohne diese in der Datei Capbtn.pas

Aber die Komponente kannst Du auch sehr einfach OHNE installation benutzen.
Du nimmst Dir
JvCaptionButton.pas
JvWndProcHook.pas

JvComponent.pas
JVCLVer.pas

und noch JVCL.inc
und JEDI.inc

Eigentlich brauchst Du nur die oberen beiden, aber wegen MPL Lizenz, Versionsunterschiede und so..
Dann legst Du ein neues Projekt an, mit folgendem Quellcode .., und das wars..
Danach hast Du Deinen Button oben in der Titelleiste.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    CaptionButton1: TJvCaptionButton;

   // procedure CaptionButton1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
   // procedure CaptionButton1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure CaptionButtonONClick(Sender : TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CaptionButtonONClick(Sender: TObject);
begin
 showmessage('Hallo');
end;


//////////////////////////////////////////////////////////////////////////

procedure TForm1.FormCreate(Sender: TObject);
begin
 CaptionButton1 := TJVCaptionButton.Create(self);
 Captionbutton1.OnClick := CaptionButtonONClick;

 captionbutton1.ButtonLeft := 200;

 captionbutton1.Caption := '1';
end;

//////////////////////////////////////////////////////////////////////////



end.

viele Grüße

[Nicodius]

danke nochmals ;)