Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.03.2013, 12:35   #1
grebljmax
Пользователь
 
Регистрация: 21.11.2010
Сообщений: 20
Восклицание Положение TCololDialog

Доброго Всем времени суток.

Столкнулся со следующей проблемой : не могу разместить ColorDialog в нужном месте, он открывается ровно по середине экрана.

Пробывал через

Код HTML:
MoveWindow(ParentHandle,(Screen.Width - DialogWidth) div 2,
                           (Screen.Height - DialogHeight) div 2,
                           DialogWidth, DialogHeight, True);
 <
и

Код HTML:
SetWindowPos(OD_WND, HWND_TOP, L, T, W, H, SWP_SHOWWINDOW);
Также пробывал через переопределение класса TColorDialog, но ничего не получается. У самого класса функции Position нету. Можно конечно вывести ColorDialog в другом окне и двигать окно, но не хочется создавать лишнее окно.

Буду очень благодарен за любую помощь
grebljmax вне форума Ответить с цитированием
Старый 31.03.2013, 17:46   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Как-то в этом направлении
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then begin
  //чет делаешь
  end;
end;

procedure TForm1.ColorDialog1Show(Sender: TObject);
var Rect: TRect;
begin
  GetWindowRect(ColorDialog1.Handle,Rect);
  SetWindowPos(ColorDialog1.Handle, 0, 0, 0, Rect.Right-Rect.Left, Rect.Bottom-Rect.Top, SWP_SHOWWINDOW);
end;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 31.03.2013, 23:10   #3
grebljmax
Пользователь
 
Регистрация: 21.11.2010
Сообщений: 20
Хорошо

Супер! Все отлично работает. Огромное спасибо. Очень сильно помогли и избавили от создания лишнего окна.
grebljmax вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
положение прокрутки freezil Помощь студентам 1 22.07.2010 17:48
положение диаграммы gsg Microsoft Office Excel 0 28.06.2010 14:01
Положение курсора Sanek_ntsk Общие вопросы Delphi 6 09.01.2010 11:11
Безвыходное положение BETONOMESHALKA Общие вопросы Delphi 2 03.11.2007 19:06
положение курсора mishel Общие вопросы Delphi 9 30.01.2007 21:37