Ohne Fremdkomponente Button in die Formleiste bringen

[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 ;)