Получить дескриптор окна для выбора цвета

[Тоба]

Как узнать хэндл окошка?

procedure TForm1.Button1Click(Sender: TObject);
const
  BasicColors = [$00, $40, $80, $A0, $C0, $FF];
begin
  with TColorDialog.Create(Application) do
  begin
    if (GetRValue(Color) in BasicColors) and
      (GetGValue(Color) in BasicColors) and
      (GetBValue(Color) in BasicColors) then
        begin
      Options := Options - [cdFullOpen];
    end
    else
    begin
      Options := Options + [cdFullOpen];
    end;
    Execute;
 Caption := IntToStr(Color);
 Free;
  end;
end;

[Stilet]

Какого? ColorDialog-овского?

[Тоба]

Естественно.

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
const
  BasicColors = [$00, $40, $80, $A0, $C0, $FF];
Var HandleMe:HWND;
begin
  with TColorDialog.Create(Application) do
  begin
   HandleMe:=Handle;
...

Таки у него есть свойство нужное, его и юзай

[Тоба]

HandleMe/Handle - это хэндл главного окна,
а надо узнать хэндл ColorDialogа,например чтоб показать его в произвольном месте экрана или изменить его стиль на ToolWindow и т.д.

[Stilet]

это хэндл главного окна

Да что ты... Ану-ка докажи
А я потом тебе скажу всего четыре буквы: W I T и H, и посмотрим кто прав

[Тоба]

А разве в данном случаи Handle не будет иметь статус дескриптора вызывающего окна?
Стоп,что-то я запутался.
Ну а как допустим открыть наш диалог(например через MoveWindow) в произвольном месте десктопа,
Если Вас не затруднит покажите пожалуйста.

[Тоба]

Неужели никто не знает, как открыть ColorDialog не по центру, а в произвольном месте экрана ???

[Stilet]

Ну почему же не знает, знает. Просто занят другой работой
Вот. Смотри... Пяточек:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ColorDialog1: TColorDialog;
    procedure FormCreate(Sender: TObject);
    procedure ColorDialog1Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 ColorDialog1.Execute
end;

procedure TForm1.ColorDialog1Show(Sender: TObject);
begin    Randomize;
 MoveWindow(ColorDialog1.Handle,random(1000),random(1000),600,400,true);
end;

end.

P.S. Кстати, никто не знает что это за пасхалочка такая в этом диалоге?

[Аватар]

это скорее всего Button &Справка