Текущий архив: 2004.08.01;
Скачать: CL | DM;
Вниз
Как всех послать? Найти похожие ветки
← →
joystick (2004-07-18 17:18) [0]Как сделать то же самое, что делает ICQ при запске? то есть извещает все окна о том, что размер полезной области экрана стал меньше, а оставшуюся область использует только для себя? И какое сообщение послать при закрытии, чтобы все вернуть эту область для использования
← →
jack128 © (2004-07-18 17:23) [1]Application Desktop Toolbars + f1
← →
GanibalLector © (2004-07-18 17:24) [2]>Как всех послать?
м-да...ну,советую так и сказать: ДА ПОШЛИ ВЫ ВСЕ...
Дальше...как-то вопрос задан странно.Лично я нифига не понял.
Насколько я понял тебе нужно возвращать форму тогда,когда она ушла за пределы экрана???или что???
Если ДА,то вот :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMEXITSIZEMOVE(var Msg: TMessage); message WM_EXITSIZEMOVE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMEXITSIZEMOVE(var Msg: TMessage);
var Screen: TRect;
begin
inherited;
SystemParametersInfo(SPI_GETWORKAREA, 0, @Screen, 0);
if Left < Screen.Left then Left := Screen.Left;
if Top < Screen.Top then Top := Screen.Top;
if (Left + Width) > Screen.Right then Left := (Screen.Right - Width);
if (Top + Height) > Screen.Bottom then Top := (Screen.Bottom - Height);
Msg.Result := 0;
end;
end.
← →
DVM © (2004-07-18 18:45) [3]ShAppBarMessage()
Страницы: 1 вся ветка
Текущий архив: 2004.08.01;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.046 c
