A BUG of Delphi, Nobody can fix

uses CommCtrl;

procedure TMainForm.show1Click(Sender: TObject);
begin
ToolBar1.Perform(TB_CUSTOMIZE, 0, 0);
end;

-------------------------------------------------------
this code show system custom toolbar dialogs, but can't use? why?


kiss2Asked:
Who is Participating?
 
raidosConnect With a Mentor Commented:
what version of delphi are you using ?

if your using delphi 6, then just use the TToolbar's event handlers, otherwise you will have to write your own handler that will handle the WM_NOTIFY messages sent by the Customization box..unless i missed something..

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, CommCtrl, StdCtrls;

type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    Procedure WMNOTIFY(Var MSG: TWMNOTIFY); Message WM_NOTIFY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMNOTIFY(var MSG: TWMNOTIFY);
begin
  Inherited;
  Case Msg.NMHdr^.code Of
    TBN_BEGINADJUST: Begin
      ShowMessage('BEGINADJUST');
    End;
    TBN_RESET: Begin
      ShowMessage('BEGINADJUST');
    End;
    {TBN_ETC...: Begin

    End;}
  End;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Toolbar1.Perform(TB_CUSTOMIZE,0,0)
end;

end.


Regards
//raidos
0
 
kiss2Author Commented:
up
0
 
ginsonicCommented:
listening
0
Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
kiss2Author Commented:
Is this a BUG of Delphi??
0
 
kiss2Author Commented:
Nobody can answer???
0
 
raidosCommented:
0
 
kiss2Author Commented:
Thanks to raidos!
I'm already read this, but I'm sorry I don't understand.
How to receive TBN_BEGINADJUST,TBN_RESET,etc. notification?

Can you give me a sample of handle this dialogs?

My Email: kiss2@yeah.net


Regards
0
 
kiss2Author Commented:
Thanks!
I using Delphi 6.
I test your code, but can't receive the notification?

First, I test this BUG with this "Delphi\DEMOS\Coolstuf\webbrows.dpr" project.

I open (with this: Toolbar1.Perform(TB_CUSTOMIZE,0,0)
) toolbar dialogs, then move some icon to left list, the icons are disappear from toolbar, close dialogs. Next I open the toolbar dialogs again, but these icon are disappear in left list. I don't know why?

Maybe I don't use this dialogs, how to use?


Thanks!
Regards!
0
 
kiss2Author Commented:
up
0
 
pnh73Commented:
No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in the Cleanup topic area that this question is:

PAQ and No Refund

Please leave any comments here within the next seven days.
 
PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!
 
Paul (pnh73)
EE Cleanup Volunteer
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.