Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.08.17;
Скачать: CL | DM;

Вниз

Пристыковать окно   Найти похожие ветки 

 
Макс П.   (2008-07-11 13:42) [0]

У приложения два окна - одно центральное, второе дополнительное, но показывается всегда. Мне необходимо пристыковать дополнительное окно к центральному что бы оно было всегда прикреплено к правому краю центрального и всегда следовало за ним, даже при перемещении центрального окна.

Как лучше поступить?


 
Поросенок Винни-Пух ©   (2008-07-11 13:45) [1]

убрать второе и расширить первое


 
oldman ©   (2008-07-11 13:49) [2]


> Макс П.   (11.07.08 13:42)  


Когда перемещают первое, а за ним летает второе - понятно (но глупо)
А вот когда второе возвращается на место при попытке его скрыть/переместить - глупо вдвойне


 
{RASkov} ©   (2008-07-11 19:54) [3]

> [0] Макс П.   (11.07.08 13:42)

Обработать сообщение перемещения формы где устанавливать второй форме новые позиции.
Примерно так:
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

type
 TForm1 = class(TForm)
 private
   procedure FrmMove(var Mes: TMessage); message WM_MOVE;
   { Private declarations }
 public
   { Public declarations }
 end;

var Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FrmMove(var Mes: TMessage);
begin
 if Assigned(Form2) and Form2.Showing then
  SetWindowPos(Form2.Handle, HWND_NOTOPMOST, Left+Width, Top, Form2.Width, Form2.Height, SWP_NOACTIVATE);
end;

end.



Страницы: 1 вся ветка

Текущий архив: 2008.08.17;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.042 c
2-1216032987
alexalex
2008-07-14 14:56
2008.08.17
печать


3-1204202412
makz
2008-02-28 15:40
2008.08.17
Обновление НД


2-1215995612
npr2
2008-07-14 04:33
2008.08.17
DBGrid


15-1214545283
Регвин
2008-06-27 09:41
2008.08.17
посоветуйте хороший учебник по DELPHI


2-1215883915
4iVan
2008-07-12 21:31
2008.08.17
запустить процесс





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский