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