Otomatik Form Boyutu

[arass37]

Merhaba arkadaşlar,

Okulda delphi öğreniyoruz ve proje yapıyoruz yaptığım projede ekran çözünürlüğüne göre otomatik boyutlandırma yapmak istiyorum. Kendi ekranim büyük olduğundan yaptığım projeyi başka bilgisayarda açtığımda kullandiklarim ekrana sigmadi ve gözükmüyor o ekran çözünürlüğüne nasıl otomatik yaptirabilirim yardımcı olabilirmisiniz.

Şimdiden teşekkür ederim ilgilenen arkadaşlara iyi aksamlar.

[sabanakman]

İyi günler. Anchors ve Align özelliklerine sıkı çalışıp kavramaya çalışabilirsiniz. Mesela panel, groupbox (v.b...) bileşenleri ve Align özellikleri ile formu bölgelere ayırabilirsiniz. Daha sonra ise hangi bileşen nereye göre sabit mesefede tutulacaksa Anchors özelliği buna göre ayarlanmalıdır. Bu konuda bol bol deneme yanılma yöntemi ile çalışırsanız çok daha kavrayıcı olacaktır. İyi çalışmalar.

[arass37]

Cevabınız için teşekkürler. Biraz araştırma yaptım elimden geldiğince denedim ama malesef başaramadım. Başka bi yolu yokmudur acaba?

[ogzark]

Selam-u Aleyküm.

sabanakman arkadaş en doğru yolu göstermiş zaten.
Panellerle bu işi çözebilirsin.
Formun dört kenarına ve ortasına panel yerleştir. (Panel1 - Aling = alLeft, Panel2 - Aling = alRight, Panel3 - Aling = alTop, Panel4 - Aling = AlBottom, Panel5 - Aling = alClient).
Hepsi bu. Hangi çözünürlük olursa olsun. Otomatik o çözünürlüğe göre formun büyüyecek ya da küçülecektir.

Selam ve Dua ile...

[csunguray]

Cevabınız için teşekkürler. Biraz araştırma yaptım elimden geldiğince denedim ama malesef başaramadım. Başka bi yolu yokmudur acaba?

Neyi denediniz? Tam olarak ne olmasını bekliyordunuz ve ne olmadı? Veya beklediğinizin haricinde nasıl bir sonuçla karşılaştınız? Hangi kodları kullandınız veya hangi componentin hangi özelliğini (property) ne yaptınız? Başka bir yol derken neyi kastediyorsunuz? Bu kadar güzel bir yol varken başka yola neden ihtiyaç duyulsun ki?

[adelphiforumz]

Cevabınız için teşekkürler. Biraz araştırma yaptım elimden geldiğince denedim ama malesef başaramadım. Başka bi yolu yokmudur acaba?

Fikir vermesi açısından ekteki kodu oluştur sonrada Align ve Anchors özelliklerini incele

eğer kastettiğin her objenin boyunun çözünürlülüğe göre değişmesini istiyorsan o başka bir konu
okunuda benimde bilgim yok bilen arkadaşlar belki yardımcı olursa bende öğrenmiş olurum


DFM

Kod: Tümünü seç

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 522
  ClientWidth = 766
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 766
    Height = 67
    Align = alTop
    Caption = 'Panel1'
    TabOrder = 0
    ExplicitWidth = 725
    DesignSize = (
      766
      67)
    object Button1: TButton
      Left = 8
      Top = 7
      Width = 99
      Height = 49
      Caption = 'Button1'
      TabOrder = 0
    end
    object Button2: TButton
      Left = 619
      Top = 6
      Width = 137
      Height = 51
      Anchors = [akRight, akBottom]
      Caption = 'Button2'
      TabOrder = 1
      ExplicitLeft = 584
    end
  end
  object Panel2: TPanel
    Left = 619
    Top = 67
    Width = 147
    Height = 382
    Align = alRight
    Caption = 'Panel2'
    TabOrder = 1
    ExplicitLeft = 578
    ExplicitHeight = 279
  end
  object Panel3: TPanel
    Left = 0
    Top = 449
    Width = 766
    Height = 73
    Align = alBottom
    Caption = 'Panel3'
    TabOrder = 2
    ExplicitTop = 370
    ExplicitWidth = 731
    DesignSize = (
      766
      73)
    object Button3: TButton
      Left = 621
      Top = 8
      Width = 139
      Height = 55
      Anchors = [akRight, akBottom]
      Caption = 'Button3'
      TabOrder = 0
      ExplicitLeft = 586
      ExplicitTop = 32
    end
    object Button4: TButton
      Left = 4
      Top = 14
      Width = 103
      Height = 53
      Anchors = [akLeft, akBottom]
      Caption = 'Button4'
      TabOrder = 1
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 67
    Width = 107
    Height = 382
    Align = alLeft
    Caption = 'Panel4'
    TabOrder = 3
    ExplicitHeight = 351
  end
  object Panel5: TPanel
    Left = 107
    Top = 67
    Width = 512
    Height = 382
    Align = alClient
    Caption = 'Panel5'
    TabOrder = 4
    ExplicitLeft = 172
    ExplicitTop = 110
    ExplicitWidth = 413
    ExplicitHeight = 217
    DesignSize = (
      512
      382)
    object Button5: TButton
      Left = 187
      Top = 128
      Width = 137
      Height = 130
      Anchors = []
      Caption = 'Button5'
      TabOrder = 0
      ExplicitLeft = 130
      ExplicitTop = 72
    end
  end
end

PAS

Kod: Tümünü seç

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

[true_false]

delphide responsive design form uygulaması yapamazsınız.