TAppButton - Application Button like Firefox (experimentell)

[Gustav.R]

Hi Satty67,

sehr schöne Spielerei, dankeschön

Habe das da mit D7 personal kompiliert:

Delphi-Quellcode:

unit UnitTest1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Bearbeiten1: TMenuItem;
    Beenden1: TMenuItem;
    Kopieren1: TMenuItem;
    PopupMenu1: TPopupMenu;
    Beenden2: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  AppButton: TAppButton;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  AppButton := TAppButton.Create(self);
  AppButton.DropDownMenu := PopupMenu1;
  AppButton.Caption := Form1.Caption;
end;

end.

Läuft problemlos unter Windows2000, XP, Vista und 8DP.

Da unter 8DP die Form.Captions wieder zentriert werden (siehe Screenshot), muss man sich da halt was einfallen lassen, falls man mal mit findwindow herumbasteln will und die Form.Caption auf '' setzt

LG
Gustav