Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как написать приложение, адекватно отображающееся на экранах с различным разрешением монитора


Существует ровно один интуитивно понятный интерфейс - соска. Остальные осваиваются путем обучения.


 unit Main;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
 
 type
   TForm1 = class(TForm)
   Button1: TButton;
   Edit1: TEdit;
   procedure Button1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
     // Отлавливаем, сообщение о изменении разрешения экрана
     procedure WMDisplayChange(var message: TMessage); message WM_DISPLAYCHANGE;
   public
     { Public declarations }
     W, H: integer;
 end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.DFM}
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Width := Round(Width * 1.5);
   Height := Round(Height * 1.5);
   ScaleBy(150, 100)
 end;
 
 procedure TForm1.WMDisplayChange(var message: TMessage);
 begin
   inherited;
   Width := Round(Width * LOWORD(message.LParam) / W);
   Height := Round(Height * HIWORD(message.LParam) / H);
   ScaleBy(LOWORD(message.LParam), W);
   W := Screen.Width;
   H := Screen.Height;
 end;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   W := Screen.Width;
   H := Screen.Height;
 end;
 
 end.
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS