Hi,
I have a simple form with a few basic components on it.
I've put some size restraints on resizing the form, to stop it being resized to a stupid size, small or large.
To keep the components looking how I want them relative to the form size, I've used the code below.
Is this a good way to do it? I'm concerned about appearances depending on PC setup, only got my laptop to test on right now.
I have a simple form with a few basic components on it.
I've put some size restraints on resizing the form, to stop it being resized to a stupid size, small or large.
To keep the components looking how I want them relative to the form size, I've used the code below.
Is this a good way to do it? I'm concerned about appearances depending on PC setup, only got my laptop to test on right now.
Code:
procedure TSDIAppForm.FormResize(Sender: TObject);
begin
ColumnListBox1.Width := ClientWidth-10;
ColumnListBox1.Height := ClientHeight-90;
Edit2.Width := ClientWidth-100;
Button3.Left := ClientWidth-240;
Button3.Top := ClientHeight-48;
Button2.Top := Button3.Top;
end;