Otomatik Form Boyutu

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
arass37
Üye
Mesajlar: 2
Kayıt: 13 Ara 2016 09:36

Otomatik Form Boyutu

Mesaj gönderen 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.
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3077
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: Otomatik Form Boyutu

Mesaj gönderen 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.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
arass37
Üye
Mesajlar: 2
Kayıt: 13 Ara 2016 09:36

Re: Otomatik Form Boyutu

Mesaj gönderen 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
Üye
Mesajlar: 6
Kayıt: 14 Kas 2016 03:04

Re: Otomatik Form Boyutu

Mesaj gönderen 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...
Kullanıcı avatarı
csunguray
Üye
Mesajlar: 855
Kayıt: 09 Ara 2006 05:08
Konum: Adana
İletişim:

Re: Otomatik Form Boyutu

Mesaj gönderen csunguray »

arass37 yazdı: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?
C. Sunguray
csunguray at netbilisim.kom
Net Bilişim Hizmetleri

Sıradan her programcı bilgisayarın anlayabileceği kodlar yazabilir.
Sadece iyi programcılar insanların da anlayabileceği kodlar yazarlar.
Martin Fowler (http://martinfowler.com/)
Kullanıcı avatarı
adelphiforumz
Üye
Mesajlar: 602
Kayıt: 01 Nis 2008 05:38
Konum: İstanbul

Re: Otomatik Form Boyutu

Mesaj gönderen adelphiforumz »

arass37 yazdı: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.
Ehil olmayanlara sabretmek ehil olanları parlatır.
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Re: Otomatik Form Boyutu

Mesaj gönderen true_false »

delphide responsive design form uygulaması yapamazsınız.
type
Tform1 = class(Tform)
Cevapla