用delphi写一个NeoPlanet的姐妹或者是电子日记本的界面程序？

Question

如题？
而且我有了c++builder的那个NeoPlanet界面的类，在delphi中怎么用呢？
如果那为有那样的程序能不能发给我阿

Answer 1

Delphi也有的，是TinyDB的作者郝新康写的
你找找？
这个就是用那个写的
http://www.csdn.net/cnshare/soft/8/8222.shtm

Answer 2

http://www.delfan.com/download/components/other/neoform.456.src.rar

Answer 3

一样,自己放置图像,处理消息~~~http://www.ehomsoft.com/Ehomform.zip

Answer 4

http://www.delfan.com/download/components/other/neoform.456.src.rar
这个可以用的哦，我下载了，不过好像里面有一个什么东西工具兰的文件没有，要把工具兰的声明给注释调哦

Answer 5

怎么没有?MENUBAR.PAS
先安装TMenuBar

Answer 6

怎么没有?MENUBAR.PAS
先安装TMenuBar那个TMenuBar在那里阿，怎么安装阿

Answer 7

不好意思路上的兄弟，我着到了MENUBAR.PAS，就在下载的包中，谢谢你门拉！！
等我休假回来就揭帖

Answer 8

那TMenuBar就是TToolBar派生的(将设置其MenuItem的过程自动化),TToolBar不会用吗?

Answer 9

unit MenuBar;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ToolWin, ComCtrls, Menus;type
  TMenuBar = class(TToolBar)
  private
    FMenu: TMainMenu;
    procedure SetMenu(const Value: TMainMenu);
  protected
    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property EdgeBorders default [];
    property Menu: TMainMenu read FMenu write SetMenu;
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TMenuBar]);
end;{ TMenuBar }constructor TMenuBar.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Flat := True;
  ShowCaptions := True;
  EdgeBorders := [];
  ControlStyle := [csCaptureMouse, csClickEvents,
    csDoubleClicks, csMenuEvents, csSetCaption];
end;procedure TMenuBar.GetChildren(Proc: TGetChildProc; Root: TComponent);
begin
end;procedure TMenuBar.SetMenu(const Value: TMainMenu);
var
  i: Integer;
  Button: TToolButton;
begin
  if FMenu = Value then exit;
  if Assigned(FMenu) then
    for i := ButtonCount - 1 downto 0 do
      Buttons[i].Free;
  FMenu := Value;
  if not Assigned(FMenu) then exit;
  for i := ButtonCount to FMenu.Items.Count - 1 do
  begin
    Button := TToolButton.Create(Self);
    try
      Button.AutoSize := True;
      Button.Grouped := True;
      Button.Parent := Self;
      Buttons[i].MenuItem := FMenu.Items[i];
    except
      Button.Free;
      raise;
    end;
  end;
  { Copy attributes from each menu item }
  for i := 0 to FMenu.Items.Count - 1 do
    Buttons[i].MenuItem := FMenu.Items[i];
end;end.

Answer 10

电子日记本2.0已经推出,请多提意见!
http://haoxg.yeah.net

Answer 11

支持郝新庚怎么换了个ID,以前不是haoxg吗?

Answer 12

请问怎么不能提前电子日记本和pp的资源文件哪,那位大侠知道pp的图形按钮是怎么弄的哪?
还有文字挺好看的哦